Función BuscarV desde dos ComboBox a listbox dentro de un UserForm
Estimada Elsa:
Como podría hacer para utilizar los dos valores de los combobox, es decir en caso de no tener el dato del cbm_NCI busque por el cbm_US, aunque al seleccionar el usuario este automáticamente ingresa el valor correspondiente en el cbm_NCI no inserta los datos en los correspondientes listbox's, es decir no encuentra los datos.
Gracias de nuevo
Cordiales saludos
Blás
1 Respuesta
Respuesta de Elsa Matilde
1
Debes agregar esta otra subrutina siguiendo el modelo que tengo de la consulta anterior.
Private Sub cbm_US_Click()
'agregada x Elsamatilde
Dim busco, hojaB
Dim dato As String
Dim i As Long
'al seleccionar un elemento se busca en hoja BASE y se devuelve el curso en el listbox CU
If cbm_US = "" Then Exit Sub
'limpia el listbox de posibles datos anteriores, xq solo interesa presentar 1 registro
lst_CU.Clear
'el dato es numérico
dato = cbm_US.Value
'se busca en hoja BASE DE DATOS"
Set hojaB = Sheets("BD")
For i = 5 To hojaB.Range("B" & Rows.Count).End(xlUp).Row
If hojaB.Range("B" & i) = dato Then
'si lo encuentra devuelve el texto de la col C
lst_CU.AddItem hojaB.Range("C" & i)
'agregar el resto de los campos
Exit For
End If
Next i
End SubRevisa el nombre de la hoja que por ahora la tengo como BD.
