[حل شده] حذف مقادیر تکراری از لیست باکس هایی که با تایپ فعال میشن

[look20]

سلام وقت بخیر
یه مشکل دارم می خوام بعد تایپ نام خانوادگی در textbox2 مقادیر تکراری رو نیاره
توی سایت جستجو کردم ! ولی درست بهم جواب نداد!
توی سایت دو سه تا نمونه بود فقط هنگام لودینگ مقادیر حذف میشه همون کدها رو توی فرم خودم استفاده کردم ولی جواب نگرفتم
ممنون میشم دوستان راهنمایی بفرمایند

[look20]

فایل من

[iranweld]

با سلام

کد ذیل را چک کنید افرادی که دارای اسم و فامیل یکسان باشند فقط یکی در لیست باکس نمایش داده میشود

Private Sub TextBox2_Change()

Dim C

Dim list1 As New Collection

z1 = Cells(Rows.Count, "b").End(xlUp).Row

Set Rng = Sheet1.Range("b2:b" & z1)

On Error Resume Next

UserForm1.ListBox1.Clear

If UserForm1.TextBox2.Text <> "" Then

With Rng

    Set C = .Find(UserForm1.TextBox2.Text, LookIn:=xlValues, LookAt:=xlPart)
    
    If Not C Is Nothing Then
    
    list1.Add C, CStr(C)
    
                   
        End If
           
     End With
     
           End If
           
           For i = 1 To list1.Count

           UserForm1.ListBox1.AddItem list1(i).Value
            UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 2) = list1(i).Offset(0, -1).Value
            UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = list1(i).Offset(0, 0).Value
            UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 0) = list1(i).Offset(0, 1).Value
        
                                
        
    Next
           ListBox1.Visible = True
End Sub