Buton yardımıyla yazdırma alanının seçilmesi:

[yuang]

Arkadaşlar Excelde oluşturulmuş bir tablonun buton yardımıyla yazdırma alanını nasıl seçebiliriz.? Makrosunu bilen bi arkadaş yardımcı olursa sevinirim.
Örneğin: A5 hücresinde sheetler arasında hemen Ana Menüye Dönmek İçin Bir butonumuz var. C5 hücresindede yapmak istediğimiz yazdırma alanının seçmek için yapacağımız buton mevcut olacak. A8 ile G29arasına ise veri girişlerimizi yapacağız ve 30 nolu satırdada bazı sütunların toplamı olacak. Mesala A8:G100 arasına veri girişi yapılmış bir sayfada Buton Yardımı İle Sadece A8:G10 arasına Veri girişi yapılmış ve 30 nolu satırdaki toplam Miktarların yazıldığı alanı baskı önizlemeye (print priwiew) seçimini nasıl yaparız.?
Yardımlarınız İçin Şimdiden Teşekkürler.

Not: Örnekte Daha iyi anlaşılacaktır.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub YAZALAN()
Dim ALAN As String
ALAN = InputBox("Yazdırma alanını giriniz!Not:A8:G15 gibi")
ActiveSheet.PageSetup.PrintArea = ALAN
End Sub

 

[yuang]

Çok Teşekkürler ama istediğimi tam olarak anlamatım galiba. Butona tıklandığında sadece veri girilmiş satırları + son hanedeki toplam satırını print prewiew ekranına getirecek... hiç bir veri girişi yapılmamış satırı ekrana getirmeyecek

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub YAZALAN()
Dim ALAN As Range
For Each ALAN In Range("A8:A29")
If ALAN.Interior.ColorIndex = 8 Then
ALAN.EntireRow.Hidden = True
Else
ALAN.EntireRow.Hidden = False
End If
Next
ActiveSheet.PrintPreview
End Sub

 

[yuang]

yazdığınız makroyu çok güzel,denedim ama uzun aralık verilen sayfalarda satırları saklamak için tek tek tarama yaptığından çok uzun süre beklemek gerekiyor...

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub Makro1()
[a8:a29].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PrintPreview
[a8:a29].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
End Sub

 

[hasemrah]

tEŞEKKÜRLER. çok şey öğreniyorum