Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Este código evita que existan repetidos en el combo:
Private Sub Form_Load() Dim nombres(4) As String nombres(0) = "Pepe" nombres(1) = "Juan" nombres(2) = "Juan" nombres(3) = "Pepe" nombres(4) = "Pepe" Dim i As Integer Dim j As Integer For i = 0 To 4 Combo1.AddItem nombres(i) Next i For i = 0 To Combo1.ListCount - 1 For j = 1 To Combo1.ListCount - 1 If Combo1.List(i) = Combo1.List(j) Then Combo1.RemoveItem i End If Next j Next i End Sub