Koşullu yazdır makrosu

[alicanxy58]

Öncelikle, 5 yılını tamamlayan formunuza, başarılar içinde daha nice yıllar diyerek sorumu sormak istiyorum.
Ekteki dosyada yazdır ile ilgili bir problemim var yardımcı olursanız sevinirim.

 

[fedeal]

Sub fed()
If Cells(53, 1).Value <> "" Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AR$91"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
       ActiveSheet.PageSetup.PrintArea = "$A$1:$AR$44"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

iyi çalışmalar.

 

[alicanxy58]

Sayın fedeal cevabınıza teşekkür ederim.
Ancak;
Gönderdiğiniz makro A53 Hücresinde formül varken sayı gibi algılıyor ve A53 Hücresi sayısal olarak boşta olsa sayı varmış gibi iki sayfayıda yazdırıyor.

 

[fedeal]

eki inceleyin bende problem görünmüyor.

 

[fedeal]

pardon anlamamışım kodları şöyle yazalım o zaman,

Sub fed()
If Cells(53, 1).Value > 0 Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AR$91"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
       ActiveSheet.PageSetup.PrintArea = "$A$1:$AR$44"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

 

[alicanxy58]

Sayın fedeal cevabınıza teşekkür ederim.

İstedigim cevap tam olarak buydu.

 

[fedeal]

Sayın fedeal cevabınıza teşekkür ederim.

İstedigim cevap tam olarak buydu.

ricaederim, iyi çalışmalar.