Userform Comboboxlar ile Sayfada Birden Çok Filtreleme Yapma

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Cevapla
Beyfendi
Mesajlar: 8
Kayıt: Cum Şub 16, 2024 12:21 pm
Lokasyon: KONYA
Meslek: Muhasebeci
Adınız: Ramazan
Soyadınız: Karakaya

Userform Comboboxlar ile Sayfada Birden Çok Filtreleme Yapma

Mesaj gönderen Beyfendi »

Merhaba üstadlarım,

Userformda bulunan ve Combobozlardan oluşan bir rapor oluşturma formum var,
bu comboxlarda yaptığım seçimler ile PSB sayfasında filtreleme yapmak istiyorum ve filtreleme işlemini kısmi olarak aşağıdaki kodlar ile yapabildim ama sayfada sadece tek sütünda filtreleme yaptırabildim yani 4 adet ComboBox var (Firma, Şube, Departman, Birim) aşağıdaki fotoda görüldüğü gibi,
Ben Comboxlarda seçim yaparken Firma comboboxunda seçim yaptığımda seçtiğim Firmaya bağlı Şube gelsin Şebeye bağlı Departman gelsin Departmana bağlı Birim gelsin ve PSB sayfasında bu seçimlere göre filtreleme yapsın.

Ben Filtreleme yaptırabiliyorum enson hangi seçeneği seçiyorsam o sütünda filtremeyi yapıyor diğerlerinin filtrelemesini kaldırıyor benim istediğim sırayla seçim yaptığımda sayfada da seçimlerime göre birbirine bağlı sekilde filtreleme yaptırmak.

Umarım derdimi anlatabilmişimdir, Şimdiden yardımcı olacak üstadlara teşekkür ederim.

Userform
Resim

PSB Sayfası Başlıları
Resim


Kullanmış Olduğum Kodlar

Kod: Tümünü seç

Private Sub GLFirma_Change()
On Error Resume Next
Worksheets("PSB").Range("J2").AutoFilter
Worksheets("PSB").Range("J2").AutoFilter Field:=10, Criteria1:=GLFirma.Value
If GLFirma.Value = "" Then
Worksheets("PSB").Range("A1:S65536").AutoFilter Field:=10

End If
Sheets("RL").Range("C2") = GLFirma.Value
End Sub
Private Sub GLŞube_Change()
On Error Resume Next
Worksheets("PSB").Range("K2").AutoFilter
Worksheets("PSB").Range("K2").AutoFilter Field:=11, Criteria1:=GLŞube.Value
If GLŞube.Value = "" Then
Worksheets("PSB").Range("A1:S65536").AutoFilter Field:=11
GLFirma = "": GLŞube = ""

End If
Sheets("RL").Range("C3") = GLŞube.Value
End Sub
Private Sub GLDepartman_Change()
On Error Resume Next
Worksheets("PSB").Range("L2").AutoFilter
Worksheets("PSB").Range("L2").AutoFilter Field:=12, Criteria1:=GLDepartman.Value
If GLDepartman.Value = "" Then
Worksheets("PSB").Range("A1:S65536").AutoFilter Field:=12
GLŞube = "": GLDepartman = ""

End If
Sheets("RL").Range("D3") = GLDepartman.Value
End Sub
Private Sub GLBirim_Change()
On Error Resume Next
Worksheets("PSB").Range("B2").AutoFilter
Worksheets("PSB").Range("B2").AutoFilter Field:=2, Criteria1:=GLBirim.Value
If GLBirim.Value = "" Then
Worksheets("PSB").Range("A1:S65536").AutoFilter Field:=2
GLDepartman = "": GLBirim = ""

End If
Sheets("RL").Range("E3") = GLBirim.Value
End Sub
sahin
Mesajlar: 38
Kayıt: Pzr Oca 21, 2024 1:44 pm
Adınız: sahin
Soyadınız: sahin

Re: Userform Comboboxlar ile Sayfada Birden Çok Filtreleme Yapma

Mesaj gönderen sahin »

örnek dosyayı atabilir misiniz?
Beyfendi
Mesajlar: 8
Kayıt: Cum Şub 16, 2024 12:21 pm
Lokasyon: KONYA
Meslek: Muhasebeci
Adınız: Ramazan
Soyadınız: Karakaya

Re: Userform Comboboxlar ile Sayfada Birden Çok Filtreleme Yapma

Mesaj gönderen Beyfendi »

sahin yazdı: Cmt Şub 17, 2024 9:03 pm örnek dosyayı atabilir misiniz?
Üstad bu linkdeki gibi olacak.

https://www.exceldepo.com/dosyalar/text ... leme.8207/
GuardofDeath17
Mesajlar: 5
Kayıt: Pzr Şub 18, 2024 12:05 am
Adınız: Erol
Soyadınız: PEHLIVANOGLU

Re: Userform Comboboxlar ile Sayfada Birden Çok Filtreleme Yapma

Mesaj gönderen GuardofDeath17 »

Beyfendi yazdı: Cum Şub 16, 2024 12:47 pm Ben Comboxlarda seçim yaparken Firma comboboxunda seçim yaptığımda seçtiğim Firmaya bağlı Şube gelsin Şebeye bağlı Departman gelsin Departmana bağlı Birim gelsin ve PSB sayfasında bu seçimlere göre filtreleme yapsın.
Herhangi bir Combobox ile filtreleme yaptığında diğer comboboxların içeriğini de filtreye göre değiştirsin anı zamanda comboboxlarda yapılan filtrelemelerin sayfaya yansımasını istiyorsun doğru mudur hocam? Yoksa yalnızca veriyi userformda görmek yeterli mi? Ana amacının ne olduğunu belirtsen daha iyi yardımcı olunabilir. Filtreleyecek de ne olacak nerede kullanılacak gibi. Ayrıca örnek bir excel atsan buraya bir daha senin excel dosyan gibi bir dosya yaratmakla da uğraşmamış olunur.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj