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

• #22003 Delila_1 veterán tgumis #22000

  Új Válasz 2014-06-15 14:34:19 #22003

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

  Az Összesítés lap A1 cellája az első-, az A2 az utolsó hónap, amit összesíteni akarsz.
  Legegyszerűbb, ha minden lapon egy cellában összesíted az aznapi eladásokat. Legyen ez a példában az N1 cella. Ha a bevételeid a D oszlopban vannak, akkor az N1 képlete =SZUM(D:D).

  A makró az Összesítés lap B4 cellájába írja be a beírt lapok összbevételét.

  Sub Osszesen()
  Dim lap%, elso%, ucso%, osszes As Long
  
  elso% = Sheets("Összesítés").Range("A1")
  ucso% = Sheets("Összesítés").Range("A2")
  
  For lap% = elso% To ucso%
  osszes = osszes + Sheets(lap%).Range("N1")
  Next
  
  Sheets("Összesítés").Range("B4") = osszes
  End Sub

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