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

• #17658 Delila_1 veterán elmouse #17657

  Új Válasz 2013-04-08 13:41:52 #17658

  Ú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 elmouse #17657 üzenetére

  A makró a C1 cellába beírja a képletet, ami a mindenkori utolsó 50 tétel átlagát számolja ki.

  Sub utolso_50()
  Dim ucso%
  ucso% = Range("A" & Rows.Count).End(xlUp).Row
  Cells(1, "C") = "=AVERAGE(A" & ucso% - 49 & ":A" & ucso% & ")"
  End Sub

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