Combobox1 ile iki farklı sayfada benzersiz veri alma

[byfika]

Merhabalar, Sayfa1 B sütunu benzersiz veri, sayfa2 B sütunu ise sayfa1 B sütunundaki aynı veriler fakat bu veriler iki veya daha fazla mükerrerler, aynı userform1 ve üzerindeki combobox1 ile hem sayfa1 hemde sayfa2 de çalışma yapılırken B sütunundan benzersiz veri nasıl çekilebilinir. Bu verilerle SUMIF işlemi yapılmakta. Sadece her iki sayfadan çekilen veri benzersiz olacak.
Bilgi için teşekkürler.

 

[Ziynettin]

Merhaba.

UserForm_Initialize olayında kodu bu şekilde deneyiniz.

Private Sub UserForm_Initialize()
Dim i As Long, son As Long, a(), dc As Object
    ComboBox1.Clear
    son = Range("B" & Rows.Count).End(xlUp).Row
    Set dc = CreateObject("scripting.dictionary")
    If son > 1 Then
        a = Range("B2:B" & son).Value
        For i = 1 To UBound(a)
            If Not IsEmpty(a(i, 1)) Then dc(a(i, 1)) = ""
        Next i
    End If
    If dc.Count > 0 Then
        UserForm1.ComboBox1.List = dc.Keys
    End If
End Sub

 

[byfika]

Ziynettin bey çok teşekkürler,saygılar