About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2007-03-09
Se pretendermos obter numa célula, apenas com um duplo click, o valor total resultante da soma de um Range variável, na mesma coluna, Range esse que se inicie na 2ª linha e termine na linha imediatamente anterior à célula onde queremos o total, como no exemplo:
 
 
podemos utilizar o seguinte Código:
 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim name As String
    Dim name1 As String
    Dim name2 As String
    Dim Start As Long
    
    Cancel = True
    
    name = ActiveCell.Address
    name1 = Left(name, 2)
    name2 = ActiveCell.End(xlUp).Address
    Start = 2
    Range(name).Formula = _
    "=SUM(" & name1 & Start & ":" & name2 & ")"
End Sub

 

Nota: A variável Start tem o valor 2, para que o Range se inicie na 2ª linha e não na primeira, em virtude de haver cabeçalho na coluna. Para que a célula não fique activa ao dar-se o duplo click, deu-se a condição True à Propriedade Cancel.