• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

sayfaları yazdırmak

Katılım
26 Aralık 2008
Mesajlar
892
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
11,707
Beğeniler
236
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
 
Üst