sayfaları yazdırmak

polis-53

Altın Üye
Katılım
26 Aralık 2008
Mesajlar
1,089
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
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.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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
 

polis-53

Altın Üye
Katılım
26 Aralık 2008
Mesajlar
1,089
Excel Vers. ve Dili
EXCEL 2016 TÜRKÇE
çok teşekkür ederim tam istediğim gibi iyi ki varsınız.
 
Üst