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

• #34866 Delila_1 veterán csferke #34864

  Új Válasz 2017-04-10 06:58:35 #34866

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

  A becsúszott smiley miatt nem tudom, melyik oszlop adatait kell összegezned, és hova akarod az eredményt írni.
  A makró a B oszlop adatait összegzi, és osztja 17-tel, az eredményt a C1-be írja.

  Sub ido()
Dim sorK As Integer, sorV As Integer
Dim osszeg As Double

sorK = Selection.Row
sorV = sorK + 16
If Cells(sorV, "B") = "" Then Exit Sub

osszeg = Application.WorksheetFunction.Sum(Range("B" & sorK & ":B" & sorV)) / 17
Range("C1") = osszeg
End Sub

  Egyszerűbben az osszeg meghatározása:

  osszeg = Application.WorksheetFunction.Average(Range("B" & sorK & ":B" & sorV))

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