Excel Excel vba soma coluna separadamente

[deejaywesley]

Boa noite amigos!

mais uma vez to apanhando pro VBA...

 

Fiz umas modificações nesse código....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim linhas As Range
Set linhas = Range("B3:Z10000")
On Error Resume Next

If Not Application.Intersect(linhas, Range(Target.Address)) Is Nothing Then
coluna = Target.Column

Cells(1, coluna).Value = Application.WorksheetFunction.Sum(Range("3:20" & coluna))

End If

End Sub

ta quase do jeito que preciso, mas ainda tem uma falha que não acho solução...

 

Eu preciso que na linha 1 ele me retorne a soma da coluna em que foi digitado o novo valor, ex:

digitei um valor em C6, ele me retorne em C1, a soma da coluna C no intrevalo da linha 3 ate 20

se digitar um valor em H6, ele me retorne em H1, a soma da coluna H no intrevalo da linha 3 ate 20

 

o erro do código que postei, e que ta somando o intervalo inteiro B3:Z20.

 

desde ja agradeço a ajuda!

[AfonsoMira]

@deejaywesley Boas,

Experimente assim:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim linhas As Range
Set linhas = Range("B3:Z10000")
On Error Resume Next

If Not Application.Intersect(linhas, Range(Target.Address)) Is Nothing Then
coluna = Target.Column

myRange = ActiveSheet.Range(Cells(3, coluna), Cells(20, coluna))

Cells(1, coluna).Value = WorksheetFunction.Sum(myRange)

End If

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

Espero ter ajudado.

[deejaywesley]

Boa Noite @AfonsoMira

 

Testei aqui e ficou top meu amigo!

Muito obrigado, forte abraço!

Fica com Deus e que a "Força esteja com você!".