Pessoal, boa tarde!
Tenho uma necessidade de colocar um alerta em uma planilha sempre que o usuário for salvá-la. O código está prontinho e funcionando. Acontece que eu preciso replicar este mesmo código para 31 planilhas identicas (cada vendedor possui uma planilha com os seus respectivos clientes).
Logo, essa versão que criei seria uma "matriz" a partir de onde eu geraria uma cópia idêntica "por vendedor".
Acontece que como esse meu código é uma macro "autoexecutável" que está no módulo "ThisWorkbook" (EstaPasta_De_Trabalho do Excel em Portugues), eu não sei como "levá-la junto" a cada um desses 31 arquivos através de código. Ai vem minha dúvida:
É possível exportar o código do "ThisWorkbook" de uma planilha para o "ThisWorkbook" de outra através de códigos? E, claro, caso esse não seja o melhor jeito de fazer o que pretendo e possuirem outras sugestoes, são muito bem vindas!
Agradeço muito desde já pela ajuda!!
Obs: Só pra detalhar mais, esse é o código que preciso que se replique para cada uma das 31 planilhas:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim percentuais, referencia, checagem As Variant
Dim contador, ultima_linha_base As Long
Dim mensagem As String
'Seleciona aba e encontra ultima linha
Sheets("Input Vendas").Select
ultima_linha_base = 25 'Range("d5000").End(xlUp).Row
'Carrega Arrays
percentuais = Range("n9:n" & ultima_linha_base).Value
checagem = Range("o9:o" & ultima_linha_base).Value
'Laço de verificação
For contador = 1 To UBound(percentuais)
If checagem(contador, 1) <> "a" Then
If mensagem = "" Then
mensagem = "Foi(ram) identificado(s) percentual(is) que não totaliza(m) os 100% nas células do Excel:" & Chr(13) & Chr(13) & "N" & contador + 8
Else
mensagem = mensagem & Chr(13) & "N" & contador + 8
End If
End If
Next
If mensagem <> "" Then
MsgBox mensagem & Chr(13) & Chr(13) & "O arquivo será salvo, porém é importante verificar estes percentuais", vbInformation, "Verificação"
End If
End Sub
Postado : 11/06/2015 2:39 pm