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

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
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:D den tekrarsız veri nasıl getirebilirim.
Bilgi için şimdiden teşekkürler...
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Mevcut kodlarınıza küçük ilaveler yaptım. Dener misiniz?
Kod:
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
 

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
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

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
Sayın muygun,
Hem dEdE nin hem sizin kodlar istediğimi yapmakta.
Size de ilginizden dolayı çok teşekkürler. Saygılar...
 
Üst