Saberexcel o site de quem precisa aprender macros microsoft excel vba
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), chamando um rotina para somar duas células em determinada folha de planilha, retorna o resultado da soma em outra célula, juntamente com uma mensagem contendo uma formtação de números.
Espero que o exemplo possa ajudá-los. Fiquem com Deus. Expedito Marcondes.
Sub sbm_somando_Rotina(ByVal sbx As Integer)
sbx = Range("c3") + Range("e3")
MsgBox "Célula(G3) é igual a soma das celulas(C3+E3) = [ " & Format(sbx, "##,###.00") & " ]", vbInformation, _
"Saberexcel - o site das macros"
[G3].Value = sbx
End Sub
Sub sbm_chamando_rotina()
sbm_somando_Rotina (sbx)
End Sub
'limpar célula para repetir o teste
Sub sbm_limpar_teste()
[G3].ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Baixe o exemplo de planilha contendo os procedimentos acima.