Suma condicional

Hola! Lucas:
a) Con el botón derecho de tu ratón selecciona (parte inferior
izquierda de la hoja) la etiqueta de la hoja en la que deseas el
efecto (Hoja1, por ejemplo) y selecciona Ver Código.

b) Se te abrirá una ventana en la que pegarás el siguiente código VBA:


Public Sub SubTotalesPorCero()
On Error Resume Next
If ActiveCell.Offset(-1, 0) <> "" Then ActiveCell.End(xlUp).Select
On Error GoTo 0
Set MiRango = Range(ActiveCell, ActiveCell.End(xlDown))
If ActiveCell.End(xlDown).Row = [IV1].End(xlDown).Row Then
MsgBox "Su selección es inapropiada. Reintente."
Exit Sub
End If
MiRango.Offset(1, 1).ClearContents
cf = MiRango(1).Address(False, False)
For Each Celda In MiRango
If Celda = 0 Then
Celda.Offset(0, 1).Formula = "= SUM(" & cf & ":" &
Celda.Address(False, False) & ")"
cf = Celda.Offset(1, 0).Address
End If
Next Celda
If MiRango.End(xlDown).Offset(0, 1) = "" Then _
MiRango.End(xlDown).Offset(0, 1).Formula = _
"= SUM(" & cf & ":" & MiRango.End(xlDown).Address(False, False) &
")"
Set MiRango = Nothing
End Sub


c) Cierra esas ventanas del ambiente Visual Basic y retorna a tu
planilla Excel.

d) Crea un botón en tu hoja que ejecute la macro recién instalada y
llamada: SubTotalesPorCero.

d) Selecciona un número cualquiera de tu columna de datos y corre la
macro: a la derecha de la columna de datos verás aparecer las fórmulas
que necesitas.

Espero que te sea útil.

Saludos.