Saberexcel - Site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando a Função de Planilha (WorkSheetFunction(SUBTOTAL)), obtém-se o resultado da soma de determinado intervalo de células, neste caso (Range(D3:D3)).

Não deixe de ler sobre as 340 Planilhas Exemplos Microsoft WorksheetFunctions(VBA)
wkf worksheetfunction funções de planilhas retornam valores vba
 
Sub somando_com_wkf_subtotal()
 sby = Application.WorksheetFunction.SubTotal(9, Range("D3:D30"))
 MsgBox "Resultaldo soma: [ " & sby & " ]", vbInformation, "Saberexcel - site das macros"
 [G3].Value = sby
End Sub

'ou poderia ser simplesmente:
Sub somando_com_wkf_subtotal()
Msgbox  Application.WorksheetFunction.SubTotal(9, Range("D3:D30"))
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel




  Baixe o exemplo de Planilha contendo o Macro Acima
Excel vba soma usando wkf subtotal numeros negativos (22.64 KB)