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

PSB Sayfası Başlıları

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