He probado distintas formas para que queda mas rápida porque es demasiado lenta, he hecho por ejemplo ciclo for, la he separado en distintos rangos, he llamado con otra macro los distintos rangos, pero nada, nose como dejarla mas eficiente. ayuda amigos muchas gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Amigos tengo la siguiente macro:
Sub Ocultar()
Dim r As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Rows("21:500").Select
Selection.EntireRow.Hidden = False
For Each r In Range("A21:A500")
If r = 1 Then r.EntireRow.Hidden = True
Next r
Application.ScreenUpdating = True
End Sub
He probado distintas formas para que queda mas rápida porque es demasiado lenta, he hecho por ejemplo ciclo for, la he separado en distintos rangos, he llamado con otra macro los distintos rangos, pero nada, nose como dejarla mas eficiente. ayuda amigos muchas gracias