Para dante el archivo queda bloqueado

Dante revisa el dam10 cuando filtro queda bloqueado te lo mande por mail gracias

1 Respuesta

Respuesta
1

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas