gelişmiş filtre bazı çalışma sayfalarında olmuyor.

[caparso2002]

arkadaşlar şöyle bir sorunum var.
ekteki dosyada göreceksiniz.
aefes akbnk ve akcns sayfaları için gelişmiş filtre uyguladım.
filtrede liste aralığı; $B$28:$J$216
ölçüt aralığı; $B$6:$B$9
hedef; $B$18:$J$21
yani CITIBANK YABANCI N.A , DEUTSCHE BANK (YABANCI) , TURK EKONOMI BANK (YABANCI) ve EURO BANK TEKFEN A.Ş. isimleri filtre uygulayacağım listede varsa b18 j21 satırlarına bunların bilgilerini yazıyor.
filtre akbnk sayfasında çalışıyor ama diğer sayfalarda çalışmıyor.
sebebini anlayamadım.
bu üç sayfa arasında tek fark sadece akbnk sayfasında en üstteki veri CITIBANK YABANCI N.A
yardımcı olabilirmisiniz.
bu sorunumu kodla felan veya daha değişik bir şekilde çözebilirmiyiz.
teşekkürler.

 

[caparso2002]

arkadaşlar hiç bişey yazan yok.
kodla yapılmazmı bu süzme olayı.
çok acil çözmem lazım bu sorunu, yardım bekliyorum.

 

[halit3]

kodda her veri sayfasınıdan alınan sayfaya ek olarak "_t" işlemi geliyorsa aşağıdaki kodu kullanabilirsiniz

Sub K22_al()
Dim sat As Long
yer = ActiveSheet.Name
sayfa = Mid(yer, 1, Len(yer) - 2)
Sheets(yer).Select
sat = Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65533 Then
MsgBox "Satır doldu başka kayıt yapamazsınız..", vbCritical, "UYARI"
Exit Sub
End If
Cells(sat, "A").Value = Date
Cells(sat, "A").NumberFormat = "dd.mm.yyyy"
Cells(sat, "B").Value = Sheets(sayfa).Cells(22, "K").Value
Cells(sat, "B").NumberFormat = "#,##0.00"
Cells(sat, "C").Value = Sheets(sayfa).Cells(15, "N").Value
Cells(sat, "C").NumberFormat = "#,##0.00"
End Sub

 

[caparso2002]

halit3 hocam çok teşekkür ederim ilginize, yazdığınız kod filtreleme işlemini yapmadı.
benim amacım filtreyi doğru uygulatabilmek.
liste aralığının ilk değer CITI ise filtreleme oluyor değilse aefes ve akcns sayfasında olduğu gibi olmuyor.
çıkamadım işin içinden.
filtrelemeyinasıl yapabilirim.

 

[caparso2002]

Sorunum çözüldü teşekkürler arkadaşlar.