Ir ao conteúdo
  • Cadastre-se
LhoSanca

Excel Fazer a soma de um intervalo que varia -VBA

Recommended Posts

Como posso adicionar uma função de soma no final do intervalo considerando que esse intervalo sempre varia por uma outra função?

(Ps.: a soma precisaria ser abaixo da seleção como na figura)

Sem título.png

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sub adicionar_soma()
Dim ul As Long
Application.ScreenUpdating = False
ul = Range("C" & Rows.Count).End(xlUp).Row + 1
[c1].Select
For i = 1 To ul - 1
If ActiveCell.Offset(0, -1).Value = "soma=" Then
ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Value = ""
GoTo somar
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
somar:
ul = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("C" & ul).Value = Application.WorksheetFunction.Sum(Range("C1:C" & ul - 1))
Range("C" & ul).Offset(0, -1).Value = "soma="
Application.ScreenUpdating = True
End Sub

teste.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites

Segue outra opcao.

 

Sub Somar_Intervalo_Variavel()   
    With ActiveSheet
    .Range("C" & .Cells(.Rows.Count, 3).End(xlUp).Row + 1).Value = Evaluate("=SUM(C1:C" & .Cells(.Rows.Count, 3).End(xlUp).Row & ")")
    End With  
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro 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 publicações 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

×