[Çözüldü]  Option Button Koşulu İle Combobox'da Listeleme

Açılır liste kutusu.

Option Button Koşulu İle Combobox'da Listeleme

İleti#1)  haktan06 » 06 Arl 2017 17:56

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.
Kullanıcı avatarı
haktan06
Yeni Başlamış
 
Kayıt: 03 Ekm 2016 00:59
Meslek: Mobilya
Yaş: 37
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Beylikdüzü

Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#2)  Ali ÖZ » 06 Arl 2017 18:29

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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#3)  haktan06 » 06 Arl 2017 18:42

Ali ÖZ yazdı:
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ı. :(
Kullanıcı avatarı
haktan06
Yeni Başlamış
 
Kayıt: 03 Ekm 2016 00:59
Meslek: Mobilya
Yaş: 37
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Beylikdüzü

Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#4)  Ali ÖZ » 06 Arl 2017 20:45

Dosyanızı eklermisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#5)  haktan06 » 07 Arl 2017 09:33

Ali ÖZ yazdı:Dosyanızı eklermisiniz.
Kullanıcı avatarı
haktan06
Yeni Başlamış
 
Kayıt: 03 Ekm 2016 00:59
Meslek: Mobilya
Yaş: 37
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Beylikdüzü

Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#6)  haktan06 » 07 Arl 2017 09:53

Öldüm, öldüm dirildim dosya eklicem diye...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
haktan06
Yeni Başlamış
 
Kayıt: 03 Ekm 2016 00:59
Meslek: Mobilya
Yaş: 37
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#7)  Ali ÖZ » 07 Arl 2017 12:53

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 sorgucon11
    
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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#8)  haktan06 » 07 Arl 2017 15:10

Allah Razı Olsun...
Kullanıcı avatarı
haktan06
Yeni Başlamış
 
Kayıt: 03 Ekm 2016 00:59
Meslek: Mobilya
Yaş: 37
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Beylikdüzü

Cevap: Option Button Koşulu İle Combobox'da Listeleme

İleti#9)  Ali ÖZ » 07 Arl 2017 16:10

Amin,cümlemizden.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe