UserForm'da Combobox ile filtre yapma

ruzzher · 18 Nisan 2022

Merhabalar
Excel dosyada 2 adet sayfa bulunmaktadır. 1.sayfa kullanılan olan ana ekrandır. 2.sayfa ise verilerin tutuldu yer olacak.

1.sayfa yani anasayfa bir adet commandbutton bulunmakta. Butona bastığınız ekran user form geliyor.

Userform'da bir adet combobox ve listbox bulunmakta.

Combobox'ta 2.sayfa yer alan verilerden bölge yani C sütundaki veriler yer alacak.

Combobox seçtiğimiz bölge göre listbox'ta listelenecek.

Örnek Dosya:
https://s2.dosya.tc/server17/65rnxi/Kitap1.xltm.html

YUSUF44 · 19 Nisan 2022

Aşağıdaki kodları userformun kod bölümüne ekleyip deneyin:

PHP:

Private Sub ComboBox1_Change()
Set s1 = Sheets("Sayfa2")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from [Sayfa2$] where BÖLGE='" & ComboBox1.Value & "'"
Set rs = con.Execute(sorgu)
If Not rs.EOF Then
    ListBox1.Column = rs.getrows
End If
End Sub

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa2")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select distinct BÖLGE from [Sayfa2$] where BÖLGE is not null"
Set rs = con.Execute(sorgu)

ComboBox1.Column = rs.getrows
ListBox1.ColumnCount = 5
End Sub

ruzzher · 20 Nisan 2022

YUSUF44' Alıntı:
Private Sub ComboBox1_Change() Set s1 = Sheets("Sayfa2") son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row) Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes""" sorgu = "select * from [Sayfa2$] where BÖLGE='" & ComboBox1.Value & "'" Set rs = con.Execute(sorgu) If Not rs.EOF Then ListBox1.Column = rs.getrows End If End Sub Private Sub UserForm_Initialize() Set s1 = Sheets("Sayfa2") son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row) Set con = VBA.CreateObject("adodb.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes""" sorgu = "select distinct BÖLGE from [Sayfa2$] where BÖLGE is not null" Set rs = con.Execute(sorgu) ComboBox1.Column = rs.getrows ListBox1.ColumnCount = 5 End Sub

Code buna çevirdim ve böyle hata verdi

Kod:

Private Sub ComboBox1_Change()
Set s1 = Sheets("ALL_DATA")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "C").End(3).Row)

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from [ALL_DATA$] where BÖLGE='" & ComboBox1.Value & "'"
Set rs = con.Execute(sorgu)
If Not rs.EOF Then
    ListBox1.Column = rs.getrows
End If
End Sub

Private Sub UserForm_Initialize()
Set s1 = Sheets("ALL_DATA")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "C").End(3).Row)

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select distinct BÖLGE from [ALL_DATA$] where BÖLGE is not null"
Set rs = con.Execute(sorgu)

ComboBox1.Column = rs.getrows
ListBox1.ColumnCount = 5
End Sub

ruzzher · 20 Nisan 2022

Birde başlıklarını yani header almıyor

YUSUF44 · 20 Nisan 2022

Dosyanızı o haliyle paylaşırsanız iyi olur. (Dosyanızda All_Data sayfası var mı?)

Başlıkların listbota görünmesi için userforma Labeller ekleyip başlık olarak onları kullanmanızı öneririm.

Korhan Ayhan · 20 Nisan 2022

Hata mesajı ile ilgili linki inceleyiniz.

ADO yönteminde Tanımlanmış Tablo ya da AD kullanmak

Tablo olarak tanımlanmış aralığı ya da tanımlı AD ları, ADO sorgusunda kullanabiliyor muyuz? "Select [Sütun1],[Sütun2] from [Sayfa1] Where [Sütun2]=5" gibi bir cümlede, Sayfa1 yerine Tablo ismini ve Sütunlar yerine tablonun alanlarını verebiliyor muyuz? Örnek var mıdır?

www.excel.web.tr

Korhan Ayhan · 20 Nisan 2022

Ben sorguda Tablo olarak kullandığınızı düşündüğüm için linki paylaştım. Fakat sizin sorun sanırım daha farklı. Bu sebeple bir önceki mesajımı görmezden gelebilirsiniz.

ruzzher · 22 Nisan 2022

YUSUF44' Alıntı:
Dosyanızı o haliyle paylaşırsanız iyi olur. (Dosyanızda All_Data sayfası var mı?)

Başlıkların listbota görünmesi için userforma Labeller ekleyip başlık olarak onları kullanmanızı öneririm.

combobox'a tümünü göster ekleyebilir miyiz?

YUSUF44 · 22 Nisan 2022

Neyin tümünü göstermek istiyorsunuz?

ruzzher · 22 Nisan 2022

YUSUF44' Alıntı:
Neyin tümünü göstermek istiyorsunuz?

verilerin

YUSUF44 · 22 Nisan 2022

Doğru anladıysam kodları aşağıdakilerle değiştirip deneyin:

PHP:

Private Sub ComboBox1_Change()
Set s1 = Sheets("Sayfa2")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
    
Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

If ComboBox1.Value = "Tümünü Göster" Then
    sorgu = "select * from [Sayfa2$] where BÖLGE is not null"
Else
    sorgu = "select * from [Sayfa2$] where BÖLGE='" & ComboBox1.Value & "'"
End If
Set rs = con.Execute(sorgu)
If Not rs.EOF Then
    ListBox1.Column = rs.getrows
End If
End Sub

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa2")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select distinct BÖLGE from [Sayfa2$] where BÖLGE is not null"
Set rs = con.Execute(sorgu)

ComboBox1.Column = rs.getrows
ComboBox1.AddItem

For i = ComboBox1.ListCount - 1 To 1 Step -1
    ComboBox1.List(i) = ComboBox1.List(i - 1)
Next
ComboBox1.List(0) = "Tümünü Göster"
ListBox1.ColumnCount = 5
End Sub

ruzzher · 23 Nisan 2022

YUSUF44' Alıntı:

Doğru anladıysam kodları aşağıdakilerle değiştirip deneyin:

PHP:

Private Sub ComboBox1_Change()
Set s1 = Sheets("Sayfa2")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
   
Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

If ComboBox1.Value = "Tümünü Göster" Then
    sorgu = "select * from [Sayfa2$] where BÖLGE is not null"
Else
    sorgu = "select * from [Sayfa2$] where BÖLGE='" & ComboBox1.Value & "'"
End If
Set rs = con.Execute(sorgu)
If Not rs.EOF Then
    ListBox1.Column = rs.getrows
End If
End Sub

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa2")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select distinct BÖLGE from [Sayfa2$] where BÖLGE is not null"
Set rs = con.Execute(sorgu)

ComboBox1.Column = rs.getrows
ComboBox1.AddItem

For i = ComboBox1.ListCount - 1 To 1 Step -1
    ComboBox1.List(i) = ComboBox1.List(i - 1)
Next
ComboBox1.List(0) = "Tümünü Göster"
ListBox1.ColumnCount = 5
End Sub

userform açıldığında tümünü göster seçili olarak gelsin nasıl yapılır?

Korhan Ayhan · 23 Nisan 2022

Deneyiniz.

C++:

Private Sub ComboBox1_Change()
    Set s1 = Sheets("Sayfa2")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
        
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
    
    If ComboBox1.Value = "Tümünü Göster" Then
        sorgu = "select * from [Sayfa2$] where BÖLGE is not null"
    Else
        sorgu = "select * from [Sayfa2$] where BÖLGE='" & ComboBox1.Value & "'"
    End If
    Set rs = con.Execute(sorgu)
    If Not rs.EOF Then
        ListBox1.Column = rs.getrows
    End If
End Sub

Private Sub UserForm_Initialize()
    Set s1 = Sheets("Sayfa2")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
    
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
    
    sorgu = "select distinct BÖLGE from [Sayfa2$] where BÖLGE is not null"
    Set rs = con.Execute(sorgu)
    
    Liste_1 = Array("Tümünü Göster")
    Liste_2 = Application.Transpose(Application.Transpose(rs.getrows))
    
    Liste = Split(Join(Liste_1, ",") & "," & Join(Liste_2, ","), ",")
    
    ComboBox1.List = Liste
    ComboBox1.ListIndex = 0
    
    ListBox1.ColumnCount = 5
End Sub

ruzzher · 23 Nisan 2022

Korhan Ayhan' Alıntı:

Deneyiniz.

C++:

Private Sub ComboBox1_Change()
    Set s1 = Sheets("Sayfa2")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
       
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
   
    If ComboBox1.Value = "Tümünü Göster" Then
        sorgu = "select * from [Sayfa2$] where BÖLGE is not null"
    Else
        sorgu = "select * from [Sayfa2$] where BÖLGE='" & ComboBox1.Value & "'"
    End If
    Set rs = con.Execute(sorgu)
    If Not rs.EOF Then
        ListBox1.Column = rs.getrows
    End If
End Sub

Private Sub UserForm_Initialize()
    Set s1 = Sheets("Sayfa2")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
   
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
   
    sorgu = "select distinct BÖLGE from [Sayfa2$] where BÖLGE is not null"
    Set rs = con.Execute(sorgu)
   
    Liste_1 = Array("Tümünü Göster")
    Liste_2 = Application.Transpose(Application.Transpose(rs.getrows))
   
    Liste = Split(Join(Liste_1, ",") & "," & Join(Liste_2, ","), ",")
   
    ComboBox1.List = Liste
    ComboBox1.ListIndex = 0
   
    ListBox1.ColumnCount = 5
End Sub

Hatalı çalışmıyor

Korhan Ayhan · 23 Nisan 2022

Deneyerek kodu paylaştım. Bende çalışıyor.

Bilgi

dosyam.org

YUSUF44 · 25 Nisan 2022

ruzzher' Alıntı:
userform açıldığında tümünü göster seçili olarak gelsin nasıl yapılır?

Inıtialize kısmında End Sub satırından önce aşağıdaki satırı ekleyin:

ComboBox1.ListIndex = 0

Bu arada sayın @Korhan Ayhan 'ın kodlarını da denedim, düzgün çalışıyor. "Hatalı çalışmıyor" demek yerine ne gibi bir hata verdiğini ya da örnek dosyanızı hatalı haliyle paylaşmanızı öneririm.

burhancavus61 · 8 Haziran 2022

Korhan hocam combobox ile etkileşimli 2 listbox ile iki tarih arası sorgu aynı yöntemle çalıştırılabilirmi.
Tarih sorgusu yapacağım yada sadece comboboxtan sorgu yapılacak. Biraz uğraştım ama tarih sorgusu kısmında hata alıyorum.

Korhan Ayhan · 8 Haziran 2022

Burhan Bey,

Veriler ve istekler mantıklı olduğu sürece birçok şey yapılabilir.. Göremediğimiz bir tablo hakkında çokta fazla yorum yapamıyorum.

burhancavus61 · 8 Haziran 2022

Paylaşayım hocam epdk formuna bilgi çekmeye çalışıyorum.

burhancavus61 · 11 Haziran 2022

Korhan hocam Merhaba
Sizin daha önceki bir örneğinizden yararlanarak yanlızca combobx ile verileri listbox a alabiliyorum. İki tarih arası sorgulara örnekteki gibi kodları eklediğimde sözdizimi hatası alıyorum. Sorguları doğru yapamıyorum sanırım. Yönlendirebilirseniz memnun olurum.

Kod:

Private Sub ComboBox1_Change()
    Set s1 = Sheets("EPDK_Veritabanı")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)
       
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
   
    If ComboBox1.Value = "Tümünü Göster" Then
        sorgu = "select * from [EPDK_Veritabanı$] where Yakit_Tipi is not null"
    Else
        sorgu = "select * from [EPDK_Veritabanı$] where Yakit_Tipi='" & ComboBox1.Value & "'"
    End If
   
    Set rs = con.Execute(sorgu)
    If Not rs.EOF Then
        ListBox1.Column = rs.getrows
    End If
End Sub

Kod:

Private Sub TextBox2_Change()
    Set s1 = Sheets("EPDK_Veritabanı")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

    If ComboBox1.Value = "" Then
        sorgu = "select * from [EPDK_Veritabanı$] where Tarih is not null"
    Else
        sorgu = "select * from [EPDK_Veritabanı$] where Tarih=>'" & TextBox1.Value & "'"
    End If

    Set rs = con.Execute(sorgu)
    If Not rs.EOF Then
        ListBox1.Column = rs.getrows
    End If
End Sub

Kod:

Private Sub TextBox3_Change()
    Set s1 = Sheets("EPDK_Veritabanı")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

    If ComboBox1.Value = "" Then
        sorgu = "select * from [EPDK_Veritabanı$] where Tarih is not null"
    Else
        sorgu = "select * from [EPDK_Veritabanı$] where Tarih<='" & TextBox3.Value & "'"
    End If

    Set rs = con.Execute(sorgu)
    If Not rs.EOF Then
        ListBox1.Column = rs.getrows
    End If
End Sub

Kod:

Private Sub UserForm_Initialize()

    Set s1 = Sheets("EPDK_Veritabanı")
    son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "B").End(3).Row)

    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

    sorgu = "select distinct Yakit_Tipi from [EPDK_Veritabanı$] where [Tarih] is not null
    Set rs = con.Execute(sorgu)

    Liste_1 = Array("Tümünü Göster")
    Liste_2 = Application.Transpose(Application.Transpose(rs.getrows))
    Liste = Split(Join(Liste_1, ",") & "," & Join(Liste_2, ","), ",")

    ComboBox1.List = Liste
    ComboBox1.ListIndex = 0

    ListBox1.ColumnCount = 11
    ListBox1.ColumnWidths = "50;70;170;80;50;80;30;80;0;0;80"

End Sub

UserForm'da Combobox ile filtre yapma

ruzzher

YUSUF44

Destek Ekibi

ruzzher

ruzzher

YUSUF44

Destek Ekibi

Korhan Ayhan

Administrator

ADO yönteminde Tanımlanmış Tablo ya da AD kullanmak

Korhan Ayhan

Administrator

ruzzher

YUSUF44

Destek Ekibi

ruzzher

YUSUF44

Destek Ekibi

ruzzher

Korhan Ayhan

Administrator

ruzzher

Korhan Ayhan

Administrator

Bilgi

Ekli dosyalar

YUSUF44

Destek Ekibi

burhancavus61

Korhan Ayhan

Administrator

burhancavus61

Ekli dosyalar

burhancavus61