Intervalo de células VBA

[Wesley Dias_772136]

Boa Tarde galera, estou fazendo uma planilha para contagem de votos da eleição do conselho tutelar aqui da minha cidade, to usando esse código do VBA só que eu consigui atribuir apenas uma célula que ta descrita $A$1, no código, mas queria atribuir um intervalo tipo do D1 ao D31.... segue o código que ultilizo abaixo

Public Sub Worksheet_Change(ByVal Target As Excel.Range)

Static valorcel As Integer

Application.EnableEvents = False

If Target.Address = "$A$1" Then
valorcel = Target.Value + valorcel
If Target.Value = 0 Then valorcel = 0
Target.Value = valorcel
End If

Application.EnableEvents = True

End Sub

[Visitante]

Olá, Wesley.

 

Experimente substituir esta linha

If Target.Address = "$A$1" Then

por esta

If Not Application.Intersect(Target, Range("D1:D31")) Is Nothing Then

[Wesley Dias_772136]

Osvaldo o Caminho está correto, obrigado pela ajuda, mas quando faço a contagem do candidato 1, automaticamente o candidato 2 já fica com a quantidade de voto do 1...

[Visitante]

... mas quando faço a contagem do candidato 1, automaticamente o candidato 2 já fica com a quantidade de voto do 1...

 

O comando que eu sugeri permite que o código atue caso haja alteração no intervalo 'D1:D31' em lugar de atuar somente se a alteração ocorrer em 'A1', como está no seu código original. Só faz isso. Me parece que ele não altera a mecânica do seu código.

 

Sugiro que você disponibilize uma amostra do seu arquivo, com alguns exemplos de dados e os respectivos resultados esperados ao rodar o código e com as explicações na própria planilha.

[Visitante]

Wesley.

 

Me parece que a estrutura do seu código original só funciona para uma única célula, ou seja, não funciona para o intervalo pretendido 'D1:D31'.

 

Experimente o código abaixo no lugar.

Private Sub Worksheet_Change(ByVal Target As Range) Dim x As Variant, y As Variant  If Target.Count > 1 Then Exit Sub  If Not Intersect(Target, Range("D1:D31")) Is Nothing And Target.Value <> "" Then   Application.EnableEvents = False    x = Target.Value     Application.Undo    y = Target.Value    On Error Resume Next    Target = x + y    Application.EnableEvents = True   End IfEnd Sub