Liste içerisinde aynı veriyi bulduğunda son verinin olduğu yeri renklendirmesi

[millis]

Ben excel sayfasında bulunan listede veri girişi yapmaktayım. Bu veriler içerisinde sütünlarda farklı farklı veriler var örneğin; a sütünuna isimleri, b sütünuna soyadı, c sütünuna numarası...... j sütununa da plakaları giriyorum. Buradaki sorun bir çok kez aynı plakayıda girebilme ihtimalim var. daha önce kayıtlı olan aynı plaka var ise en son girdiğim aynı plakanın bulunduğu satırı komple sarıya boyamasını istiyorum. Yani; J3 de 34 ABC 01 plaka girişi yaptım, daha sonra J156 da da aynı plakayı girdiğimde ( 34 ABC 01 ) bu satırı tamamen A156 dan AZ156 ya kadar olan kısmı sarıya boyamasını istiyorum. Eğer bu konu ile ilgilenirseniz çok sevinirim. Acil olarak lazım. İlgilenen tüm arkadaşlara ve üstadlara şimdiden saygılarımı ve teşekkürlerimi sunarım.

 

[Ayhan Ercan]

Aşağıdaki kodu ilgili sayfanın kod görüntüleyicisine yazıp deneyin...

Private Sub Worksheet_Change(ByVal Target As Range)
son = Range("j65336").End(3).Row
x = Range("j" & son).Value
    For i = 1 To son - 1
        If Range("j" & i).Value = x Then
        Range("A" & son & ":AZ" & son).Interior.ColorIndex = 6
        End If
    Next
End Sub