Como criar uma macro para inserir mais linhas de código em um já existente?


#1

Eu tenho o seguinte código, que funciona muito bem, porem eu gostaria de criar uma macro que inserisse determinada parte desse código na linha de baixo.

Gostaria de criar um botão que ao clicar acrescente essa parte abaixo,mudando o que está em [ ] para um a mais, se tiver [S1] mude para [S2] e assim toda vez que for acrescentado uma nova linha

exemplo:

If .[$S$5] = 102 Then
MsgBox “Existem " & .[$A$5] & " sem atualização”
End If

nova linha criada ao clicar no botão

If .[$S$6] = 102 Then
MsgBox “Existem " & .[$A$6] & " sem atualização”
End If
Esse é codigo funcionando, sem a macro que eu não consigo criar

Private Sub Workbook_Open()
With Sheets(“BD”)
If .[$S$4] = 1 Then
MsgBox “ATENÇÃO O FORNECEDOR:…’ " & .[$A$4] & " '…: tem o vencimento todo dia 10”
End If
If .[$S$5] = 102 Then
MsgBox “Existem " & .[$A$5] & " sem atualização”
End If

End With
End Sub


#2

@jeffex, pode postar o arquivo?


#3

@jeffex, o que lhe foi respondido aqui não resolve o seu problema?


#4

Infelizmente não, e no site stackoverflow as respostas ficam muitos confusas para mim. aqui no fórum luz obtive respostas mais rápidas e melhores ajuda


#5

Galera muito obrigado pela ajuda, porém tive que abrir mão desse código, não usarei mais, então não precisarei dessa solução, porém fica aberto o tópico pra quem precisar desse código ou pra quem procura uma solução para o mesmo, mais uma vez obrigado