KarŞilaŞtirma

[takirti]

Elimde 2 adet fiyat listesi var. Kodları aynı fakat fiyatları değişik. Yapmak istediğim farkları 3 sayfada ortaya çıkarmar. İki Liste birbirinin aynı düzende değil. Kodların yerleri farklı şekillde. Bu durumda Fiyatlarında farklılık gösteren kalemlein farkını başka bir sayfaya aktaran makro yapmak mümkün mü?

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Sub FarkBul01()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Set s3 = Sheets("Sheet3")
s3.Range("a2:b20").ClearContents

For i = 2 To s1.[a65536].End(3).Row
kod = s1.Cells(i, "a").Value
fiyat = s1.Cells(i, "b").Value
    For j = 2 To s2.[a65536].End(3).Row
        If s2.Cells(j, "a").Value = kod And s2.Cells(j, "b").Value <> fiyat Then
            sat = s3.[a65536].End(3).Row + 1
            s3.Cells(sat, "a").Value = kod
            s3.Cells(sat, "b").Value = fiyat - s2.Cells(j, "b").Value
         End If
    Next j
Next i

s3.Select
Set s1 = Nothing
Set s2 = Nothing
Set s3 = Nothing

MsgBox "Bitti"
End Sub