Soru Sütün Karşılaştırıp Renklendirme (Aynı Olanları)

[leonadies]

Değerli üstadlar konunun yakın çözümleri olsa da tam hitap eden bir cevap bulamadığım için konu açıyorum.

Giriş Sekmesi D : D sütununda
Veriler Sekmesi A:A sütununda verilerim var

İsteğim bu ayrı iki sekmedeki iki sütun arasında ortak olan veriler sadece "Giriş sekmesinde A:L satırı boyunca" yeşil renkle boyansın. Yani aynı olan verileri boyasın. Dosyalarım ektedir.

 

[S.Yiğit]

Merhaba, Giriş sayfasında D216 aralığını seçerek koşullu biçimlendirmeye girin yeni kural diyerek "Biçimlendirilecek hücreleri belirlemek için formül kullan" seçin
formül olarak

=EĞERSAY(Veriler!$A$2:$A$7;$D2)>0

yazın ve biçimlendir sekmesinden renk seçin ve işlemleri tamamlayın.

 

[leonadies]

Üstadım teşekkür ederim , ancak makro ile çözümlemeye ihtiyacım var @S.Yiğit

 

[leonadies]

Çözüm saglanamaz mi ?

 

[leonadies]

Hala çözemedim bu mevzuyu arkadşlar

 

[NADİR YILDIZ]

sayın leonadies bende benzer soru sordum.ama net cevap alamadım maalesef

Soru - listede benzer olmayanları aktarma

Arkadaşlar iki listede aynı olanları renklendirip.aynı olmayanları listelemek istiyorum

www.excel.web.tr

 

[leonadies]

Evet üstadların bakmasını bekliycez mecburen
Hiçbir yerde de net olarak örneği yok bu sorunun

 

[veyselemre]

Sub TEST()
    Dim son As Long, rng As String
    With Sheets("Veriler")
        son = .Cells(Rows.Count, 1).End(3).Row
        If son > 1 Then
            rng = .Range("A2:A" & son).Address
        Else
            Exit Sub
        End If
    End With
    son = Cells(Rows.Count, 4).End(3).Row
    If son = 1 Then Exit Sub
    For i = 2 To son
        If Evaluate("=COUNTIF(Veriler!" & rng & "," & Cells(i, 4).Value & ")>0") Then
            Cells(i, 1).Resize(, 12).Interior.Color = vbGreen
        End If
    Next i
End Sub

 

[leonadies]

@veyselemre üstadım ellerine sağlık makro çalışıyor ancak
"Worksheet_SelectionChange" olayına bağlayınca "GİRİŞ" sekmesinde boyanan hücredeki değeri silsemde hala yeşil kalmaya devam ediyor. Buna çözüm üretilir mi?