Auto filtre hakkında yardımlarınızı bekliyorum

[dragman]

Selam arkadaşlar iyi bayramlar.Şöyle bir sorunum var 100 den fazla müşterim var ve benden mal aldığında o tarihe ait ne almışsa gizlediğim sayfadan makro ile yazdırıyorum,fakat makro ile oluşturduğum çıktı sayfası sonardan verdiğim bir ürünü görmüyor ilk ne yapmışsam onu görüyor sıfır(0) değerli hüçrelerin yazılmasını istemiyorum hangi hüçrede sıfır değeri hariç diğer hüçreleri süzülüp yazdırmasını ve ardından tekradan sayfayı gizlemesini istiyorum.Kodu ve dosyayı ekledim.Şimdiden teşekkürler iyi bayramlar...
şifre:7084
kod:
Sub a_1()
'
' a_1 Makro
'

'
Sheets("1").Select
Sheets("a1").Visible = True
ActiveWorkbook.Save
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1, Criteria1:=Array( _
"10,000", "10,500", "5,000", "9,000"), Operator:=xlFilterValues
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1, Criteria1:=Array( _
"10,000", "10,500", "5,000", "9,000"), Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-21
Range("C5:C35").Select
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1
Range("C11:C36").Select
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1, Criteria1:=Array( _
"10,000", "10,500", "5,000", "9,000"), Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-42
Range("C5:C35").Select
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-66
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1, Criteria1:=Array( _
"10,000", "10,500", "5,000", "9,000"), Operator:=xlFilterValues
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$C$4:$C$36").AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-12
Range("C5").Select
ActiveWorkbook.Save
Sheets("a1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("MÜŞTERİ LİSTESİ").Select
Range("A1").Select
End Sub

 

[dragman]

Çözümü kendim buldum arkadaşlar
Sub _1()
'
' _1 Makro
'

'
Sheets("25").Select
Sheets("erd1").Visible = True
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.Range("$a$3:$c$39").AutoFilter Field:=2
ActiveSheet.Range("$a$3:$c$39").AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-18
ActiveWorkbook.Save
Range("A3").AutoFilter 2, ">0", xlOr, ">0" iki sütünanada filtre uyguayınca oldu ...
Range("A3:C39").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$39"
ActiveWindow.SmallScroll Down:=-33
ActiveWorkbook.Save
ActiveWindow.SmallScroll Down:=-12
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWorkbook.Save
Sheets("erd1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("MÜŞTERİ LİSTESİ").Select
Range("A1").Select
End Sub