İlk açılışta kodları bütün sayfalara uygulamak

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın ilk açılışındaki kodları bütün sayfalara uygulamak istiyorum, ama hata veriyor. Bir de kodlar kısaltılabilir mi?

Yardımcı olur musunuz?

 

[turist]

Dosyanız eklidir.

 

[Necdet]

Bende düzenleme yapmıştım. İnceleyiniz.

Private Sub Workbook_Open()

    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    Dim sh As Worksheet
    
    For Each sh In Worksheets
        sh.Select
        Cells.Font.Name = "Calibri"
        Cells.Font.Size = 12
        ActiveWindow.Zoom = 120
        If AutoFilterMode Then Range("A1:H1").AutoFilter
        
        Range("A1:H10000").Borders.LineStyle = xlNone
        Range("A1:H10000").Interior.Color = xlNone
        Cells.FormatConditions.Delete
        Range("A1:H10000").FormatConditions.Add Type:=xlExpression, Formula1:="=$A1<>"""""
        Range("A1:H10000").FormatConditions(Sheets("Ocak").Range("A1:H10000").FormatConditions.Count).SetFirstPriority
        With Range("A1:H10000").FormatConditions(1)
            .Borders.LineStyle = xlContinuous
        End With
    Next

    
    Application.ScreenUpdating = True
    
    Sheets("İSTATİSTİK").Range("A1").Select
    
End Sub

 

[ASLAN7410]

Sayın turist bey ve sayın Necdet bey, ellerinize sağlık her iki kod'da güzel çalışıyor, çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[turist]

Sağ olun.