Telefonszámunk: 1-472-0679

Cellaértékek összehasonlítása két munkalapon

Kezdőlap Fórumok Excel programozás Cellaértékek összehasonlítása két munkalapon

Ennek a témakörnek tartalma 4 hozzászólás, 3 résztvevő. Utolsó frissítés:  delila 1 hónap telt el.

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #6788

    Aerodyn
    Felhasználó

    Sziasztok!

    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!

    #6809

    Titok
    Felhasználó

    l

    Attachments:
    You must be logged in to view attached files.
    #6811

    delila
    Felhasználó

    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
    #6846

    Aerodyn
    Felhasználó

    Köszönöm szépen a segítséget, minden szuperül működik!

    Üdv.

    #6854

    delila
    Felhasználó

    Szívesen.
    Villámgyors vagy!

5 bejegyzés megtekintése - 1-5 / 5

Be kell jelentkezni a hozzászóláshoz.