Boş Hücrelerin Fontunun Kırmızı Yapılması

[baydeniro]

Merhaba Arkadaşlar,

Kod yardımıyla C3:E8 alanındaki BOŞ hücrelerin font büyüklüğünün 8 ve font renginin kırmızı (font kodu 3) yapılması mümkün mü ?

Örnek dosya linki :
http://s8.dosya.tc/server5/r5d6zp/_Bos_Hucreleri_Formatla.xls.html

 

[Orion1]

Buyurun.

Sub font59()
Range("C3:E8").Font.Color = vbBlue
Range("C3:E8").Font.Size = 12
Range("C3:E8").SpecialCells(xlCellTypeBlanks).Font.ColorIndex = 3
Range("C3:E8").SpecialCells(xlCellTypeBlanks).Font.Size = 8
End Sub

 

[baydeniro]

Orion1 üstadım çok teşekkür ediyorum. Her zaman ki gibi imdada yetiştiniz. Emeğinize sağlık, sağlıcakla kalın.

 

[Orion1]

Orion1 üstadım çok teşekkür ediyorum. Her zaman ki gibi imdada yetiştiniz. Emeğinize sağlık, sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.