Desplazarse por hojas, con macros

Como son muchos los internautas que llegan hasta este blog buscando como desplazarse por las hojas, utilizando macros, vamos a aprovechar para darle un repasito al tema.

Si lo que queremos es pasar a la hoja siguiente, entonces deberemos copiar este código en un módulo:

Sub hoja_siguiente() 'Pasamos a la hoja siguiente 'pero controlamos previamente 'que haya una hoja detrás de la 'hoja en la que nos encontramos 'es decir, detrás de la hoja activa. 'Si no estamos en la última hoja... If ActiveSheet.Name <> Sheets(Sheets.Count).Name Then 'entonces pasamos a la siguiente hoja ActiveSheet.Next.Select End If End Sub

Si lo que deseamos es ir a la hoja inmediatamente anterior a la que estamos:

Sub hoja_anterior() 'Si no estamos en la primera hoja... If Not Sheets(1).Select Then 'entonces pasamos a la anterior hoja ActiveSheet.Previous.Select End If End Sub

Si queremos desplazarnos a una hoja determinada, accederemos a ella por su nombre:

Sub hoja_de_inversiones_2008() 'Pasamos a una hoja determinada, 'en este caso, a una llamada INVERSIONES 2008 '(no perderemos tiempo, controlando si ya 'estamos o no en esa hoja donde queremos ir) Sheets("INVERSIONES 2008").Select End Sub

Pero... ¿qué pasaría en el caso de que alguien le cambiara el nombre a una hoja?. Si estamos utilizando el código anterior en un libro de excel, y alguien le cambia el nombre a la hoja llamada INVERSIONES 2008, y le pone por ejemplo INVER.08, nuestro macro nos marcará un error en la línea donde aparece el nombre de la hoja, puesto que no puede acceder a una hoja inexistente (INVERSIONES 2008). Para solucionar este contratiempo, podemos trabajar con los nombres internos de las hojas, es decir, los nombres de las hojas, tal y como nos aparecen en el módulo VBA. Si os fijáis en la siguiente imagen, veréis que he remarcado el nombre interno de la hoja para trabajar con él, y aunque alguien le cambie el nombre a la hoja INVERSIONES 2008, no pasará nada (a no ser que le cambien en nombre interno desde VBA, pero esto se soluciona protegiendo nuestro código):

Sub ir_a_la_hoja_de_inversiones_2008() 'Si le cambian el nombre a la hoja, no podremos 'acceder a ella, por eso es mejor acceder 'por el nombre interno que es el que aparece 'arriba a la izquierda en esta pantalla VBA 'justo delante del nombre (INVERSIONES 2008) Hoja2.Select End Sub

Si lo que deseamos es desplazarnos a la última hoja del libro, entonces nos bastará con utilizar esto:

Sub ultima_hoja() 'Ahora nos desplazamos a la última hoja Sheets(Sheets.Count).Select End Sub

Y si por el contrario, lo que deseamos es desplazarnos a la primera hoja del libro, entonces tendremos que utilizar este otro código:

Sub primera_hoja() 'Ahora nos desplazamos a la primera hoja Sheets(1).Select End Sub

Creo que con esto, ya no nos quedará ninguna duda de como podemos desplazarnos por las hojas de un libro.