Filtreleyerek yazdır butonu

[mcetinkaya65]

İlçe Müftülüğüne bağlı köylere kütüphane oluşturuyoruz yaklaşık 150 köy var. Bir program hazırladım tabi ki yardımlarınızla.
Fakat iş ilerledikçe bazı işler artıyor. Gönderdiğim örnekteki sayfaya bir yazdır butonu eklenmesi F3-F57 aralığını inceleyip 0,00 ları hariç A1 den F57 ye kadar olan alnı yazdırması yazdırdıktan sonrada filtreyi kaldırması mümkün mü?
Not:Bazı camiler daha önce bazı kitapları daha önce temin ettiği için her camiye tam liste kitap verilmiyor. Sadece caminin istesiği kitapların listesini çıkarmak için.
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Öncelikle tablonuzda A1:F57 yazdırma alanını tanımlayıp, sütunlar sığacak şekilde biçimlendirin.

Sub kod()

    With Sheets("Liste")
        On Error Resume Next
        If Not .AutoFilterMode Then
            .Range("A1").AutoFilter
        Else
            .ShowAllData
        End If
        On Error GoTo 0
        
        .Range("$A$2:$F$57").AutoFilter Field:=6, Criteria1:="<>0"
        .PrintOut
        
        On Error Resume Next
        If Not .AutoFilterMode Then
            .Range("A1").AutoFilter
        Else
            .ShowAllData
        End If
        On Error GoTo 0
    End With
    
End Sub

. . .

 

[mcetinkaya65]

İlginize Teşekkür ederim.
Sağ olun var olun.Allah Razı olsun