Szükségem lenne a szakdolgozatomhoz egy makróra, ami egy adott munkafüzet két munkalapján soronként összehasonlítja a P oszlopban található értéket. Ha a két munkalap adott cellájában az érték megegyezik akkor az iteráció tovább ugrik a következő sorra, ha pedig különbözik akkor az adott sort (mindegy, hogy az egyes vagy kettes munkalapról) felveszi egy harmadik munkalapra. Ez az egész egy cég napi készlet forgási sebességének lekövetésére lenne hatalmas segítség, ami a cirka 12000 sor miatt manuálisan lehetetlen lenne. Kérek bárkit aki tud segítsen! Nagyon el vagyok akadva. Előre is köszi!
Másik módszer, ahol csak az eltérő értékek szerepelnek a Munka3 lapon:
Sub Kulonbseg()
Dim sor As Long, usor As Long, ide As Long
usor = Sheets(1).Range("P" & Rows.Count).End(xlUp).Row
ide = 1
For sor = 1 To usor
If Sheets("Munka1").Range("P" & sor) <> Sheets("Munka2").Range("P" & sor) Then
Sheets("Munka3").Range("A" & ide) = Sheets("Munka1").Range("P" & sor)
Sheets("Munka3").Range("B" & ide) = Sheets("Munka2").Range("P" & sor)
ide = ide + 1
End If
Next
End Sub
.
