Liste Karşılaştırma

[sefikap]

Selam,

Ekteki dosyada 3 adet sayfa var..ben 1'nci ve 2'nci sayfadaki verilerin karşılaştırılarak 3ncü sayfada karşılıklı olarak listelenmesini istiyorum..

liste sizi yanıltmasın orjinalinde A ve B sütununda yaklaşık 500 adet stok kodu ve tanımları yazılı,

Kısaca özetlemek gerekirse , aslında bu listeler..bazı parçaları ortak olan farklı ürünlere ait ürün ağaçları diyebiliriz..ve aralarındaki malzeme ve kod farklarını raporlayabilmem için 3ncü sayfaya makro yazmak istiyorum

Yardımcı olursanız sevinirim..

 

[Ömer]

Merhaba,

Sub Deneme()
Dim a, b, esp, esp1 As Long
Application.ScreenUpdating = False
Set S1 = Sheets("KARŞILAŞTIRMA")
Set S2 = Sheets("LİSTE 1")
Set S3 = Sheets("LİSTE 2")
S1.Range("A3:D65536").ClearContents
esp = 3
    For a = 1 To S2.[A65536].End(3).Row
    son1 = S2.[A65536].End(3).Row
        If WorksheetFunction.CountIf(S2.Range("A1:A" & son1), S3.Cells(a, 1)) = 0 Then
            S1.Cells(esp, 3) = S3.Cells(a, 1)
            S1.Cells(esp, 4) = S3.Cells(a, 2)
            esp = esp + 1
        End If
    Next a
 
esp1 = 3
    For b = 1 To S3.[A65536].End(3).Row
    son2 = S3.[A65536].End(3).Row
        If WorksheetFunction.CountIf(S3.Range("A1:A" & son2), S2.Cells(b, 1)) = 0 Then
            S1.Cells(esp1, 1) = S2.Cells(b, 1)
            S1.Cells(esp1, 2) = S2.Cells(b, 2)
            esp1 = esp1 + 1
        End If
    Next b
 
Application.ScreenUpdating = True
End Sub

.