Suma VBA

Tengo el siguiente codigo de para suma con Vba en solo me suma
deteminadas filas
habra alguna manera que sume en la Columna F
sin importar en que linea este posesionado

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("F3") = Application.WorksheetFunction.Sum(Range("A3"),
Range("B3"), Range("C3"), Range("D3"), Range("E3"))
Range("F4") = Application.WorksheetFunction.Sum(Range("A4"),
Range("B4"), Range("C4"), Range("D4"), Range("E4"))

End Sub

Hola Pepito,

¿Te refieres a algo así?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 6 Then
        Range("A1") = Application.WorksheetFunction.Sum(Range("F:F"))
    End If
End Sub

Un saludo,
Juan

"Pepito"  escribió



> Tengo el siguiente codigo de para suma con Vba en solo me suma
> deteminadas filas
> habra alguna manera  que sume en la Columna F
> sin importar en que linea este posesionado

> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Range("F3") = Application.WorksheetFunction.Sum(Range("A3"),
> Range("B3"), Range("C3"), Range("D3"), Range("E3"))
> Range("F4") = Application.WorksheetFunction.Sum(Range("A4"),
> Range("B4"), Range("C4"), Range("D4"), Range("E4"))

> End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -