Soma de Seleção em VBA

Gitto · 17 de julho de 2012

Olá!

Gostaria de fazer a soma de uma seleção usando VBA no Excel.

O negócio é que eu não sei como fazer isso =P

O negócio é o seguinte.

Eu queria fazer com que um atalho de teclado (ctrl+shift+z por exemplo) tivesse atribuída uma função que fizesse a soma de uma determinada seleção no Excel, mas sem que fosse uma seleção fixa.

Ou seja, mais ou menos:


Sub Mesclar()
'
' Mesclar Macro
'
' Atalho do teclado: Ctrl+Shift+A
'

    Selection.Merge

End Sub

Só que com soma!

Desde já muito obrigado!!

Abraço!

leno mota · 17 de julho de 2012

Para as teclas:

Código para EstaPasta_de_trabalho



Application.OnKey "^+{Z}", "Pressionando"

Código pra módulo:


Sub Pressionando()
    Dim y As Integer
        y = Application.WorksheetFunction.Sum(Selection.Value)
        MsgBox ("A soma do intervalo selecionado é igual a: " & y)
End Sub

Se fui útil não esqueça de encerrar o tópico e marcar o polegar verde a sua direita.

Gitto · 4 de setembro de 2012

Para as teclas:
Código para EstaPasta_de_trabalho
Application.OnKey "^+{Z}", "Pressionando"
Código pra módulo:
Sub Pressionando()
    Dim y As Integer
        y = Application.WorksheetFunction.Sum(Selection.Value)
        MsgBox ("A soma do intervalo selecionado é igual a: " & y)
End Sub
Se fui útil não esqueça de encerrar o tópico e marcar o polegar verde a sua direita.