Eu tenho esse código abaixo,mas ele está aplicado apenas na coluna 5 .eu quero saber como faço pra aplicar esse mesmo comando em outra coluna.por exemplo na coluna 3 tambem.
Eu copiei o codigo um abaixo do outro, e Mudei só a coluna ñ resolveu.
Public Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 5 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Or Target.Value = 0 Then Exit Sub
Dim newVl As Long, oldVl As Long
Application.EnableEvents = False
newVl = Target.Value
Application.Undo
oldVl = Target.Value
Target.Value = newVl + oldVl
Application.EnableEvents = True
End Sub
A melhor resposta não foi escolhido ainda. Por que não ajudar alguém e deixar a sua resposta abaixo?