Cuadro combinado

Javier.

'Primeramente dentro del evento _open del Workbook, añadimos los items que
necesites:
'
Private Sub Workbook_Open()
Hoja1.ComboBox1.AddItem "Hoja2"
Hoja1.ComboBox1.AddItem "Hoja3"
End Sub
'
'Después asignamos una macro donde reconozca el item seleccionado:
'
Private Sub CommandButton1_Click()
Select Case ComboBox1
Case "Hoja2"
Sheets("hoja2").Activate
Case "Hoja3"
Sheets("hoja3").Activate
End Select
End Sub
'
'También puedes asignarle la misma acción al evento _change del Combo:
'
Private Sub ComboBox1_Change()
Select Case ComboBox1
Case "Hoja2"
Sheets("hoja2").Activate
Case "Hoja3"
Sheets("hoja3").Activate
End Select
End Sub
'
'En el caso de que el número de hojas cambien regularmente, las siguientes
macros crean una lista de todos los nombres de hojas actuales:
'
Private Sub Workbook_Open()
For Each hojas In ThisWorkbook.Sheets
Hoja1.ComboBox1.AddItem hojas.Name
Next hojas
End Sub
'
Private Sub ComboBox1_Change()
hoja = ComboBox1.Value
Sheets(hoja).Select
End Sub

<!-- Tec. Inf. Sergio A Campos H -->

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net


"luka79" escribió en el mensaje
news:

Hola a todos.
¿Se puede hacer que una opción de un cuadro combinado o de un cuadro de
lista abra una libro de excel o me lleve a una hoja de un libro abierto?
Yo actualmente lo hago con hipervínculos, pero quisiera cambiarlo.

Gracias anticipadas a todos
Javier.B.A