Combobox ile Benzersiz Listeleme

[Yesilyurtlu]

Private Sub Userform_Initialize()
Dim i As Long
ComboBox1.Clear
For i = 3 To Range("c65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("c3:c" & i), Range("c" & i).Value) = 1 Then
ComboBox1.AddItem Cells(i, "c").Value
End If
Next i
End Sub


Üstadlarım;
Yukarıda ki kod ile sadece Combobox1' e C sütununu alabiliyorum. Bu koda
Combobox2 ye D sütununu
Combobox3/e de F sütununu eklemek istiyorum. Rica etsem yardımcı olabilir misiniz

 

[s.savas]

Private Sub Userform_Initialize()
Dim i As Long
ComboBox1.Clear
For i = 3 To Range("c65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("c3:c" & i), Range("c" & i).Value) = 1 Then
ComboBox1.AddItem Cells(i, "c").Value
End If
Next i
End Sub


Üstadlarım;
Yukarıda ki kod ile sadece Combobox1' e C sütununu alabiliyorum. Bu koda
Combobox2 ye D sütununu
Combobox3/e de F sütununu eklemek istiyorum. Rica etsem yardımcı olabilir misiniz

Üstat alternatif olsun.
Aşağıdaki kod ile ComboBox'lara benzersiz listeleme yapıyorum.

ComboBox1.RowSource = "SABİT!D2:D" & Sheets("SABİT").Range("D65536").End(3).Row
ComboBox2.RowSource = "SABİT!C2:C" & Sheets("SABİT").Range("C65536").End(3).Row

ComboBox4.RowSource = "SABİT!D2:D" & Sheets("SABİT").Range("D65536").End(3).Row
ComboBox5.RowSource = "SABİT!C2:C" & Sheets("SABİT").Range("C65536").End(3).Row
ComboBox6.RowSource = "SABİT!A2:A" & Sheets("SABİT").Range("A65536").End(3).Row

 

[Yesilyurtlu]

Pirim, uyguladım ama tamamını verdi

 

[Excelmy]

Eklediğiniz kodlara göre,

Private Sub UserForm_Initialize()
Dim sat As Long, i As Long
sat = Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row
For i = 3 To sat
    If WorksheetFunction.CountIf(Sheets("sayfa1").Range("C3:C" & i), Sheets("sayfa1").Cells(i, "C").Value) = 1 Then
        ComboBox1.AddItem Sheets("sayfa1").Cells(i, "C").Value
    End If
    If WorksheetFunction.CountIf(Sheets("sayfa1").Range("D3:D" & i), Sheets("sayfa1").Cells(i, "D").Value) = 1 Then
        ComboBox2.AddItem Sheets("sayfa1").Cells(i, "D").Value
    End If
    If WorksheetFunction.CountIf(Sheets("sayfa1").Range("F3:F" & i), Sheets("sayfa1").Cells(i, "F").Value) = 1 Then
        ComboBox3.AddItem Sheets("sayfa1").Cells(i, "F").Value
    End If
Next
End Sub

 

[Yesilyurtlu]

Kuman Uzmanım Ellerine Sağlık. Yardımlarınız için teşekkür ederim.