Autocompletar con un Combobox
Hola de nuevo Matador.
Quería consultarte lo siguiente: ¿Tendrás idea de cómo sería el código para poder utilizar un combobox en un formulario para que a medida que vaya ingresando un nombre los vaya buscando en la columna B de una determinada hoja y me los vaya listando en el combobox?
La cuestión es que en la columna B antes mencionada todos los nombres se repiten al menos 3 veces, por ejemplo:
Acosta Lucas
Acosta Lucas
Acosta Lucas
Acosta Roxana
Acosta Roxana
Acosta Roxana
Acosta Roxana
Acosta Jael
Acosta Jael
Acosta Jael
Por lo que necesitaría que en el combobox, al listarlo simplemente se visualicen una sola vez. Encontré algunos otros ejemplos por acá, pero a la hora de ejecutarlos, dan error.
¿Tendrías algún ejemplo como para ir entendiendo la manera de hacerlo?... Desde ya muchas gracias por tu tiempo.
Saludos
Quería consultarte lo siguiente: ¿Tendrás idea de cómo sería el código para poder utilizar un combobox en un formulario para que a medida que vaya ingresando un nombre los vaya buscando en la columna B de una determinada hoja y me los vaya listando en el combobox?
La cuestión es que en la columna B antes mencionada todos los nombres se repiten al menos 3 veces, por ejemplo:
Acosta Lucas
Acosta Lucas
Acosta Lucas
Acosta Roxana
Acosta Roxana
Acosta Roxana
Acosta Roxana
Acosta Jael
Acosta Jael
Acosta Jael
Por lo que necesitaría que en el combobox, al listarlo simplemente se visualicen una sola vez. Encontré algunos otros ejemplos por acá, pero a la hora de ejecutarlos, dan error.
¿Tendrías algún ejemplo como para ir entendiendo la manera de hacerlo?... Desde ya muchas gracias por tu tiempo.
Saludos
1 Respuesta
Respuesta de Eduard Caballero
1
Este código te servirá siempre y cuando los valores repetidos este como me estas indicando
Private Sub UserForm_Initialize()
Range("b3").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = ActiveCell.Offset(1, 0) Then
ActiveCell.Offset(1, 0).Select
Else
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Private Sub UserForm_Initialize()
Range("b3").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = ActiveCell.Offset(1, 0) Then
ActiveCell.Offset(1, 0).Select
Else
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
