Otomatik Filtreleme Yaptıktan Sonra PDF Yaptırma

[ikayserili]

Merhaba

bi konu hakkında çözüm yapamadım mevcut sizlerin paylaştığı kodlardan. Bana yardımcı olurmusunuz lütfen.
Ana sayfada bulunan bir butonum var. bu buton mevcut makroyu (Diğer sayfaları PDF yapıyor) çalıştırıyor.
Makro'nun başına;

2 sayfanın X3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
3 sayfanın H1 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
4 sayfanın S3 hücresine filtre ekledim. sadece 1 olanları sayfada olması gerekiyor. boş olanları sayfada gözükmemesi gerekiyor.
sayfalarındaki otomatik filtreleme yaptırmak istiyorum.

örnek olarak şu kod'u denedim;
Sheets2.Selection.AutoFilter Field:=24, Criteria1:="<>"
ama hata vermektedir. bu sayfa için bu kod çalışsa idi diğer sayfaları da buna göre yapacaktım.
Yani yapmak istediğim, sayfaları PDF yapmadan önce boş olan satırları kapatıp o şekilde PDF yapması.

soru ile hazırladığım excel

Hata indir

Hata

www.dosyaupload.com

 

[alicimri]

MALZEME LİSTESİ listesi için aşağıdaki kodu kullanın. Diğer sayfalar için de kodları revize edin

    Sheets("MALZEME LİSTESİ").Range("S3").AutoFilter Field:=1, Criteria1:=1

 

[ikayserili]

ilgili kod'u denedim benimkinde olduğu gibi hata veriyor.
For Next döngüsü hemen üzerine ekliyorum kod'u.