Ú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

• #22001 slashing senior tag tgumis #22000

  Új Válasz 2014-06-15 05:24:56 #22001

  Ú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

  

  slashing

  senior tag

  válasz tgumis #22000 üzenetére

  Hát ezt elvileg ha van az összesítő táblázatban dátum akkor egy kimutatással vagy kimutatás diagrammal és egy idősor beszúrásával egyszerűen meg lehet oldani ha újabb excelt használsz. Azthiszem Pivot a hivatalos megnevezése....

  A képletes megoldást másra hagyom... de én tuti kimutatással csinálnám még ha ehhez teljesen át kéne strukturálnom az egész munkafüzetet, mivel százszor egyszerűbb mint sok képlettel elérni ugyan azt.

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