Özelliğine göre zeminin rengini değiştirmek

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Sarı renkli hücrelere dokunmadan kırmızı renkli hücrelerin rengini, bulunduğu sütunların rengine çevirmek istiyorum. İlk sütun üzerinde çalıştım. Başaramadım, yardımcı olursanız sevinirim.
Saygılarımla

 

[muratboz06]

İnceleyiniz.
Fikir verecektir.

 

[Tevfik_Kursun]

İlginize teşekkür ederim
Saygılarımla

 

[DoğanD]

Merhaba,

Seçili alanda renk düzeltmesi yapıyor. Alternatif olması açısından;

Sub dd()
Dim alan, hcr As Range
Set alan = Selection.Cells
For Each hcr In alan
If hcr.Interior.Color = 255 Then
For y = alan.Row To alan.Row + Selection.Rows.Count
 If Cells(y, hcr.Column).Interior.Color <> 255 And Cells(y, hcr.Column).Interior.Color <> 65535 Then
 hcr.Interior.Color = Cells(y, hcr.Column).Interior.Color
 GoTo dgr
 End If
Next y
End If
dgr:
Next
End Sub