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

• #5792 Delila_1 veterán gyga #5791

  Új Válasz 2009-12-02 15:57:42 #5792

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

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

  Ezt vidd be az előző helyére.

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