Cambiar For each cell

[Jvalero]

Buen día
actualmente trabajo con este código pero se tarda 2 minutos o mas en realizar dicha acción, alguna vez leí que para cambiar esto tenias que dejar de usar "FOR EACH CELL" para acelerar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, puedes probar con:

Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("A4:A50")
   Cell.EntireRow.Hidden = IIf(Cell = "", Not Cell.EntireRow.Hidden, False)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí