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

• #45670 p5quser tag

  Új Válasz 2021-01-06 14:04:42 #45670

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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