Localizar las hojas automaticamente

hola, Jesús !

... libro ... mas de 60 hojas ... ordenadas ... sigue siendo un problema localizarlas ... cada vez que tengo que [...]

existen varios metodos de 'navegacion' por las hojas de un mismo libro [p.e.]
- seleccionar 'directamente' la pestaña de la hoja con el raton
- 'avanzar' a la [siguiente <|> previa] hoja con el teclado =>{Ctrl}+{AvPag} <|> {Ctrl}+{RePag}<- un 'click-derecho' en las flechas de navegacion en la parte inferior izquierda
[junto a los nombres de las hojas y barra de desplazamiento horizontal] 'presenta' una lista de las hojas en el libro
- usar los atajos para 'ir a...' [cualquiera de los cuatro metodos siguientes]
a. edicion / ir a...
b. {Ctrl}+i
c. {F5}
d. desplegar la 'caja de nombres y direcciones' [a la izquierda de la barra de formulas]
... e introducir la referencia [p.e. Hoja60!a25 o... 'Nombre de la hoja'!a45]
=> 'nota' que entre el nombre de la hoja y el rango de referencia... 'va' un signo >!< [cierre de admiracion] < y... si el nombre de la hoja tiene 'espacios' [o solo numeros] se delimita con apostrofos >'< [antes del signo]
- asignar nombres UNICOS [en el libro] a celdas 'especiales' [de cada hoja] y usar los atajos anteriores
- una macro [como la siguiente]
___ en un modulo de codigo 'normal' ___
Sub Ir_a_OtraHoja()
Dim LaHoja As Object, EstaHoja As String
EstaHoja = InputBox("Indica el nombre de la hoja", "Ir a otra hoja...")
If EstaHoja <> "" Then
On Error Resume Next
Set LaHoja = Sheets(EstaHoja)
If Not LaHoja Is Nothing Then
LaHoja.Activate
Else: MsgBox "La hoja solicitada NO ""existe"" !!!", , ""
End If
Else: MsgBox "Cambio de hoja ""cancelado"".", , ""
End If
Set LaHoja = Nothing
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Gracias. La solucion de la macro, genial, se ajusta a lo
que yo pedia y necesitaba. Lo sorprendete es lo de pulsar
F5, 'nombre de la hoja?'!a45, eso si que realmente me ha
parecido genial, creo que por mucho utilizar la hoja
jamas me hubiese percatado de ello. Muy agradecido por tu
ayuda. Saludos.

hola, Jesús !

... libro ... mas de 60 hojas ... ordenadas ... sigue

siendo un problema localizarlas ... cada vez que tengo
que [...]

existen varios metodos de 'navegacion' por las hojas de

un mismo libro [p.e.]

- seleccionar 'directamente' la pestaña de la hoja con

el raton

- 'avanzar' a la [siguiente <|> previa] hoja con el

teclado =>{Ctrl}+{AvPag} <|> {Ctrl}+{RePag}<>- un 'click-derecho' en las flechas de navegacion en la
parte inferior izquierda

[junto a los nombres de las hojas y barra de

desplazamiento horizontal] 'presenta' una lista de las
hojas en el libro

- usar los atajos para 'ir a...' [cualquiera de los

cuatro metodos siguientes]

a. edicion / ir a...
b. {Ctrl}+i
c. {F5}
d. desplegar la 'caja de nombres y direcciones' [a la

izquierda de la barra de formulas]

... e introducir la referencia [p.e. Hoja60!a25

o... 'Nombre de la hoja'!a45]

=> 'nota' que entre el nombre de la hoja y el

rango de referencia... 'va' un signo >!< [cierre de
admiracion] <> y... si el nombre de la hoja
tiene 'espacios' [o solo numeros] se delimita con
apostrofos >'< [antes del signo]

- asignar nombres UNICOS [en el libro] a

celdas 'especiales' [de cada hoja] y usar los atajos
anteriores

- una macro [como la siguiente]
___ en un modulo de codigo 'normal' ___
Sub Ir_a_OtraHoja()
Dim LaHoja As Object, EstaHoja As String
EstaHoja = InputBox("Indica el nombre de la hoja", "Ir

a otra hoja...")

If EstaHoja <> "" Then
On Error Resume Next
Set LaHoja = Sheets(EstaHoja)
If Not LaHoja Is Nothing Then
LaHoja.Activate
Else: MsgBox "La hoja solicitada

NO ""existe"" !!!", , ""

End If
Else: MsgBox "Cambio de hoja ""cancelado"".", , ""
End If
Set LaHoja = Nothing
End Sub
šššššššššššš
saludos,
hector.


.

;)