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

• #22002 Louro őstag slashing #22001

  Új Válasz 2014-06-15 09:31:46 #22002

  Ú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

  

  Louro

  őstag

  válasz slashing #22001 üzenetére

  Én is az összesítőn oldanám meg. Lenne két mező: Mettől és Meddig. Az összegzés pedig a két paraméter között sheet-eket összesítené. (Elgondolkodtam a megvalósításán és valamiért a makró nekem használhatóbb.)

  De, ha makró, akkor ugyanúgy kellene a Mettől Meddig mezők és a ciklus a paraméterben megadott értékek között futna le.
  Összegző sheet-en lenne valahol a táblázat nagyon végén vagy az első oszlopban lenne.

  Makróban ennyi lenne:
  Dim Mettol As Integer, Meddig As Integer

  ActiveWorkbook.Worksheets("Osszegzes").Select
  Mettol = Cells(1, 1)
  Meddig = Cells(2, 1)

  If Mettol > Meddig Then
  MsgBox "Nagyobb a Mettől mező, mint a Meddig."
  Else
  For i = Mettol To Meddig
  itt van az összeadás
  Next
  End If

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