sayfaları yazdırmak

Katılım
26 Aralık 2008
Mesajlar
906
Beğeniler
0
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
#1
Merhaba arkadaşlar excel de çalışma kitabında 25 sayfam var bu sayfalarımda aynı formant ta tablolarım var bu tablolarda K20 hücresi dolu olan sayfaları bir butonla yazdırmak istiyorum.
Yardımcı olursanız çok sevinirim.
kolay gelsin.
 
Katılım
8 Mart 2011
Mesajlar
12,382
Beğeniler
479
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
#2
Merhaba.

Aşağıdaki kod ile istenilen yapılabilir (işlem öncesi sayfalardaki YAZDIRMA ALANInı kontrol ediniz).
Rich (BB code):
Sub K20_YAZDIR()
    For Each shf In ThisWorkbook.Sheets
        If shf.[K20].Value <> "" Then shf.PrintOut
    Next
End Sub
 
Katılım
26 Aralık 2008
Mesajlar
906
Beğeniler
0
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
#3
çok teşekkür ederim tam istediğim gibi iyi ki varsınız.
 
Üst