İki Sütunu Karşılaştırma

Sub IkiSutunuKarsilastir()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("SayfaAdı") ' "SayfaAdı"nı hedef sayfanızın adıyla değiştirin

    Dim sutun1 As Range, sutun2 As Range, hucre As Range
    Set sutun1 = ws.Range("A1:A10") ' İlk sütunu tanımla
    Set sutun2 = ws.Range("B1:B10") ' İkinci sütunu tanımla

    ' İlk sütundaki her hücre için ikinci sütunda eşleşme ara
    For Each hucre In sutun1
  If IsError(Application.Match(hucre.Value, sutun2, 0)) Then
' Eşleşme bulunamadıysa, hücrenin rengini değiştir
hucre.Interior.Color = RGB(255, 0, 0) ' Kırmızı renk
  Else
' Eşleşme bulunduysa, hücrenin rengini başka bir renge değiştir
hucre.Interior.Color = RGB(0, 255, 0) ' Yeşil renk
  End If
    Next hucre
End Sub