buscar hoja por nombre

30/08/2004 - 19:47 por Coringo | Informe spam
Buenas tardes amigos del foro.
Mi pregunta es si hay alguna forma de buscar y activar
una hoja de un libro.Tengo uno que tiene muchas hojas y
quisiera desde cualquier hoja que me salga un cuadro de
texto o un imputbox que ponga el nombre de la hoja que
quiero ir.
Un saludo.
Coringo

Preguntas similare

Leer las respuestas

#1 Anonimo
30/08/2004 - 19:58 | Informe spam
situa el raton en las flechas situadas en el ángulo
inferior izquierdo (al lado de las pestañas de las hojas),
pulsas el boton secundario y te saldrán todas las hojas.
Alli podrás seleccionar la que quieras.



Buenas tardes amigos del foro.
Mi pregunta es si hay alguna forma de buscar y activar
una hoja de un libro.Tengo uno que tiene muchas hojas y
quisiera desde cualquier hoja que me salga un cuadro de
texto o un imputbox que ponga el nombre de la hoja que
quiero ir.
Un saludo.
Coringo
.

Respuesta Responder a este mensaje
#2 marc_
30/08/2004 - 20:24 | Informe spam
Una posible solución seria crear un formulario con un ComboBox y un Boton,
con el siguiente codigo

Private Sub UserForm_Activate()
With ActiveWorkbook
For I = 1 To .Sheets.Count
ComboBox1.AddItem .Sheets.Item(I).Name
Next
End With
End Sub

Private Sub CommandButton1_Click()
Worksheets(ComboBox1.Text).Activate
End Sub

y luego crear una macro con el codigo

Sub AbrirFormulario()
UserForm1.Show
End Sub

que te habrira el formulario. Lo mejor sera que le asignes una combinacion
de teclas, por ejemplo Ctr+f (por decir algo)
Respuesta Responder a este mensaje
#3 Coringo
30/08/2004 - 20:47 | Informe spam
Muchas gracias a los 2 por responder,ya probe lo que me
dices anonymous y trabaja bien no sabia eso,voy a probar
como me dices marc,pues a mi me gusta mucho trabajar con
codigos y botones.
Un saludo Coringo




Una posible solución seria crear un formulario con un


ComboBox y un Boton,
con el siguiente codigo

Private Sub UserForm_Activate()
With ActiveWorkbook
For I = 1 To .Sheets.Count
ComboBox1.AddItem .Sheets.Item(I).Name
Next
End With
End Sub

Private Sub CommandButton1_Click()
Worksheets(ComboBox1.Text).Activate
End Sub

y luego crear una macro con el codigo

Sub AbrirFormulario()
UserForm1.Show
End Sub

que te habrira el formulario. Lo mejor sera que le


asignes una combinacion
de teclas, por ejemplo Ctr+f (por decir algo)

.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida