Bir kodu tüm çalışma sayfasına uygulamak

[ASLAN7410]

Herkese hayırlı geceler.

Aşağıdaki kodu sadece Sayfa1'e değilde, diğer sayfalarıda etkileyecek şekilde tüm çalışma kitabına uygulamak istiyorum.

Sub YazıKareakteri()
Sheets("Sayfa1").Cells.Font.Name = "Times New Roman"
End Sub

Bu şekilde yapıyorum hata veriyor.

Private Sub Workbook_Open()
ThisWorkbook.Cells.Font.Name = "Times New Roman"
End Sub

Yadım edecek arkadaşlara teşekkür ederim.

 

[Mustafa MUTLU]

Şu şekilde deneyiniz.

Sub YazıKareakteri()
Cells.Font.Name = "Times New Roman"
End Sub

 

[ASLAN7410]

Sayın Mustafa Bey ilginize çok teşekkür ederim.

Sizin yazmış olduğunuz ilk açılış sayfasına ekledim, çalışmadı.

Private Sub Workbook_Open()
Sub YazıKareakteri()
Cells.Font.Name = "Times New Roman"
End Sub

Bu kodu sayfa açılırken tüm sayfalara uygulamak istemiştim.

 

[Mustafa MUTLU]

Açılışta tüm sayfalara otomatik uygulanmasını mı yoksa Bir tuş aracılığıylamı uygulamak istiyorsunuz

 

[dEdE]

Merhaba,
Şunu deneyebilir misiniz?

Private Sub Workbook_Open()
    x = Worksheets.Count
    For i = 1 To x
        Worksheets(Sheets(i).Name).Cells.Font.Name = "Times New Roman"
    Next
End Sub

 

[ASLAN7410]

Sayın Mustafa Bey açılışta tüm sayfalara otomatik uygulanmasını istemiştim.

 

[Orion1]

Alternatif.

Sub karakter59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Cells.Font.Name = "Times New Roman"
Next
End Sub

 

[ASLAN7410]

Yardımcı olan herkese ayrı ayrı çok teşekkür ediyorum, hayırlı geceler.