Combobox seleccione algunas hojas
Hola elsa.. Hace unos días hice una pregunta sobre como crear un combobox en que en la lista saliera todas las hojas del libro de excel con sus respectivos nombres y a la vez estas estaban vinculadas... Me diste la solución y me funciono pero me salen todas las hojas y solo quiero que me seleccione solo 3 :P... Me falto ser más claro, perdón.
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex 'indica la ubicación del item
Case 0
HojaA.Activate
Case 1
Hoja2.Activate
Case 2
Hoja3.Activate
'otros Case
End Select
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
Esa fue la solución que me diste, pero al hacer click sobre el combobox me salen todas las hojas y solo quiero que este combobox1 me seleccione las hojas 1,2,3 con su respectivo nombre claro, y que un segundo combobox me seleccione las hojas 4,5,6. Perdón por no haber sido claro anteriormente y gracias por la ayuda ;D
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex 'indica la ubicación del item
Case 0
HojaA.Activate
Case 1
Hoja2.Activate
Case 2
Hoja3.Activate
'otros Case
End Select
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
Esa fue la solución que me diste, pero al hacer click sobre el combobox me salen todas las hojas y solo quiero que este combobox1 me seleccione las hojas 1,2,3 con su respectivo nombre claro, y que un segundo combobox me seleccione las hojas 4,5,6. Perdón por no haber sido claro anteriormente y gracias por la ayuda ;D
1 respuesta
Respuesta de Elsa Matilde
1
Debés ajustar la 2da rutina entonces. Para el primer combo será:
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For i = 1 To 3 'para el 2do control será For i = 4 to 6
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
En la otra rutina tendrás, para los 2 controles, los Case = 0 , Case = 1 y Case = 2 solamente, que te llevarán a las hojas correspondientes.
Saludos
Elsa
* No te pierdas la promo del mes aquí:
http://es.geocities.com/lacibelesdepunilla/manuales
Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
For i = 1 To 3 'para el 2do control será For i = 4 to 6
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
En la otra rutina tendrás, para los 2 controles, los Case = 0 , Case = 1 y Case = 2 solamente, que te llevarán a las hojas correspondientes.
Saludos
Elsa
* No te pierdas la promo del mes aquí:
http://es.geocities.com/lacibelesdepunilla/manuales
