sayfaları karşılaştır olmayanları listele

[sevensuleyman]

sayfaları karşılastır . olmayanları sayfaya listele yaklaşık 5000 satır veri var. kısaltılmıştır. yardımcı olursanız sevinirim

 

[Orion1]

Hangi sütunlar karşılaştırılacak?

 

[sevensuleyman]

Hangi sütunlar karşılaştırılacak?

B SÜTUNU "productname" karşıaltırılabilir. diğer sütundaki bilgilerde gelmesi gerekiyor.
teşekkürler

 

[sevensuleyman]

güncel

 

[veyselemre]

Sub test()
    Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
    Dim veri1(), veri2(), i&, sat&
    Set s1 = Sheets("Çekilen Veriler")
    Set s2 = Sheets("Karşılaştırılacak_Veri")
    Set s3 = Sheets("Degisen_Tespit")

    veri1 = s1.Range("A1").CurrentRegion.Value
    veri2 = s2.Range("A1").CurrentRegion.Value
    sat = 2
    s3.Range("A2:F" & Rows.Count).Clear

    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(veri1)
            .Item(veri1(i, 2)) = i
        Next i

        For i = 2 To UBound(veri2)
            If .exists(veri2(i, 2)) Then
                .Remove (veri2(i, 2))
            Else
                s3.Cells(sat, 1).Resize(, 6).Value = s2.Cells(i, 1).Resize(, 6).Value
                sat = sat + 1
            End If
        Next i
        If .Count > 0 Then
            itm = .items
            For Each itm In .items
                s3.Cells(sat, 1).Resize(, 6).Value = s1.Cells(itm, 1).Resize(, 6).Value
                s3.Cells(sat, 1).Resize(, 6).Font.Color = vbRed
            Next itm
        End If
    End With
End Sub