Denegar el ingreso del mismo item del listbox1 al listbox2

Cual sería el código para que al ingresar nuevamente el mismo item en el listbox2 denegué el ingreso y me muestre un mensaje.

1 Respuesta

Respuesta
1

[Hola 

Te paso la macro


'valora la respuesta manito arriba para finalizar



Private Sub CommandButton1_Click()
'
'VALORA LA RESPUESTA MANITO ARRIBA PARA FINALIZAR
'
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        For j = 0 To ListBox2.ListCount - 1
            If ListBox1.List(i, 0) = ListBox2.List(j, 0) Then ' compara la primera col de los listbox
                MsgBox "El dato ya existe"
                Exit Sub
            End If
        Next j
    ListBox2.AddItem ListBox1.List(i, 0) ' si no hay duplicado pasa al listbox2
Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas