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

• csferke senior tag

  #34872

  #34866 Delila_1

  2017-04-11 07:27:35

  Új Válasz

  Ú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

  

  csferke

  senior tag

  #34866 Delila_1

  #34866 Delila_1

  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))

  Bocsi a becsúszott smiley miatt de azért köszönöm.

  A C:D oszlop adatait kellene összeadni és osztani 17-el.
  Az osszeg sorban átírom B-B => C-D, eddig ok, kijavítom.
  Mivel a B oszlopban van a mutató így megvan a kezdő dátum is kDatum amit majd kiíratok F1-be.

  Az egyszerűbb megoldás Average nem jó, nem az átlag kell mint eredmény.

  A logikádat követve úgy látom, hogy előbb kiválasztod a kezdő mezőt a B oszlopban és ezután indítod a makrót. Így sem rossz de én úgy szeretném, hogy elindítom a makrót és addig várakozik amíg egérrel kiválasztok egy dátumot/mezőt, klikk az egérrel, és csak ezután folytatja a futást.

  köszi

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