Soru İki Sütun Karşılaştır Renklendir

[mehmetd]

Sayın Arkadaşlar günaydın. Ekteki örnekte de görüleceği üzere iki sütun karşılaştırılıp aynı ise yeşil farklı ise kırmızı ile işaretlensin nasıl yapabilirsiniz.
Yardımcı olan ilgilenen arkadaşlara peşinen teşekkürlerimi iletiyorum. Saygılarımla. İyi çalışmalar

 

[mehmetd]

Koşullu biçimlendirme hariç VBA kodlarla da yapılabilirse çok memnun olurum başka yerlerde de kullanırım.

 

[Korhan Ayhan]

VBA kodunu farklı dosyalara uyarlamanız gerekebilir. Aslında koşullu biçimlendirme ile yapsanız sizin için daha efektif olur gibime geliyor.

 

[Korhan Ayhan]

Aşağıdaki kod ile seçtiğiniz iki sütunu karşılaştırabilirsiniz.

Kodu çalıştırdıktan sonra karşınıza gelen kutucuklara sütun harflerini yazmanız yeterlidir. İlgili sütunlar 2. satırdan itibaren karşılaştırılacaktır.

Option Explicit

Sub Compare_Columns()
    Dim First_Column As String, Second_Column As String, My_Cell As Range
   
    First_Column = InputBox("Lütfen ilk sütun bilgisini giriniz...", "Sütun Seçimi")
    Second_Column = InputBox("Lütfen ikinci sütun bilgisini giriniz...", "Sütun Seçimi")
   
    If First_Column = "" Or Second_Column = "" Then
        MsgBox "Eskik sütun seçimi yaptığınız için işleminiz iptal edilmiştir.", vbCritical
        Exit Sub
    End If
   
    Range(Cells(2, First_Column), Cells(Rows.Count, First_Column)).Interior.Color = xlNone
    Range(Cells(2, Second_Column), Cells(Rows.Count, Second_Column)).Interior.Color = xlNone
   
    For Each My_Cell In Cells(2, First_Column).Resize(Cells(Rows.Count, First_Column).End(3).Row - 1)
        If My_Cell.Value = Cells(My_Cell.Row, Second_Column) Then
            My_Cell.Interior.Color = 5296274
            Cells(My_Cell.Row, Second_Column).Interior.Color = 5296274
        Else
            My_Cell.Interior.Color = 255
            Cells(My_Cell.Row, Second_Column).Interior.Color = 255
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mehmetd]

Sn. Korhan Ayhan bey yardımınız için çok teşekkür ederim.