Hola mira esto:
Entra al visual basic de tu excel Alt+F1 y crea un formulario, es decir Inserta un Userform donde añadiras un textbox,un label y dos commandbutton. (El textbox es donde escribiras el numero de la hoja, el label es la etiqueta donde el valor .Caption sera Hoja y un boton para buscar y otro para volver a la Hoja1.
Resumamos: En tu userform primero ubica tu label1 o etiqueta cuya propiedad .Caption es
Hoja, seguido ubica tu textbox1, luego ubica los dos botones, las propiedades .Caption pueden ser para uno
Aceptar y para el otro
Inicio.
Al boton Aceptar colocale este codigo:
Private Sub CommandButton1_Click()
Sheets(Label1.Caption + TextBox1.Text).Select
TextBox1.Text = ""
TextBox1.SetFocus
End Sub
Al boton Inicio colocale este:
Private Sub CommandButton2_Click()
Sheets("Hoja1").Select
End Sub
Ahora en la hoja1 de tu libro coloca un Commandbutton más, le puedes dar como propiedad .Caption BUSCAR y le colocaes este codigo:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Ahora entra de nuevo a Visual, y ejecuta el userform; cierra tu visual y pruebalo , debe funcionarte. Si no funciona por algun motivo escribeme a
[email protected] y te envio el archivo.
Debes tener en cuenta que si escribes un numero de Hoja que no existe generara error de compilacion, pero eso lo puedes arreglar luego. Si ya tienes fijo cuantas hojas tiene tu libro pues entonces lo puedes arreglar con un ciclo if donde si se cumple el numero de la Hoja te lleva a ella, sino pues gereras un MsgBox que te diga que la hoja no existe.
SUERTE
