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

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
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.

Karşılaştır Renklendir.jpg
 

Ekli dosyalar

S.Yiğit

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2008
Mesajlar
1,748
Excel Vers. ve Dili
2019 TR
Merhaba, Giriş sayfasında D2:D16 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
Kod:
=EĞERSAY(Veriler!$A$2:$A$7;$D2)>0
yazın ve biçimlendir sekmesinden renk seçin ve işlemleri tamamlayın.
 

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Üstadım teşekkür ederim , ancak makro ile çözümlemeye ihtiyacım var :) @S.Yiğit
 

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Çözüm saglanamaz mi ?
 

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Hala çözemedim bu mevzuyu arkadşlar
 

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Evet üstadların bakmasını bekliycez mecburen :)
Hiçbir yerde de net olarak örneği yok bu sorunun
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
@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?
 
Üst