Combobox que se arme de acuerdo a las hojas del documento y elegir que hojas no aparezca en ese listado.
Tengo un combobox que arma un listado de todas las hojas del documento a excepcion de donde se encuentra el combobox mismo. ¿Se puede restringir que hojas aparezcan en dicho listado?. No quisiera que aparezca la hoja "auxiliar"
La macro con la que se arma el combobox es el siguiente.
Private Sub ComboBox1_DropButtonClick() 'Por.Dante Amor actual = ComboBox1.Value ComboBox1.Clear For Each h In Sheets If h.Name <> ActiveSheet.Name Then ComboBox1.AddItem h.Name End If Next ComboBox1.Value = actual End Sub
2 Respuestas
Respuesta de Adriel Ortiz Mangia
1
[Hola
prueba con esto
Private Sub ComboBox1_DropButtonClick() 'Por.Dante Amor actual = ComboBox1.Value ComboBox1.Clear For Each h In Sheets Select Case h.Name Case "Hoja1", "Hoja2", "Auxiliar" ' Hojas a excluir de la lista Case Else ComboBox1.AddItem h.Name End Select Next ComboBox1.Value = actual End Sub
Respuesta de James Bond
1
En tu código tienes la respuesta solo vas agregando en esa línea las hojas que no quieras que aparezcan
if h.Name <> ActiveSheet.Name or ucase(h.Name) <> "AUXILIAR" Then