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

1 Respuesta

Respuesta
1

Miraré la última versión que me enviaste y veré si me queda clara la consulta.

Sdos.

Elsa

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 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas