boş çıktı sayfalarını kaldırmak

[synthkey]

veri olan 1.sayfa haricinde önizlemede de görülen ve yazıcıdan da boş olarak gelen 2.sayfa nasıl silinir kaldırılır ...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfa_Sil()
 
    Dim sat As String, sut As String, son As Long
    
    son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    sat = Split(ActiveSheet.PageSetup.PrintArea, ":")(0)
    sut = Split(ActiveSheet.PageSetup.PrintArea, "$")(3)
    
    ActiveSheet.PageSetup.PrintArea = Range(sat & ":" & sut & son).Address

End Sub

.

 

[synthkey]

afedersiniz bu kod nereye girilecek bilmiyorum yardımcı olurmusunuz lütfen..

 

[Ömer]

Önce makro kullanmak için güvenlik seviyesini düşermeniz gerekir. Bu işlemi kullandığınız bilgisayarda bir defa yapmanız yeterli olur.

Makro ayarlarını düşürme

Daha sonra çalışmanıza aşağıdaki verdiğim linkteki gibi modul ekleyip kodları kopyalayın ve bir butona bağlayın yada Alt F8 ile çalıştırın. İstediğiniz sayfada bu işlemi yapabilirsiniz.

Modul ekleme

Son olarak makro eklediğiniz dosyaları farklı kaydet bölümünden "Makro içerebilen excel çalışma kitabı" türünü seçerek kaydedin.

.