iki sayfa karşılaştırması

[golpet]

ustalarıma selamlar.
ekteki dosyada açıklama yazdım yardımcı olurmusunuz?

 

[Erdem Akdemir]

ekteki dosyayı incelermisiniz

 

[N.Ziya Hiçdurmaz]

Yanıt

Makrolu çözüm

Sub aktar()
Set sm = Sheets("MEVCUT STOK")
Set sa = Sheets("ALINAN SİPARİŞ")
Set ss = Sheets("SONUÇ")
ss.[a3:g500] = Empty
sa.[d2:d100] = Empty
s = 3
For sat1 = 2 To sa.Cells(65536, "a").End(xlUp).Row
For sat2 = 2 To sm.Cells(65536, "a").End(xlUp).Row
For sut = 2 To 7
If sm.Cells(sat2, "a") Like sa.Cells(sat1, "a") Then
sa.Cells(sat1, "d") = sm.Cells(sat2, "b") - sa.Cells(sat1, "b")
If sa.Cells(sat1, "c") Like Right(ss.Cells(2, sut), 1) Then
sa.Cells(sat1, "a").Copy ss.Cells(s, "a")
sa.Cells(sat1, "d").Copy ss.Cells(s, sut)
s = s + 1
End If: End If: Next: Next: Next
End Sub