Çözüldü Yazdırma Alanı Son Dolu Sütunu Belirleme

[hakki83]

Merhaba değerli hocalarımız

Örnek dosyada, yazdırma alanını makroyla belirleyen tek satırlık kod vardır.


Bu kod, son dolu satıra kadar seçimi yapabiliyor. Fakat son dolu sütuna kadar seçimi yapamıyor. Sadece A ve B sütunlarını seçiyor.


Son dolu sütunu da seçebilmesi için gerekli satırları ekler misiniz?
Teşekkürler.

 

[Kuşdili]

Merhaba
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Adnan]

Private Sub CommandButton1_Click()
kullan = Sayfa1.UsedRange.Address
ActiveSheet.PageSetup.PrintArea = kullan
End Sub

 

[hakki83]

Private Sub CommandButton1_Click()
kullan = Sayfa1.UsedRange.Address
ActiveSheet.PageSetup.PrintArea = kullan
End Sub

Adnan hocam emeğinize sağlık teşekkür ederim. Her zaman faydası olacak bir kod satırı oldu.

Değerli hocam şöyle bir deneme yaptım. Verili alanın dışına taşacak şekilde çerçeve (tüm kenarlıklar) uyguladım,
Mesela A1:L23 alanına çerçeve uyguladım. Çerçeveli olan alanı da seçti. Çerçeve dahi olsa çerçeveleri seçmeyecek; sadece veri olan satır sütunları seçecek şekilde bir kod daha yazar mısınız?

 

[Adnan]

bu kodu
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

yada aşağıdaki kodu kullanabilirsiniz

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Değerli hocam, ikisini de inceledim, ikisi de çok güzel, aralarındaki farkı da gördüm, biri sadece başlıklarda veri varsa seçiyor; diğeri hem başlıklarda hem de hücrelerde veri varsa seçiyor.
Emeklerinize sağlık.

 

[Adnan]

sağlıkla kalın