Yazdırma alanı

[mcetinkaya65]

Selamlar,
Geçici isimli sayfa nın k51 nolu hücresi dolu ise 1 ve 2. Sayfayı yazdır butonu yazdırıyor.Eğer boş ise sadece birinci sayfayı yazdırıyor.Bu makroyu düzenleyip bu mantıkla k93 ve k135 nolu hücreler de dolu ise dolu olandan başlayıp geri doğru başa kadar olan sayfaların yazdırılması mümkün mü?
Saygılarımla

 

[mcetinkaya65]

Excelde çözüm olmayan bir şey mi istedim.Alttaki makroyu da excel web.tr düzenlemişti
Option Explicit
Sub yazdır_61()
If Sheets("Geçici").Range("K51") = Empty Then
Sheets("Geçici").PrintOut to:=1, copies:=1
Else
Sheets("Geçici").PrintOut to:=2, copies:=1
End If
End Sub

Bu makroya nasıl düzenlemeliyiz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Yalnız modülün en başındaki "Option Explicit" ifadesini silin.

Sub yazdır_61()
Set s1 = Sheets("Geçici")
a1 = IIf(s1.[k9] <> "", 1, 0)
a2 = IIf(s1.[k51] <> "", 1, 0)
a3 = IIf(s1.[k93] <> "", 1, 0)
a4 = IIf(s1.[k135] <> "", 1, 0)
Sheets("Geçici").PrintOut to:=a1 + a2 + a3 + a4, copies:=1
End Sub

 

[mcetinkaya65]

Allah Razı olsun,Allah emeğinizi zai etmesin.Selamlar.