Çoklu Yazı Rengi Değiştirme

[canbey6161]

Merhaba,

Sub Font()
    
    With Range("A25:H27").Font
         
        .Name = "tahoma"
        .Size = 9
        .Bold = True
        .ThemeColor = xlThemeColorDark1
        
    End With

End Sub

Yukarıda ki kodda seçime ilave olarak;

A25:H27;J25:Q27;A47:H49;J47:Q49

S1 (1) sayfası
"
"
"
"
S1 (150) arasında ki sayfalarıda eklemek istiyorum.
Sayfalardaki satır & sutunlar standarttır.

 

[Emir Hüseyin Çoban]

. . .

Sayfa isimleri sürekli değişken mi yoksa
kodlara bir kez yazılsa işinizi görür mü.

. . .

 

[canbey6161]

. . .

Sayfa isimleri sürekli değişken mi yoksa
kodlara bir kez yazılsa işinizi görür mü.

. . .

Sayfa isimleri S1 sabit, boşluk (...) parantez içinde ki rakam değişken
örnek; S1 (120)

Ama genelde kullandığım S1 (1) .... S1 (150) 'e kadar olan sayfalar sabit

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Dim s As String
    For i = 1 To 10
        Sayfa = "S1 (" & i & ")"
        With Sheets(Sayfa)
            With .Range("A25:H27,J25:Q27,A47:H49,J47:Q49 ").Font
                .Name = "Tahoma"
                .Size = 9
                .Bold = True
                .ThemeColor = xlThemeColorDark1
            End With
        End With
    Next i
End Sub

. . .

 

[canbey6161]

. . .

Sub kod()
    Dim s As String
    For i = 1 To 10
        Sayfa = "S1 (" & i & ")"
        With Sheets(Sayfa)
            With .Range("A25:H27,J25:Q27,A47:H49,J47:Q49 ").Font
                .Name = "Tahoma"
                .Size = 9
                .Bold = True
                .ThemeColor = xlThemeColorDark1
            End With
        End With
    Next i
End Sub

. . .

For i = 1 To 150 yapınca işimi gördü ilginiz için teşekkür ederim