Birden çok veriye göre süzme işlemi

[millis]

Arkadaşlar; yapmak istediğim bir çalışma var. Bu çalışmada sayfada bulunan verileri User formda girmiş olduğum verilere göre süzemesini istiyorum. Açıklamamı yaptıktan sonra dosyayıda ekliyorum. Şöyleki; UserForm da ( KASA İŞLEMLERİNDE ) HAREKET adlı ComboBox'ım var bu comboBox'da TAHSİLAT ve ÖDEME adı altında iki seçeneğim var. Bu seçeneklerden TAHSİLAT'ı seçtiğimde KASATAHS sayfasını görecek bu birinci işlem, ikinci ComboBox da TAHSİLAT ŞEKLİ kısmında NAKİT, ÇEK veya SENET seçeneklerinden birini seçtiğimde bu comboBox da NAKİT, ÇEK VE SENET seçenekleri var bunlardan birini seçtiğimde KASATAHS sayfasında seçileni süzecek bu ikinci işlem ve bir alt kısımda da tarih aralığı var bu kısımada başlangıç ve bitiş tarihlerini gireceğim ve yine KASATAHS sayfasında süzülen verileri bu sefer tarih aralığı olarak süzecek bu da üçüncü işlem süzülen ve bulunan verileri ListBox1 'e aktaracak. Aynı işlemi HAREKET adlı ComboBox da ÖDEME seçeneği seçildiğinde bu sefer KASAODE sayfasına görecek ve burada da HAREKET ComboBox'ında bulunan seçeneklere göre ve tarih aralağı seçeneğine göre süzme işlemi yapılıp ListBox1 ' e aktarılacak. Arkadaşlar biraz karmaşık mı oldu bilmiyorum ama eğer yardımcı olacak arkadaşlar ve üstadlar varsa yardımlarını bekliyorum. Bu sorunla ilgilenecek kişilere şimdiden çok çok teşekkür ediyorum. Hepinize saygılarımı sunuyorum.

 

[millis]

soruya cevap yokmu?

Arkadaşlar Allahın bir kulu bu soruya cevap veremiyormu? Yada cevap vermek mi istemiyor? Çok mu zor bir soru? Yapılamıyorsa en azından yapamıyoruz denilebilir. Ayıp değil. Bende bileyim bu olmayacak diye.

 

[Hikmet26]

Private Sub ComboBox1_Change()
......
En alt satıra kodu ekliyorsun o kadar sayfayı seçiyor...

Frame2.Visible = False
KOD.SetFocus
Sheets("KASATAHS").Select



Süzme işlemi ve combobox kriterine göre

Private Sub TAHSEK_Change()

If TAHSEK.Value = "" Then
MsgBox "Bir Ödeme Şekli Seçiniz"
Exit Sub
End If


i = TAHSEK.List(TAHSEK.ListIndex)


Range("A4:G65000").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=i

End Sub

Private Sub UserForm_Initialize()
'Combobox Kriterleri
KASA.TAHSEK.RowSource = "VERILER!E1:E" & WorksheetFunction.CountA(Worksheets("VERILER").Range("E1:E500"))
End Sub


Umarım yardımcı olabilmişimdir anladığım kadarıyla eğer ikinci süzme işlemi istiyorsan onu da aynen yukarıdaki gibi bir değişken tanıyarak başka bir combobox ile yapabilirsin zaten listboxa aktarma işlemi yapmışsın diğer formlarda gerisi basit heralde...

Umarım işini görür...

 

[millis]

teşekkür ederim.

Private Sub ComboBox1_Change()
......
En alt satıra kodu ekliyorsun o kadar sayfayı seçiyor...

Frame2.Visible = False
KOD.SetFocus
Sheets("KASATAHS").Select



Süzme işlemi ve combobox kriterine göre

Private Sub TAHSEK_Change()

If TAHSEK.Value = "" Then
MsgBox "Bir Ödeme Şekli Seçiniz"
Exit Sub
End If


i = TAHSEK.List(TAHSEK.ListIndex)


Range("A4:G65000").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=i

End Sub

Private Sub UserForm_Initialize()
'Combobox Kriterleri
KASA.TAHSEK.RowSource = "VERILER!E1:E" & WorksheetFunction.CountA(Worksheets("VERILER").Range("E1:E500"))
End Sub


Umarım yardımcı olabilmişimdir anladığım kadarıyla eğer ikinci süzme işlemi istiyorsan onu da aynen yukarıdaki gibi bir değişken tanıyarak başka bir combobox ile yapabilirsin zaten listboxa aktarma işlemi yapmışsın diğer formlarda gerisi basit heralde...

Umarım işini görür...

Çok sağolasın. Demekki bir Allahın kulu varmış. Bilgine ve emeğine sağlık. Saygılarımı sunarım.