Apagué los eventos en la macro totales
Sub totales()
'Por.Dante Amor
u = Range("A" & Rows.Count).End(xlUp).Row
For i = 14 To u
If Rows(i).EntireRow.Hidden = False Then
If Cells(i, "C") = [C3] Then
If Cells(i, "D") > 0 Then
pos = pos + Cells(i, "D")
pos2 = pos2 + Abs(Cells(i, "G"))
'Else
' neg = neg + Cells(i, "D")
End If
End If
If Cells(i, "C") = [C4] Then
If Cells(i, "D") > 0 Then
' pos = pos + Cells(i, "D")
Else
neg = neg + Cells(i, "D")
neg2 = neg2 + Cells(i, "G")
End If
End If
End If
Next
Application.EnableEvents = False
[D3] = pos
[D4] = neg
If pos <> 0 Then
[D5] = pos2 / pos
Else
[D5] = ""
End If
If neg <> 0 Then
[D6] = neg2 / neg * -1
Else
[D6] = ""
End If
Application.EnableEvents = True
End Sub
No entendí la respuesta :( realmente solocito ayuda, por favor! Solo me aparece una especie de programación - Elli Baez
Hola Elli:Tienes duda sobre el código? o tienes un problema con tu excel? Puedes crear una pregunta en el foro y ahí detallas tu petición. Si gustas puedes poner al final del título que va dirigida a Dante Amor. Saludos - Dante Amor