Hücrede dolgu (renk ya da başka) olduğu makro ile nasıl anlaşılır?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Hücre zemininde dolgu (renk ya da başka) olduğu makro ile nasıl anlaşılır?
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Renk_Kontrol()
    If ActiveCell.Interior.ColorIndex <> -4142 Then
        MsgBox "Hücrede dolgu rengi var."
    End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

If Not ActiveCell.Interior.ColorIndex = xlNone Then
MsgBox "Dolgu Rengi Var"
Else
MsgBox "Dolgu Rengi Yok"
End If

 

[Tevfik_Kursun]

Sayın Korhan Hocam, Seyit Hocam,
İlgilerinize çok teşekkür ederim. Hücreleri seçtiğinizde makro çalışırsa var ya da yok diyor. Demek ben soruyu doğru soramamışım. Soruyu örnekle değiştirsem çok ayıp etmiş olmam umarım. Örnek 15. satır dahil boyalı. 21. satırda D21:L21 arasındaki hücrelerden biri seçili iken makro çalıştığında hücreler 21. satıra kadar, 15. satırdaki hücrelerin renkleri ile boyansın. Problemim bu. Baştan doğru anlatamadığım için tekrar özür dilerim.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba,
Hepinize tekrar teşekkür ederim. Korhan hocanın daha önceki bir çalışmada yaptığı tavsiyeyi uyguladım.

Sub Makro1()
    Range([A5].Text).Select
    Range("G5").Activate
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
End Sub

Saygılarımla