Excel saysında birden fazla filtre uygulaması

[taseraydin]

Değerli üstad arkadaşlar ;
kasa defteri olarak tutmuş olduğum excel sayfasında aynı satırlara denk gelen
tediye ve tahsilat kısımlarında macro ile ayrı ayrı filtre yaptırmak istiyorum
örnek bir filtre kodunu uygulamaya çalışrım olmadı

kodlamada acaba nasıl bir hata yapıyorum yardımcı olurmusunuz

 

[hamitcan]

Satırlar süzüldüğü için birbirinden bağımsız yapamazsınız.

 

[taseraydin]

Haklısınız üstad,
dosyayı değiştirip faklı bir sayfada filtre yapsak
ek dosyayı değiştirdim

 

[hamitcan]

Private Sub TextBox1_GotFocus()
[a9:d51].ClearContents
[f9:i51].ClearContents
End Sub
[color=red]'TextBox içinden çıktığınızda kod çalışır.[/color]
Private Sub TextBox1_LostFocus()
c = 8
k = 8
Set S1 = Sheets("KASA")
For Each hcr In S1.Range("B10:B" & S1.[B65536].End(3).Row)
If TextBox1.Value = hcr.Text Then
c = c + 1
Cells(c, 1) = c - 8
Cells(c, 2) = hcr.Text
Cells(c, 3) = S1.Cells(hcr.Row, 3)
Cells(c, 4) = S1.Cells(hcr.Row, 4)
End If
Next

For Each hcr2 In S1.Range("g10:g" & S1.[g65536].End(3).Row)
If TextBox1.Value = hcr2.Text Then
k = k + 1
Cells(k, 6) = k - 8
Cells(k, 7) = hcr2.Text
Cells(k, 8) = S1.Cells(hcr2.Row, 8)
Cells(k, 9) = S1.Cells(hcr2.Row, 9)
End If
Next
End Sub

 

[taseraydin]

Excelde kasa uygulamaları

Sayfada textboxta belirtilecek olan tarihe göre
tediler-> kasa sayfasından belirtilen tarihe ait "alacak" sutunundan
tahsilatlar-> kasa sayfasından belirtilen tarihe ait "borç" sutunundan
aktarma işlemi

 

[hamitcan]

Çözemedim kusura bakmayın.

 

[taseraydin]

RİCA EDERİM
ilginize TEKRAR teşekür edrim