Desplazarme en una lista desplegable de ComboBox.1, por las hojas de cálculos
Tengo una hoja, con una lista desplegable a través de un ComboBox.1, en la lista están los datos: prueba1, prueba2, prueba3, prueba4, me gustaría que cuando escoja un dato de la lista, me pueda desplazar a una hoja especifica, estoy apenas aprendiendo un poco de visual basic, pero me imagino que las hojas del libro de excel, deben tener el mismo nombre de los nombres de la lista desplegable, pero no se como realizarlo, me podrían ayudar...
1 Respuesta
Con el comando
sheets("hoja1").select
Si no puedes adaptarlo a tu archivo sube el mismo desde http://www.programarexcel.com/p/contacto.html viso el archivo y te lo devuelvo con la solución.
Mientras visita http://www.programarexcel.com hay muchos ejemplos que puedes adaptar a lo que estés haciendo en excel y si eres novato en el tema te puede ayudar bastante descargando ejemplos y viendo su funcionamiento.
Ingresa ese código en la hoja donde tienes el combo box para seleccionar las hojas, debes adaptarlo con el nombre de tu hoja, mira el ejemplo preparado para ti acá, http://www.programarexcel.com/2013/10/combobox-lista-hojas-y-selecciona-hoja.html
También te he preparado otro ejemplo pero en vez de tener un combobox activex (inrustado) trabaja con un formulario.
Private Sub ComboBox1_Change()
On Error Resume Next
Application.ScreenUpdating = False
Dim fila, ran, gosheet As String
Dim i As Integer
Dim hoja As Worksheet
x = 0
fila = 1
For Each hoja In Worksheets
x = x + 1
'Escribe el nombre de la hoja en la columna Z
Worksheets("Hoja1").Cells(fila, 26) = hoja.Name
fila = fila + 1
Next
'Creo el rango
ran = Range("Z1", Range("Z1").End(xlDown)).Address
'Lleno listbox con nombre de hojas
ComboBox1.ListFillRange = ran
gosheet = ComboBox1
'Selecciono la hoja
Sheets(gosheet).Select
Application.ScreenUpdating = True
End Sub
visita: http://programarexcel.com/
