Sayfa1 ve Sayfa2 deki A stunundaki İsimleri Combobox'a Tekrarsız Alma

[programer]

Arkadaşlar herkese hayırlı akşamlar.

Sayfa1 ve Sayfa2 deki A stunundaki İsimleri Combobox'a Tekrarsız nasıl alabiliriz.

Forumda araştırdım ama böyle bir örnek bulamadım.

Yardımcı olurmusunuz.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub UserForm_Initialize()
Dim a, b, v, x, s1, s2 As Worksheet
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
a = s1.Range("a2", s1.[a65536].End(xlUp)).Value
b = s2.Range("a2", s2.[a65536].End(xlUp)).Value
 
With CreateObject("scripting.dictionary")
For Each v In a
If Not IsEmpty(v) And Not .exists(v) Then
.Add v, Nothing
End If
Next
 
For Each v In b
If Not IsEmpty(v) And Not .exists(v) Then
.Add v, Nothing
End If
Next
 
x = .keys
End With
 
With Me.ComboBox1
.Clear
.List = x
.ListIndex = 0
End With
 
End Sub

 

[programer]

Recep bey çok teşekkür ederim elinize sağlık.