HOLA,
Tu formula me ha funcionado, solo que en una sola columna, es decir, para la columna G(LIST_CEDULA) la lista se incrementa normalmente, pero para la columna H(LIST_NOMBRE) la lista muestra tambien las celdas en blanco......
Sin embargo la dí solución a mi problema con dos ComboBox y un DO WHILE .... LOOP en el evento Click de uno de ellos......
Private Sub CBOBUSCAR_Click()
CBOITEMS.Clear
If CBOBUSCAR.Text = "Cedula" Then
CONSULTA.Range("G5").Select
Do While ActiveCell <> Empty
CBOITEMS.AddItem ActiveCell.Text
ActiveCell.Offset(1, 0).Select
Loop
Else
CONSULTA.Range("H5").Select
Do While ActiveCell <> Empty
CBOITEMS.AddItem ActiveCell.Text
ActiveCell.Offset(1, 0).Select
Loop
End If
End Sub
Muchas gracias por tu ayuda
CHAO
