Optionbutton seçimine göre comboboxa tekrarsız veri almak

[byfika]

Merhabalar, optionbutton1 seçildiğinde combobox1 e sayfadan sadece B2:B den tekrarsız veri, optionbutton2 seçildiğinde combobox1 e sayfadan sadece C2:C den tekrarsız veri, optionbutton3 seçildiğinde combobox1 e sayfadan sadece D2 den tekrarsız veri nasıl getirebilirim.
Bilgi için şimdiden teşekkürler...

 

[dEdE]

Mevcut kodlarınıza küçük ilaveler yaptım. Dener misiniz?

Private Sub OptionButton1_Click()
Dim sh As Worksheet
If OptionButton1 = True Then
    ComboBox1.Clear
    Set sh = Sheets("Sayfa1")
    For x = 2 To sh.Cells(65536, 2).End(xlUp).Row
        If WorksheetFunction.CountIf(sh.Range("b2:b" & x), sh.Cells(x, 2)) = 1 Then
            ComboBox1.AddItem sh.Cells(x, 2).Value
        End If
    Next
End If
End Sub

Private Sub OptionButton2_Click()
Dim sh As Worksheet
If OptionButton2 = True Then
    ComboBox1.Clear
    Set sh = Sheets("Sayfa1")
        For x = 2 To sh.Cells(65536, 3).End(xlUp).Row
        If WorksheetFunction.CountIf(sh.Range("c2:c" & x), sh.Cells(x, 3)) = 1 Then
            ComboBox1.AddItem sh.Cells(x, 3).Value
        End If
        Next
End If
End Sub

Private Sub OptionButton3_Click()
Dim sh As Worksheet
If OptionButton3 = True Then
    ComboBox1.Clear
    Set sh = Sheets("Sayfa1")
        For x = 2 To sh.Cells(65536, 4).End(xlUp).Row
        If WorksheetFunction.CountIf(sh.Range("d2:d" & x), sh.Cells(x, 4)) = 1 Then
            ComboBox1.AddItem sh.Cells(x, 4).Value
        End If
        Next
End If
End Sub

 

[muygun]

Merhaba;
Aynı sonucu verecektir ama yinede alternatif olsun.
Deneyin.
iyi çalışmalar.

 

[byfika]

Sayın dEdE,
Aynı şekilde kodlamıştım fakat;
Düşünemediğim bir satırlık kod yapmak istediğim işlemi yaptı.

ComboBox1.Clear satırını yazmadığımdan için diğer sütundaki verileri de tekrarsız ilave edip getirmekteydi.
Bilginize sağlık, çok teşekkürler. Saygılar...

 

[byfika]

Sayın muygun,
Hem dEdE nin hem sizin kodlar istediğimi yapmakta.
Size de ilginizden dolayı çok teşekkürler. Saygılar...