sayfaları yazdırmak

[polis-53]

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]

Merhaba.

Aşağıdaki kod ile istenilen yapılabilir (işlem öncesi sayfalardaki YAZDIRMA ALANInı kontrol ediniz).

Sub K20_YAZDIR()
    For Each shf In ThisWorkbook.Sheets
        If shf.[K20].Value <> "" Then shf.PrintOut
    Next
End Sub

 

[polis-53]

çok teşekkür ederim tam istediğim gibi iyi ki varsınız.