11/05/2012, 14:56
|
| | | Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 16 años, 8 meses Puntos: 39 | |
| Respuesta: Excel VBA
Coloca al inicio de la macro
Application.ScreenUpdating = False
y al final
Application.ScreenUpdating = True
Quedaria así
Sub plan_p5()
Application.ScreenUpdating = False
Dim a As Variant
For Each a In Range("c768:c839")
If a.Value = 0 Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub
Prueba |