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

• #5788 Delila_1 veterán gyga #5786

  Új Válasz 2009-12-02 15:21:17 #5788

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

  Sub SubTotal()
  ucso = Worksheets.Count
  For lap = 2 To ucso
  Sum = Sum + Sheets(lap).Cells(154, 12)
  Next
  Sheets("Összesítő").Cells(154, 12) = Sum
  End Sub

  Ezt a makrót vidd be. Alt+F11-re bejön a VB szerkesztő. Bal oldalon megtalálod a füzeted nevét, az előtte lévő + jelre kattintasz. Insert menü, Module. Jobb oldalon kapsz egy üres fehér oldalt, oda másold.
  Ha az összesítő lapod neve nem Összesítő, a makróban írd át.
  Ha az összesítőn az eredményt nem az L154 cellában szeretnéd látni, a Cells(154,12)-ben írd át az értékeket. a 154 a sor száma, a 12 az oszlopé (A oszlop=1, B oszlop=2, ... Loszlop=12).

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