Somar

[aninha_27]

Olá!

Tenho um relatório em que o número de linhas varia, preciso de um código que some os valores das colunas AR e AQ. Sendo que a primeira linhas sempre será o cabeçalho, mas a segunda linha pode ser a linha 2, pode ser a linha 4, tudo depende do filtro.

Alguém pode ajudar?

Fiz esse, mas não está somando todas as linhas...

    Range("AR2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-1335]C:R[-2]C)"

 

Desde já obrigada!

 

[Erik Wesley]

Você pode tentar assim também:

Sub Somar()
Dim uLin As Long
uLin = Application.WorksheetFunction.Count(Sheets("plan1").Range("A:A"))
     Coluna = Worksheets("Plan1").Range("A1:A" & uLin)
    ValorSomado = WorksheetFunction.Sum(Coluna)
    Range("B1") = ValorSomado
End Sub

Ele vai selecionar todas as células preenchidas da coluna A e colocar o valor somado na célula B1. Eu acho melhor do que colocar uma formula.

[aninha_27]

O que significa

Dim uLin As Long

 

Range("A1:A" & uLin)

e ulin?

[Erik Wesley]

20 minutos atrás, aninha_27 disse:

O que significa

Dim uLin As Long

 

Range("A1:A" & uLin)

e ulin?

É a variável que guarda a última linha preenchida.

[aninha_27]

Obrigada

[aninha_27]

Erik, uma dúvida...

Esse código está somando a coluna inteira, mas preciso que efetue a soma somente nas linhas visíveis, ocorre isso pois foi feito um filtro antes... entendeu?

pode ajudar?

[Erik Wesley]

Esse artigo responde suas perguntas:

https://excelb2b.com/2014/01/28/somando-apenas-linhas-visiveis-no-excel-funcao-subtotal/