¿Ver hojas excepto algunas con combobox? '
Hola, ¿podrías ayudarme con esta incógnita? Tengo este código:
Private Sub ComboBox1_Enter()
'En caso de error, que continúe
On Error Resume Next
'Esto se producirá cuando nos
'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1
ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.Count
'Añadimos los nombres de las hojas al combobox
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
.
Private Sub CommandButton1_Click()
'En caso de error, que continúe
On Error Resume Next
'leemos lo que nos devuelven los combobox
hoja_elegida = ComboBox1.List(ComboBox1.ListIndex)
'vamos a la hoja elegida
Sheets(hoja_elegida).Select
.
Que me permite seleccionar una hoja del combobos y con un botón ir a ella,
Lo que quisiera modificar es que el combobox elija todas las hojas menos las que dicen "HOJA FORMATO" Y "HOJA DE PRUEBA"
Private Sub ComboBox1_Enter()
'En caso de error, que continúe
On Error Resume Next
'Esto se producirá cuando nos
'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1
ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.Count
'Añadimos los nombres de las hojas al combobox
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
.
Private Sub CommandButton1_Click()
'En caso de error, que continúe
On Error Resume Next
'leemos lo que nos devuelven los combobox
hoja_elegida = ComboBox1.List(ComboBox1.ListIndex)
'vamos a la hoja elegida
Sheets(hoja_elegida).Select
.
Que me permite seleccionar una hoja del combobos y con un botón ir a ella,
Lo que quisiera modificar es que el combobox elija todas las hojas menos las que dicen "HOJA FORMATO" Y "HOJA DE PRUEBA"
1 Respuesta
Respuesta de borisbarrera
1
Private Sub ComboBox1_Enter()
'En caso de error, que continúe
On Error Resume Next
'Esto se producirá cuando nos
'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1
ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.Count
If Sheets(i).Name = "Hoja Formato" Then
ElseIf Sheets(i).Name = "Hoja de prueba" Then
'Añadimos los nombres de las hojas al combobox
Else
ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub
Private Sub ComboBox1_Enter()
'En caso de error, que continúeOn Error Resume Next
'Esto se producirá cuando nos'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.CountIf Sheets(i).Name = "Hoja Formato" Then
'dejar en blanco
ElseIf Sheets(i).Name = "Hoja de prueba" Then
'dejar en blanco
'Añadimos los nombres de las hojas al combobox
Else
ComboBox1.AddItem
Sheets(i).Name
End If
Next
End Sub
Recuerda valorar la respuesta y finalizar la pregunta. Saludos.
PD: Ojo que los nombres de hojas deben coincidir en todas sus mayúsculas y minúsculas para que esto funcione.
'En caso de error, que continúe
On Error Resume Next
'Esto se producirá cuando nos
'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1
ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.Count
If Sheets(i).Name = "Hoja Formato" Then
ElseIf Sheets(i).Name = "Hoja de prueba" Then
'Añadimos los nombres de las hojas al combobox
Else
ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub
Private Sub ComboBox1_Enter()
'En caso de error, que continúeOn Error Resume Next
'Esto se producirá cuando nos'situemos sobre el combobox1
'antes quitaremos todo lo que haya en el combobox1ComboBox1.Clear
'Vamos a llenar dinámicamente el combobox
'con los nombres de las hojas
For i = 1 To Sheets.CountIf Sheets(i).Name = "Hoja Formato" Then
'dejar en blanco
ElseIf Sheets(i).Name = "Hoja de prueba" Then
'dejar en blanco
'Añadimos los nombres de las hojas al combobox
Else
ComboBox1.AddItem
Sheets(i).Name
End If
Next
End Sub
Recuerda valorar la respuesta y finalizar la pregunta. Saludos.
PD: Ojo que los nombres de hojas deben coincidir en todas sus mayúsculas y minúsculas para que esto funcione.
Mil gracias hermano, funiciona perfecto, después descargare el archivo que me diste el link, porque aquí en el trabajo no se tiene acceso a esa página lastimosamente
