Gelişmiş Filtre Makrosu

[cem12]

Arkadaşlar merhaba

Sub Makro4()

For Each sayfa In ThisWorkbook.Sheets

sayfa.Activate

Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sayfa3.Range( _
"E2:G3"), CopyToRange:=Sayfa3.Range("E5"), Unique:=False

Next
End Sub

Herhangi bir sayfadaki A ve C sütunların da ,sayfa 3 te belirlediğim kriterlere göre ,filtreleme yapıp sonuçları sayfa 3 te belirlediğim kopyalatıyorum.
Yalnız bu işlemi sadece ilk sayfa için yapıyor.Ben her sayfa için yapmasını istiyorum.Makroya göre normalde olması gerekmez mi

 

[Korhan Ayhan]

Merhaba,

Döngü dosyanızdaki bütün sayfaları kapsıyor. Sanki Sayfa3 olan sayfayı kapsamaması gerekiyor gibi duruyor.

Örnek dosya paylaşırsanız inceleme fırsatımız olur.

 

[cem12]

Kitap1.xls

drive.google.com

Merhaba,

Döngü dosyanızdaki bütün sayfaları kapsıyor. Sanki Sayfa3 olan sayfayı kapsamaması gerekiyor gibi duruyor.

Örnek dosya paylaşırsanız inceleme fırsatımız olur.

Merhaba

Bu sadece deneme yaptığım dosya

Eğer olursa ana dosyaya eklemesini yapabilirim

Teşekkürler