eger sorgusu ile hücre renklendirme

[bitmez13]

a1 hücre rengi gri b1 hücresine eger a1 hücresi rengi gri ise b1-b15 arası hücrelerde gri olacak şekilde kodlama yapabilirmiyiz

 

[Korhan Ayhan]

Merhaba,

Renk kodu 15 olan gri renge göre aşağıdaki kodu kullanabilirsiniz.

Sub Renklendir()
    Range("B1:B15").Interior.ColorIndex = xlNone
    If Range("A1").Interior.ColorIndex = 15 Then
        Range("B1:B15").Interior.ColorIndex = 15
    End If
End Sub

İlgili hücrenin renk kodunu öğrenmek için aşağıdaki kodu kullanabilirsiniz. Hücreyi seçip kodu çalıştırın.

Sub Renk_Kodu()
    MsgBox Selection.Interior.ColorIndex
End Sub

 

[bitmez13]

korhan bey tesekkürler birde şöyle olurmu a1 hücresi gri ise b1 de gri olacak(eger kullanılarak)

 

[Korhan Ayhan]

Fonksiyonlarla hücre rengini sorgulayamazsınız. Bu sebeple makro önerdim.