karaelmas4467
Altın Üye
- Katılım
- 23 Aralık 2006
- Mesajlar
- 202
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 31-07-2027
açıklamayı ekte yaptım. yazdırma alanını resim olarak bir hücrede gösterebilirmiyim. şimdiden teşekürler..
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sanırım kimse ilgilenmedi.. gerçi biraz aceleci oldum ama cevaba acil ihtiyacım var..açıklamayı ekte yaptım. yazdırma alanını resim olarak bir hücrede gösterebilirmiyim. şimdiden teşekürler..
Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False
If [B61] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$G$60:$L$79"
Else
ActiveSheet.PageSetup.PrintArea = ""
End If
Application.DisplayAlerts = True
End Sub