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

• #34030 Delila_1 veterán Savaria90 #34024

  Új Válasz 2017-01-31 15:33:01 #34030

  Ú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

  

  Delila_1

  veterán

  válasz Savaria90 #34024 üzenetére

  Bocsi! Nem figyeltem, hogy megadtad a számokat tartalmazó oszlopot (C).
  Ennek megfelelően átírtam a makrót, az eredmények a D és E oszlopokba kerülnek.

  Sub MinMax()
Dim sor As Long, KepletHelye As Long
KepletHelye = 2
For sor = 2 To 600000 Step 1440
Cells(KepletHelye, "D") = "=min(C" & sor & ":C" & sor + 1439 & ")"
Cells(KepletHelye, "E") = "=max(C" & sor & ":C" & sor + 1439 & ")"
KepletHelye = KepletHelye + 1
Next
End Sub

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