Use a função de soma via VBA: Application.WorksheetFunction.Sum
Declare a variável:
Dim soma As Double
A sintaxe deve ser uma dessas abaixo (não testei):
soma = Application.WorksheetFunction.Sum(Range("G:G").Value)
soma = Application.WorksheetFunction.Sum(Range("G1").EntireColumn)
soma = Application.WorksheetFunction.Sum(Range(Cells(1, "G"), Cells(Rows.Count, "G")).Value)
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 21/11/2014 12:20 pm