Renge Göre Renklendirme

[baydeniro]

Merhaba Arkadaşlar
D-E-F sütunlarındaki hücre dolgu rengine göre C sütunundaki hücreyi aynı renk yapması mümkün mü !
Koşullu Biçimlendirmeyi epeyce kurcaladım ama renge seçeneği bulamadım.
Çözüm makro ile de olabilir.

 

[Ömer]

Merhaba

Deneyiniz.

Sub renk()

    Dim i As Range, r As Byte, son As Long
    
    son = Cells(Rows.Count, "C").End(xlUp).Row
    
    Range("C3:C" & Rows.Count).Interior.ColorIndex = 0
    
    For Each i In Range("D3:F" & son)
        If i.Interior.ColorIndex > 0 Then
            r = i.Interior.ColorIndex
            Cells(i.Row, "C").Interior.ColorIndex = r
        End If
    Next i

End Sub

 

[baydeniro]

Merhaba

Deneyiniz.

Sub renk()

    Dim i As Range, r As Byte, son As Long
   
    son = Cells(Rows.Count, "C").End(xlUp).Row
   
    Range("C3:C" & Rows.Count).Interior.ColorIndex = 0
   
    For Each i In Range("D3:F" & son)
        If i.Interior.ColorIndex > 0 Then
            r = i.Interior.ColorIndex
            Cells(i.Row, "C").Interior.ColorIndex = r
        End If
    Next i

End Sub

Ömer üstadım, çok teşekkür ediyorum. Emeğinize aklınıza sağlık. sağlıcakla kalın