• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Filtreleyerek yazdır butonu

mcetinkaya65

Altın Üye
Katılım
1 Mart 2011
Mesajlar
490
Excel Vers. ve Dili
2021 türkçe
İ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
 

Ekli dosyalar

. . .

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

Kod:
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

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