ComboBox tekrarsız gösterme....

[alperalper]

Evet arkadaşlar bu kode userformuma ekledim fakat bende iki adet combobox var ikincisinede aynı şekilde ama d6:d655500 aralığını göstereceğim ama birtürlü birleştiremedim.....

Private Sub UserForm_Initialize()
Dim ComboListe As Variant, i As Long
    ComboListe = Benzersiz_Liste(Range("C6:C65500"), True)
        For i = 1 To UBound(ComboListe)
            ComboBox1.AddItem ComboListe(i)
        Next i
End Sub
Private Function Benzersiz_Liste(Aralik As Range, DuzListe As Boolean) As Variant
Dim Hucre As Range, Benzersiz As New Collection, Say As Long, Dizi() As Variant
Application.Volatile
On Error Resume Next
For Each Hucre In Aralik
    If Hucre.Formula <> "" Then
        Benzersiz.Add Hucre.Value, CStr(Hucre.Value)
    End If
Next Hucre
Benzersiz_Liste = ""
    If Benzersiz.Count > 0 Then
        ReDim Dizi(1 To Benzersiz.Count)
            For Say = 1 To Benzersiz.Count
                Dizi(Say) = Benzersiz(Say)
            Next Say
        Benzersiz_Liste = Dizi
            If Not DuzListe Then
                Benzersiz_Liste = Application.WorksheetFunction.Transpose(Benzersiz_Liste)
            End If
    End If
On Error GoTo 0
End Function

 

[Haluk]

Private Sub UserForm_Initialize()
        Dim ComboListe As Variant, i As Long
        ComboListe = Benzersiz_Liste(Range("C6:C65500"), True)
        For i = 1 To UBound(ComboListe)
            ComboBox1.AddItem ComboListe(i)
        Next i
        ComboListe = Benzersiz_Liste(Range("D6:D65500"), True)
        For i = 1 To UBound(ComboListe)
            ComboBox2.AddItem ComboListe(i)
        Next i
End Sub

 

[alperalper]

Hata verdi ben "VERİ" adındaki sayfadan alacaktım verileri ama onu nereye yazacağın.

Private Sub UserForm_Initialize()
      Dim ComboListe As Variant, i As Long
        ComboListe = Benzersiz_Liste(Range("C6:C65500"), True)
        For i = 1 To UBound(ComboListe)
            ComboBox1.AddItem ComboListe(i)
        Next i
        ComboListe = Benzersiz_Liste(Range("D6:D65500"), True)
        For i = 1 To UBound(ComboListe)
            ComboBox2.AddItem ComboListe(i)
        Next i
End Sub

 

[omerceri]

Sn Haluk'un kodlarını aşağıdaki gibi değiştirin
Private Sub UserForm_Initialize()
Dim ComboListe As Variant, i As Long
ComboListe = Benzersiz_Liste(Sheets("VERİ").Range("C6:C65500"), True)
For i = 1 To UBound(ComboListe)
ComboBox1.AddItem ComboListe(i)
Next i
ComboListe = Benzersiz_Liste(Sheets("VERİ").Range("D665500"), True)
For i = 1 To UBound(ComboListe)
ComboBox2.AddItem ComboListe(i)
Next i
End Sub