Cargar Combobox dependientes desde un UserForm con varias Bases de Datos
Continuando con nuestro proyecto, necesitaría nuevamente dos combobox dependientes desde una UserForm con Bases de Datos en diferentes hojas (Hoja Inventario). El primer Combobox correspondería a Referencia y el segundo combobox correspondería a la Descripción del libro
La hoja Inventario viene vacía por lo que no pude definir a qué llamas Referencia, Descripción la veo en col F pero luego no se identifica con los nombres de los controles.
Resumiendo: ¿Qué col de datos querés colocar en cada combo? y luego... ¿serán dependientes uno del otro?.
Pasame un par de filas con datos y las aclaraciones para continuar.
Sdos!
Estimada Experta:
Te envió el libro con datos de ejemplo en la hoja inventario, pude avanzar un poco con la programación pero me quede trabado con un error dentro del cbm_DL
Gracias por la ayuda
Saludos cordiales
Blás
Debes ajustar en la siguiente subrutina los textos que marco con negrita:
Private Sub cbm_DL_CHANGE()
If CargandoL Then Exit Sub
CargandoL = True
cbm_RL = ""
If cbm_DL.ListIndex > -1 Then
cbm_RL = cbm_RL.List(cbm_DL.ListIndex)
End If
CargandoL = False
'SEARCH DATE (DBOOK'S)
Dim BUSCOL, HOJAC
Dim DATOL As String, I As Long 'aquí
If cbm_DL = "" Then Exit Sub
DATOL = cbm_DL.Value
Set HOJAC = Sheets("INVENTARIO")
For I = 5 To HOJAC.Range("A" & Rows.Count).End(xlUp).Row
If HOJAC.Range("F" & I) = DATOL Then 'aquí
txt_TL.Text = HOJAC.Range("G" & I)
Sdos!
¡Gracias! Estimada Experta:
Tus conocimientos son una ayuda invaluable para el desarrollo del proyecto
Saludos Cordiales
Blás
