Formulario que busque por medio de un combobox las hojas de un libro Excel
Formulario que busque por medio de un combo box las hojas de un libro Excel, dicho combo box liste o cargue solo las hojas visible y no tome en cuenta las hojas ocultas sin cambiar el atributo. Se recorra por la hoja seleccionada sin ningún error. Encontré este código por internet pero da un error con las hojas oculta
Private Sub ComboBox1_Change()
'On Error Resume Next
'Ir a la hoja
Irhoja = ComboBox1
Sheets(Irhoja).Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Hoja As Worksheet
ComboBox1.Clear
For Each Hoja In Worksheets
Mysheet = Hoja.Name
ComboBox1.AddItem Mysheet
Next
End Sub
1 respuesta
[Hola
Valora la respuesta para finalizar
Lo harías de esta manera
Private Sub UserForm_Initialize() Dim Hoja As Worksheet ComboBox1.Clear For Each Hoja In Worksheets If Hoja.Visible <> False Then ComboBox1.AddItem Hoja.Name End If Next End Sub
creas un botón para seleccionar la hoja
Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select End Sub
Gracias por molestarte en ayudarme, pero en el archivo que quiero implementar el formulario el atributo de las hojas esta en xlsheetveryhidden por lo tanto como hago que funcione? gracias de ante mano
Valora la respuesta para finalizar
Va la macro
Private Sub UserForm_Initialize() Dim Hoja As Worksheet ComboBox1.Clear For Each Hoja In Worksheets If Hoja.Visible <> xlSheetVeryHidden Then ComboBox1.AddItem Hoja.Name End If Next End Sub
