hücrenin zemin ve yazı rengi

[Levent Menteşoğlu]

bir hücrenin zemin ve yazı rengini algılayarak sayısal kod değerini veren bir koda ihtiyacım var. önerileriniz için şimdiden teşekkür ederim.

 

[Hüseyin]

Sub renk()
yazirenkkodu = Range("A1").Font.ColorIndex
hucrerenkkodu = Range("A1").Interior.ColorIndex
End Sub

 

[Levent Menteşoğlu]

Sayın Hüseyin

verdiğiniz kodlar tam istediğim gibi. Teşekkür ederim