buton ile yazı rengi değiştirmek

[sturan]

örnekte belirttiğim gibi işaretlenen hücrelerin yazı rengi değiştirilebilir mi?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları denermisiniz.

Option Explicit
 
Sub SİYAH()
    Range("AO15,AS15:AT15,AN17,AP17:AR17,AO34,AS34:AT34,AN36,AP36:AR36").Font.ColorIndex = 0
End Sub
 
Sub BEYAZ()
    Range("AO15,AS15:AT15,AN17,AP17:AR17,AO34,AS34:AT34,AN36,AP36:AR36").Font.ColorIndex = 2
End Sub

 

[sturan]

tesekkürler tam istediğim gibi elleriniz dert görmesin