Combobox da TC numaraları farkıl aynı isimde olanları listeleme

[sdegirmenci]

Merhaba;
Ekteki dosyamda Form üzerinde bulunan Combo "B" sütununu listelemekte, bunun için UserForm Activate olayında kod mevcut. Yapmak istediğim fakat yapamadığım şu; aynı isimde olan fakat farklı TC numarası olan birden fazla kişi mevcut olduğunda kod da nasıl değişiklik yapabiliriz, aynı isimde kaç kişi varsa o kadar işim listelesin. bu konuda yardımcı olabilirseniz çok sevinirim, Saygılarımla..

 

[cenk e.]

Merhaba, kodunuzda ufak bir değişiklik yaptım, inceler misiniz?

Private Sub UserForm_Activate()
Set ST = Sheets("Stok")

Dim g As Long
For g = 6 To ST.[B65536].End(3).Row
[COLOR="Red"]If Application.WorksheetFunction.CountIf(ST.Range("C6:C" & g), ST.Cells(g, "C")) = 1 Then
[/COLOR]adısoyadı.AddItem ST.Cells(g, "B")
End If
Next g

Set ST = Nothing
End Sub

 

[sdegirmenci]

Sayın cenk e. ilginize çok teşekkür ederim,
Kodu uyguladım, istediğim gibi oldu çok teşekkür ediyorum, işleriniz kolay gelsin. Saygılarımla

 

[cenk e.]

Rica ederim, size de kolay gelsin.