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

Hola Sergio, gracias por tus consejos, pero soy un poco tronco en esto del VB.
He seguido tus indicaciones para cuando cambia el evento y al abrir el libro
me sale la siguiente pantalla de aviso

Microsoft Visual Basic

Error de compilación:

No se encontró el método o el dato miembro

Aceptar Ayuda

y al darle Aceptar se activa en amarillo la línea
Private Sub Workbook_Open()

Gracias de nuevo
Javier.B.A


":: Sergio A Campos H" escribió:

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

Hola Sergio, otra vez yo.

El problema que te expuse antes es porque no había puesto el combobox en la
hoja correcta. Ya lo he corregido y no me da ese problema, pero cuando
selecciono en el combo la hoja 2 o la hoja 3, no pasa nada, o al menos no
pasa nada que yo (que soy bastante miope) pueda ver

Gracias nuevamente
Javier.B.A


":: Sergio A Campos H" escribió:

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

Javier.

'En el ThisWorboook incluí la macro:
'
Private Sub Workbook_Open()
For Each hojas In ThisWorkbook.Sheets
Hoja1.ComboBox1.AddItem hojas.Name
Next hojas
End Sub
'
'Y en el código de la Hoja1 incluí la siguiente macro:
'
Private Sub ComboBox1_Change()
hoja = ComboBox1.Value
Sheets(hoja).Select
End Sub
'
Me funciona perfectamente. Toma en cuenta que si eliges la primera opción,
se quedará en la misma hoja... debes de elegir las opciones siguientes para
que te mande a la hoja que selecciones.

<!-- 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 Sergio, otra vez yo.

El problema que te expuse antes es porque no había puesto el combobox en
la
hoja correcta. Ya lo he corregido y no me da ese problema, pero cuando
selecciono en el combo la hoja 2 o la hoja 3, no pasa nada, o al menos no
pasa nada que yo (que soy bastante miope) pueda ver

Gracias nuevamente
Javier.B.A


":: Sergio A Campos H" escribió:

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

hola, Javier !

Se puede hacer que una opcion de un cuadro combinado o... de lista abra una libro de excel o me lleve a una hoja de un libro abierto?
Yo actualmente lo hago con hipervinculos, pero quisiera cambiarlo.

-> para el caso de 'cambiar' de hoja/s dentro de un libro...
op1: podrias evitar el uso de codigo si pulsas con el boto derecho del puntero
-> sobre las 'flechas' en la parte inferior izquierda de las barras de desplazamiento ;)
op2: podrias 'minimizar' el uso de codigo y aligerar la carga y 'llenado' de cuadros combinados/lista con algo +/- como:
en un modulo de codigo 'normal' ==Sub CambiarHoja()
With Application.CommandBars("Workbook Tabs").Controls(16)
If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup
End With
End Sub

-> macro a la que podrias asignarle un 'atajo de teclado' ;)

saludos,
hector.