[haktan06]

Merhaba arkadaşlar,
Hazırladığım userformda takıldığım bir husus var yardımcı olabilirseniz sevinirim.
Şöyle izah edeyim,
userform üzerinde iki adet options button ve birde combobox mevcut.
Birinci seçenek düğmesi seçili ise B sütununun tamamını (b1 hariç) comboxta listelemek,
diğer seçenek düğmesi seçilmiş ise C sütununun tamamını (c1 hariç) comboxta listelemek istiyorum.
Bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

[Ali ÖZ]

Kod: Tümünü seç

    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    con.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no"""
    If OptionButton1.Value = True Then sorgu = "Select distinct(f2) from [Sayfa1$]"
    If OptionButton2.Value = True Then sorgu = "Select distinct(f3) from [Sayfa1$]"
    rs.Open sorgu, con, 1, 1
    If rs.RecordCount > 0 Then
        ComboBox1.Column = rs.getrows
    End If

[haktan06]

Kod: Tümünü seç

    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    con.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no"""
    If OptionButton1.Value = True Then sorgu = "Select distinct(f2) from [Sayfa1$]"
    If OptionButton2.Value = True Then sorgu = "Select distinct(f3) from [Sayfa1$]"
    rs.Open sorgu, con, 1, 1
    If rs.RecordCount > 0 Then
        ComboBox1.Column = rs.getrows
    End If

Private Sub ComboBox1_Change()
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no"""
If OptionButton1.Value = True Then sorgu = "Select distinct(f2) from [Proje$]"
If OptionButton2.Value = True Then sorgu = "Select distinct(f3) from [Proje$]"
rs.Open sorgu, con, 1, 1
If rs.RecordCount > 0 Then
ComboBox1.Column = rs.getrows
End If
End Sub

Bu şekilde yazdım ama çalışmadı.

[Ali ÖZ]

Dosyanızı eklermisiniz.

[haktan06]

Dosyanızı eklermisiniz.

[haktan06]

Öldüm, öldüm dirildim dosya eklicem diye...

[Ali ÖZ]

Bu şekilde kullanabilirsiniz.

Kod: Tümünü seç

Sub combo()
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    con.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no;imex=1"""
    If OptionButton1.Value = True Then sorgu = "Select distinct(f2) from [PROJE$]"
    If OptionButton2.Value = True Then sorgu = "Select distinct(f3) from [PROJE$]"
    rs.Open sorgu, con, 1, 1
    If rs.RecordCount > 0 Then
        ComboBox1.Column = rs.getrows
    End If
End Sub

Private Sub OptionButton1_Click()
combo
End Sub

Private Sub OptionButton2_Click()
combo
End Sub

[haktan06]

Allah Razı Olsun...

[Ali ÖZ]

Amin,cümlemizden.