Ir ao conteúdo
  • Cadastre-se

Excel Excel vba soma coluna separadamente


Ir à solução Resolvido por AfonsoMira,

Posts recomendados

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!😉

Link para o post
Compartilhar em outros sites
  • Solução

@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. :)

  • Curtir 1
Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!