Hirdetés

Új hozzászólás Aktív témák

  • p5quser

    tag

    Sziasztok!
    Boldog Új Évet Nektek!
    Az alábbi kódrészlet lefutása kb. 30 másodperc és másfél perc között ingadozik, teljes mértékben az adott gép teljesítményétől függően.
    CikkTomb = Sheets(1).Range("A1:A" & Sheets(1).UsedRange.Rows.Count).Value
    TetelTomb = Range(Cells(lr, 1), Cells(nlr, 3)).Value
    For i = 1 To UBound(TetelTomb, 1)
        cs = Application.Match(TetelTomb(i, 1), CikkTomb(), False)
        Sheets(1).Cells(cs, 3) = Sheets(1).Cells(cs, 3) - TetelTomb(i, 3)
    Next i
    Készletet kezel, formból, adott sorrendben.
    A cikktömb a tesztnél ~62 000 soros, a tételtömb pedig 100.
    Teljesen reális ideig szöszmötöl vele, vagy lehet esetleg faragni belőle?
    Előre is köszönöm!

Új hozzászólás Aktív témák