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

 

[m.ensar]

Hocam bu örneği A sütununda A10 hücresinden başlayarak hücre rengine göre B10 ve T40 aralığına nasıl uygularız A10 dan itibaren hücre rengi ne ise B10 dan itibaren aynı rengi almasını nasıl sağlarız

 

[okan32]

Deneyiniz....

Sub RenkleriKopyala()
    Dim ws As Worksheet
    Dim i As Long
    Dim kaynakHücre As Range
    Dim hedefAralik As Range
   
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    For i = 10 To 40
        Set kaynakHücre = ws.Range("A" & i)
        Set hedefAralik = ws.Range("B" & i & ":T" & i)
       
        If Not IsEmpty(kaynakHücre) Then
            hedefAralik.Interior.Color = kaynakHücre.Interior.Color
        End If
    Next i

    MsgBox "Renkler başarıyla kopyalandı!"
End Sub

 

[m.ensar]

Okan hocam ilginiz için teşekkür ederim. Renkler başarıyla kopyalandı diyor ancak koşullu biçimlendirme ile renklendirdiğim hücreleri kopyalamıyor manuel yapılan renklendirmeleri kopyalıyor. örnek bir dosya yüklüyorum.

 

[okan32]

Buyrun...

 

[m.ensar]

Okan Hocam çok teşekkür ederim mükemmel olmuş