Puede moverse fácilmente entre las hojas de trabajo en un libro de trabajo usando Ctrl + Pg Up y Ctrl + Pg Down. ¿Qué sucede si desea utilizar un atajo para moverse entre dos hojas de trabajo específicas no vecinas, como Sheet1 y Sheet4? En este caso, es mejor usar una macro para hacer los saltos.

Si lo desea, puede definir dos macros que harán el salto. Una macro saltaría a Sheet1 y la otra a Sheet4. Estos serían bastante fáciles de crear usando la grabadora de macros, y podría asignar una tecla de acceso directo a cada una de las macros.

Si está buscando un único acceso directo que alterne entre las dos hojas de trabajo, puede usar una macro como esta:

Sub JumpBetween1()

If ActiveSheet.Name = "Sheet1" Then         Worksheets("Sheet4").Activate     Else         Worksheets("Sheet1").Activate     End If End Sub

La macro simplemente verifica qué hoja de trabajo se muestra actualmente.

Si es Hoja1, se muestra Hoja4. En todos los demás casos, se muestra Sheet1. Esto es útil, pero significa que si actualmente se muestra Sheet2, el acceso directo siempre mostrará Sheet1. Es posible que no desee que la macro haga nada a menos que se muestre Hoja1 o Hoja4. En ese caso, debería utilizar esta variación de la macro:

Sub JumpBetween2()

If ActiveSheet.Name = "Sheet1" Then         Sheets("Sheet4").Activate     ElseIf ActiveSheet.Name = "Sheet4" Then         Sheets("Sheet1").Activate     End If End Sub

Tenga en cuenta que la única diferencia entre las dos macros es que la última variación usa ElseIf para verificar si se muestra Sheet4. Esto significa que si se muestra cualquier hoja de cálculo que no sea Hoja1 o Hoja4, la macro no hará nada.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3216) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Shortcut_to_Move_between_Two_Worksheets [Atajo para moverse entre dos hojas de trabajo].