DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub askm()
Sheets("Sayfa1").Columns(46).Hidden = True
Sheets("Sayfa1").Columns(47).Hidden = True
Sheets("Sayfa1").PageSetup.PrintArea = "$A$1:$AZ$78"
Sheets("Sayfa1").PrintOut Copies:=1
Sheets("Sayfa1").Columns(46).Hidden = False
Sheets("Sayfa1").Columns(47).Hidden = False
End Sub
Ben tablonuzda görsel değişiklik olmaması için birleştirme alanını genişletmenizi önermiştim. Tabi sizin taktiriniz yaptığınız işlem de işinizi görecektirat:au hücresini av:aw taşıdım üstteki bilgilerde silinmedi.