No se cargan los datos de un combobox dependientes de una hoja oculta
Hola, tengo el siguiente problema, tengo que llenar los datos de un combobox en un userform, estos datos proviene de una hoja de excel que se encuentra oculta, mi problema es que cuando oculto la hoja no me carga los datos en el combobox, adjunto el código ...
Private Sub UserForm_activate()
On Error Resume Next Application.ScreenUpdating = False
'cuenta las filas para la Tabla
varUltFlaCa = Worksheets("pdPzCa").UsedRange.Rows.Count
'-- add datos
For k01 = 2 To varUltFlaCa
If Cells(k01, 2) <> Empty Then
'ComboBox1.AddItem Hoja02.Cells(k01, 1)
End If
Next
End sub
1 Respuesta
Bien la solución para eso es visualizar la hoja mediante la macro para poder cargar el combo y después ocultarla mediante la macro para dejarla como estaba.
Si quedó claro, recuerda finalizar la consulta
Hola Luis, gracias por tu tiempo y colaboración, que opinas si antes de enviar los valores al combobox los paso por una variable variant y después los adiciono al combox, algo asi:
Private Sub UserForm_activate()
Dim vrtCbx1 as Variant
On Error Resume Next Application.ScreenUpdating = False
'cuenta las filas para la Tabla
varUltFlaCa = Worksheets("pdPzCa").UsedRange.Rows.Count '-- add datos
For k01 = 2 To varUltFlaCa
If Cells(k01, 2) <> Empty Then
vrtCbx1 = Hoja02.Cells(k01, 1)
End If
Next
ComboBox1.AddItem vrtCbx1
End sub
Saludos ...
La pregunta es: ¿Te funcionó este último método?
Yo lo hubiera hecho como dije en mi anterior post
¿Lo hiciste?
Gracias por tu ayuda, la variable variant funciona pero es bastante tedioso ... por tal razón decido optar por tu método, y pegue el siguiente código en el "ThiWorkBook" ...
Private Sub Workbook_Open()
Application.Visible = False
UserForm.Show vbModeless
End
Luis muchas gracias tu respuesta me fue de gran utilidad ...
Saludos
Pero con eso haces visible la aplicación excel entera y tu decías que una hoja era la oculta... perdona pero me he despistado, es la hoja o la aplicación entera.
