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

• #34874 Delila_1 veterán csferke #34872

  Új Válasz 2017-04-11 07:57:01 #34874

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

  Szóval a B oszlopban választasz ki egy cellát. Ez a kezdősor. A végző sor a kezdő + 16. Összegezni a Ckezdő:Dvégző tartományt kell, és ennek az összegnek a 17-ed része az eredmény.

  A makró bekéri a kezdősort úgy, hogy rákattintasz a cellára, majd a G1-be beírja az eredményt.
  Ha a Bvégvő cella üres, hibát jelez.

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

Set sorK = Application.InputBox(prompt:="Kérem a kezdő sort", Type:=8)
sorK = sorK.Row
sorV = sorK + 16
If Cells(sorV, "B") <> "" Then
osszeg = Application.WorksheetFunction.Sum(Range("C" & sorK & ":D" & sorV)) / 17
Range("G1") = osszeg
Else: MsgBox "Hiba"
End If
End Sub

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