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

[look20]

سلام وقت بخیر
یه مشکل دارم می خوام بعد تایپ نام خانوادگی در textbox2 مقادیر تکراری رو نیاره
توی سایت جستجو کردم !‌‌‌‌ ولی درست بهم جواب نداد!
توی سایت دو سه تا نمونه بود فقط هنگام لودینگ مقادیر حذف میشه همون کدها رو توی فرم خودم استفاده کردم ولی جواب نگرفتم
ممنون میشم دوستان راهنمایی بفرمایندhttps://forum.exceliran.com/images/smilies/minion (17).pnghttps://forum.exceliran.com/images/smilies/minion (3).png

[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.ListCou nt - 1, 2) = list1(i).Offset(0, -1).Value
UserForm1.ListBox1.List(UserForm1.ListBox1.ListCou nt - 1, 1) = list1(i).Offset(0, 0).Value
UserForm1.ListBox1.List(UserForm1.ListBox1.ListCou nt - 1, 0) = list1(i).Offset(0, 1).Value



Next
ListBox1.Visible = True
End Sub