Vba Kod Yardımı

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
840
Excel Vers. ve Dili
Office 2016 TR
Altın Üyelik Bitiş Tarihi
08-09-2028
Merhaba,

Siz değerli hocalarımın yardımı ile ekli tablo geliştirildi. Tablom iki bölümde oluşmakta.
Birinci bölüm; B2:R97 arasında bulunan tabloda ki verileri raporu gönder tuşu ile mail atabiliyorum.
İkici bölüm; raporlara kapak yapma niyeti ile oluşturulan AA121:AT155 arasında ki tablo

Her iki tabloda kullanılan kodaları tek makro altında birleştiremedim. Birinci makro içerisine Call komutu ekleyerek sorunu çözdüm ancak, işlem ikinci tblo ile sonlandığından dolayı yazdırma alanı AA121:AT155 seçili olarak kalıyordu, mail yollama alanı her aman B2:R97 arasında olmalı. Bu sorunu çözmek için ikinci modüle;
Range("B2:R97").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$R$97"
kodlamayı kullandım.

Doğru mantık kullanmışmıyım veya kodlama daha düzgün hale nasıl getirilebilir ?

Yardımlarınız için teşekkür ederim.
 

Ekli dosyalar

Üst