Soru Eski Çalışma Sayfasında ki Rengi Yeni Sayfada Getirme

[baranynl]

Merhabalar,

Sorum şu olacak bir çalışma sayfam var aynı isimlerin yer aldığı yeni bir sayfa oluşturdum daha önce Eski olarak isimlendirdiğim sayfadaki renklerin yeni sayfa da işaretlemesi gibi soru olarak biraz karmaşık oldu. Örnek dosyayı ekte paylaşıyorum desteğinizi rica ederim.

 

[Ömer]

Merhaba,

Deneyiniz.
İsme göre değil, T.C numarasına göre arattırdım.

Sub renk_ver()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, c As Range, r As Integer
    
    Set S1 = Sheets("YENİ ")
    Set S2 = Sheets("ESKİ ")
    
    Application.ScreenUpdating = False
    S1.Select
    Range("A4:C" & Rows.Count).Interior.ColorIndex = xlNone
    
    For i = 4 To S2.Cells(Rows.Count, "C").End(xlUp).Row
        Set c = [C:C].Find(S2.Cells(i, "C"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            r = S2.Cells(i, "C").Interior.ColorIndex
            Cells(c.Row, "A").Resize(1, 3).Interior.ColorIndex = r
        End If
    Next i
    
End Sub

 

[baranynl]

Teşekkürler ilginiz için