Sayfa ayarlarının standart gelmesi

[maxinus]

Sayfa özelliklerinin değiştirilmesi

Arkadaşlar merhaba,

Ben excel de bazı satır ve sütunların gözükmemesini istiyorum.P sütunun gizli olması , 48 ile 68 'ınci satırlar arası gizli olması ve alt bilgiye yazdığım yazı bütün yeni oluşturacağım excel dosyalarımda yazsın istiyorum.Bu üç özelliği nasıl standartlaştıra bilirim.Teşekkür ederim.

 

[ozgretmen]

Aşğaıdaki kodu çalışma kitabınızın ThisWorkbook modülüne ekleyiniz.

Private Sub Workbook_Open()
On Error Resume Next
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Select
Columns("P:P").Select
Selection.EntireColumn.Hidden = True
Rows("48:68").Select
Selection.EntireRow.Hidden = True
 'Sayfa Alt ve Üst Bilgileri
 With ActiveSheet.PageSetup
        .LeftHeader = "SOL KISIM"
        .CenterHeader = "ORTA KISIM"
        .RightHeader = "SAĞ KISIM"
        .LeftFooter = "SOL ALT KISIM"
        .CenterFooter = "ALT ORTA KISIM"
        .RightFooter = "SAĞ ALT KISIM"
    End With
Next sht
End Sub

 

[maxinus]

Yardımlarınız için teşekkür ederim fakat ben bu kodları yazdım ama alt bilgi üst bilgi kısmı yeni bir excel dosyası açtığım zaman gözükmüyor.Ben istiyorum ki yeni excel dosyası da oluştursam burada yazdığım alt bilgler gözüksün.

 

[ozgretmen]

Yardımlarınız için teşekkür ederim fakat ben bu kodları yazdım ama alt bilgi üst bilgi kısmı yeni bir excel dosyası açtığım zaman gözükmüyor.Ben istiyorum ki yeni excel dosyası da oluştursam burada yazdığım alt bilgler gözüksün.

Bu kodla sadece bir çalışma kitabının açılışında o kitapta yer alan tüm sayfalara özellikler uygulanır.Sizin istediğiniz yapılabilir mi bilmiyorum.Ama bence sıkıntı olur.Her kitapta bazı sütunların,satırların gizli gelmesi...