İki Sütundaki Değerleri Karşılaştırma

[Feylosof]

İyi Akşamlar diliyorum.

Ekli Dosyada B ve H sütunlarını karşılaştırarak H sütununda olmayanları C sütununda; B sütununda olmayan değerleri I sütununda listelemek istiyorum. Bunun için esas dosyamın yapısı gereği VBA ile yapmak istiyorum. Desteğiniz ve yardımınız için teşekkürler.

 

[hasankardas]

module ekleyip butona atayın.. dener misin

Sub kontrolList()
    Dim ws As Worksheet
    Dim bRange As Range, hRange As Range
    Dim bCell As Range, hCell As Range
    Dim cIndex As Integer, iIndex As Integer
    Dim found As Range
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    Set bRange = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    Set hRange = ws.Range("H2:H" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row)
    
    cIndex = 2 ' C sütunundaki ilk boş hücreyi takip eder
    iIndex = 2 ' I sütunundaki ilk boş hücreyi takip eder
    For Each bCell In bRange
        Set found = hRange.Find(What:=bCell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If found Is Nothing Then
            ws.Cells(cIndex, "C").Value = bCell.Value
            cIndex = cIndex + 1
        End If
    Next bCell
    For Each hCell In hRange
        Set found = bRange.Find(What:=hCell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If found Is Nothing Then
            ws.Cells(iIndex, "I").Value = hCell.Value
            iIndex = iIndex + 1
        End If
    Next hCell
End Sub

 

[Feylosof]

Sayın @hasankardas çok teşekkür ederim