Soru Arka planda renk varsa mesaj versin

[k0081]

Merhaba arkadaşlar;

A2:A1000 aralığında arka planda Renk varsa;

Arka plan = Hücre dolgu rengi


Mesaj : arka planda renk var.

Yoksa ;

Mesaj : arka planda renk yok.

Bunu command buton ile nasıl yapabilirim ?

 

[rabbace]

Merhaba,

Aşağıdaki şekilde bir şey yaptım, fikir verebilir.

Sub renk()


For i = 1 To 100
Range("A" & i).Select
a = Selection.Interior.ColorIndex

If a <> -4142 Then
MsgBox ("Bu hücre renklidir")
Else
End If
Next i

End Sub

 

[k0081]

rabbace;

Hocam teşekkürler kod çalıştı. Mesajı veriyor. Ama şöyle bir düzenleme gerekiyor;

mesajı verirken sadece bir Hücre rengi varsa versin. Sizin vermiş olduğunuz kodu çalıştırdığımda 15 adet mesaj aldım.

Sadece bir mesaj yeterli olacaktır... Kodu Düzenlemeye çalışacağım.

Teşekkür ediyorum.