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

• #4627 Delila_1 veterán Balli #4626

  Új Válasz 2009-03-09 11:06:58 #4627

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

  A Pivot Table éppen arra való, hogy ne tételenként, hanem összesítve jelenítse meg az adatokat.
  Írtam egy kis makrót, ami az adatokat tartalmazó lapod A oszlopa szerint rendez, végigfut az adatokon, és annyi új lapot hoz létre a füzetedben, ahány féle adat van az A oszlopban. A lapok mindegyike az adat nevét veszi fel, és az oda tartazó sorokat tartalmazza. Vagyis a ktgriport nevű lapon csak a ktgriport tartalmú sorok lesznek.

  Sub Adatok()
  Application.ScreenUpdating = False
  
  lap = ActiveSheet.Name
  Range("A2").Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  
  sor = 2
  Do While Cells(sor, 1) <> ""
  nev = Cells(sor, 1)
  If Cells(sor + 1, 1) <> nev Then
  Selection.AutoFilter Field:=1, Criteria1:=nev
  Rows("1:" & Range("A65536").End(xlUp).Row).Copy
  Sheets.Add
  ActiveSheet.Paste
  ActiveSheet.Name = nev
  Sheets(lap).Select
  End If
  sor = sor + 1
  Loop
  Sheets(lap).Select
  Application.CutCopyMode = False
  Selection.AutoFilter
  
  Application.ScreenUpdating = True
  End Sub

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