Hoy vemos otro truco muy muy útil!
Todos estamos acostumbrados a trabajar con varias hojas en un solo libro, verdad? Pues estaría genial poder crear un índice para poder acceder a todas las hojas de una manera eficaz!
Pues hoy veremos una macro que nos ayudará a hacer exactamente eso!
Veremos una manera inteligente de crear un índice para todas las hojas, en el que se pueda hacer clic en el nombre de la hoja para ir directamente a esa hoja.
Así es como lo hacemos
Imaginemos que tenemos un libro con una hoja para cada país.
Los países mostrados en las hojas, representan el ranking de visitas a mi web por países.
Y nos gustaría situar un índice en una nueva hoja con los nombres de las hojas con hipervínculo a su respectiva hoja.
Pues esto se puede hacer con un simple código VBA
Ahí va el código.
Sub CrearIndice()Dim NumHoja As IntegerSheets.Add before:=Sheets(1)For NumHoja = 2 To Worksheets.Count ActiveSheet.Hyperlinks.Add _ Anchor:=Cells(NumHoja - 1, 2), _ Address:="", _ SubAddress:="'" & Worksheets(NumHoja).Name & "'!A1", _ TextToDisplay:=Worksheets(NumHoja).Name Cells(NumHoja - 1, 1) = NumHoja - 1Next NumHojaActiveSheet.Name = "Indice"ActiveWindow.DisplayGridlines = FalseEnd Sub
Sigue los siguientes pasos
- Copiamoa el código
- Abrimos el libro de Excel donde quieres crear un índice de hoja
- Presionamos el atajo Alt + F11 para abrir la ventana de Visual Basic
- En el menú Insertar, hacemos clic en Módulo o utilizamos el acceso directo Alt + i + m para agregar un Módulo. El módulo es el lugar donde se escribe el código
- En el módulo en blanco peguamos el código y cierramos el Editor de Visual Basic
- A continuación, utilizamos el atajo Alt + F8 para abrir el cuadro de macro. Ahí se tiene la lista de todas las macros que se pueden ejecutar
- Veremos la macro que acabamos de pegar en el módulo como 'CrearIndice'
- Ejecutamos la macro.
- Resultado. Se verá un índice con todos los nombres de hoja con hipervínculo a la hoja respectiva.
- Puedes formatear el índice a tu medida.
**************************************************************************************************
Si te gustaría entender las macros mucho mejor en 2016, aquí te dejo un enlace:
***************************************************************************************************
Bueno pues ya está! Espero que te ayude!
Te ha gustado el artículo?
No te olvides de mostrar tu gratitud hacia el autor (yo) mediante una de las 3 siguientes acciones:
1. Puedes dejar una donación pinchando en la siguiente imagen.
2. Puedes hacer clic en los anuncios mostrados en la página
3. Puedes recomendar el artículo en Google haciendo clic en g+1 (justo después del artículo), también puedes compartirlo en Facebook, y/o dejar comentarios.
1. Puedes dejar una donación pinchando en la siguiente imagen.
2. Puedes hacer clic en los anuncios mostrados en la página
3. Puedes recomendar el artículo en Google haciendo clic en g+1 (justo después del artículo), también puedes compartirlo en Facebook, y/o dejar comentarios.
Quieres aprender más en Excel o tienes algún problema que necesita solución?
Puedo ofrecer servicios de consultoría así como cursos personalizados online. Mírate el siguiente enlace si estás interesado/a.
El Sabio de Excel busca colaborades del blog
Si te interesa compartir tu conocimiento sobre Excel de tal manera que puedas ayudar a otras personas, por favor mándame un email a elsabiodeexcel@gmail.com
No hay comentarios:
Publicar un comentario