Na costa

Como aplicar um mesmo codigo a mais de uma coluna ?

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

respostaA melhor resposta não foi escolhido ainda. Por que não ajudar alguém e deixar a sua resposta abaixo?

Comentários
Você pode ajudar a responder a questão?

Guest


HTML não é permitido!

Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Receber um email quando alguém acrescenta outro comentário a esta pergunta



Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2022
All rights reserved