EXCELer Tudo sobre EXCEL em Português
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.