Saltar al contenido

Combobox sin registros duplicados en Excel VBA

publicado

Tengo un combobox1 que se carga al iniciar el libroprueba.xlsm, este combobox1 al elegir un dato a  su vez me carga otro combobox2 con esta instrucción:

 

Private Sub Combobox1_Change()

Dim i As Integer

Dim libro As Workbook

Combobox2.Clear

Set libro = Workbooks.Open("libroprueba.xlsm")
With libro.Sheets("hoja1")


For i = 2 To .Range("P" & Rows.Count).End(xlUp).Row
If .Cells(i, 2).Value = combobox1.Value Then
combobox2.AddItem .Cells(i, 16).Value
End If
'Next i

End With

libro.close

End Sub

 

Mi problema es que el combobox2 me esta cargando con registros repetidos...¿Como puedo modificar esta macro para que no se repitan dichos registros? Muchas gracias por la ayuda...

Featured Replies

publicado
  • Autor

Hola @tierra_pampa

Mil gracias por responder, al parecer "cacharreando" como se dice popularmente en Colombia :D pude solucionarlo, te agradezco nuevamente...Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.