Macro para desplazarse en una hoja arriba o abajo
Para Elsa.
Buenos días. Tengo esta macro para desplazarme por la hoja con más rapidez:
Sub arriba() ' arriba Macro Application.ScreenUpdating = False ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 27 ActiveWindow.ScrollRow = 25 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 22 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 18 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 13 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 9 Application.ScreenUpdating = True End Sub
pero resulta algo lenta en la ejecución. Como podria simplificarla..?
1 respuesta
Respuesta de Elsa Matilde
1
Como este es un código generado con la grabadora de macros, el mayor problema es la cantidad de líneas innecesarias si imaginamos que debes saltar 50, 100 o más filas para ocultar/mostrar rangos mayores.
Por lo tanto solo debes conservar la línea final, ya sea hacia arriba o hacia abajo.
Sub arriba() ' arriba Macro ActiveWindow.ScrollRow = 9 End Sub Sub abajo() ' abajo Macro ActiveWindow.ScrollRow = 29 End Sub
Incluso como ahora solo hará 'un salto' y no un 'recorrido' por cada fila no son necesarias las de ocultar/mostrar el movimiento de hojas.
Sdos!
