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

• #43796 pero19910606 csendes tag Fferi50 #43792

  Új Válasz 2020-05-01 05:06:22 #43796

  Ú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

  

  pero19910606

  csendes tag

  válasz Fferi50 #43792 üzenetére

  Szia!

  Dim x As Long
  Dim y As Long
  Dim z As Long
  
  With Worksheets("Készletszint")
  LR = .Cells(.Rows.Count, "A").End(xlUp).Row
  
  For i = 4 To LR
  
  x = Cells(i, 2).Value
  
  y = Cells(i, 5).Value
  
  z = x / y
  
  Cells(i, 6).Value = z
  
  Next i
  
  End With

  Igen, tényleg úgy tűnik, hogy nem a számokkal lesz a gond, mert ha összeadom, kivonom vagy szorzom a számokat, akkor simán végig fut 4-5 mp alatt az 50.000 soron.
  Az osztásnál viszont a 15. művelet után lesz overflow.

  Köszönöm!
  Üdv!

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