Tabla de contenido
Crear índice de hipervínculo de todas las hojas de trabajo en el libro de trabajo
Llevemos la macro para enumerar todas las hojas de un libro de trabajo un paso más allá y creemos un menú con hipervínculos para cada hoja de un libro de trabajo. Este es un gran ahorro de tiempo para alguien que tiene muchas hojas y está tratando de crear un menú de hipervínculos a cada una de forma manual.
Para usar la macro, simplemente reemplace la palabra Sheet1 (aparece dos veces) en el código con el nombre de la pestaña donde le gustaría obtener los resultados. Asegúrese de que no haya información importante en la pestaña de salida porque borra los datos antes de escribir en ella. Después de que se ejecuta la macro, se crea una lista de cada hoja con un hipervínculo a cada hoja.
| 1234567891011121314151617181920 | Sub ListSheets ()Dim ws como hoja de trabajoDim x como enterox = 1Hojas ("Hoja1"). Rango ("A: A"). BorrarPara cada ws en hojas de trabajoHojas ("Hoja1"). Celdas (x, 1) .SeleccioneActiveSheet.Hyperlinks.Add _Ancla: = Selección, Dirección: = "", Subdirección: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Siguiente wsEnd Sub |
