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

• #17861 Delila_1 veterán elmouse #17852

  Új Válasz 2013-04-20 09:06:05 #17861

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

  Igaza Van Muttnak a hibakezelést illetően a 17853-as hozzászólásban. Pótoltam a hiányt.

  Sub atlag_50()
  Dim sor As Long, usor As Long, oszlop%, uoszlop%, atlag!
  Dim WF As WorksheetFunction
  Set WF = WorksheetFunction
  uoszlop% = Cells(1, Columns.Count).End(xlToLeft).Column
  
  For oszlop% = 1 To uoszlop%
  usor = Cells(1, oszlop%).End(xlDown).Row
  If usor - 49 > 2 Then
  atlag! = WF.Average(Range(Cells(usor - 49, oszlop%), Cells(usor, oszlop%)))
  Cells(usor + 2, oszlop%) = atlag!
  Else
  Cells(usor + 2, oszlop%) = "Kevesebb, mint 50 tétel"
  End If
  Cells(usor + 2, oszlop%).Font.ColorIndex = 3
  Next
  End Sub

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