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

• #27984 Delila_1 veterán gdodi #27982

  Új Válasz 2015-07-30 14:56:32 #27984

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

  Akkor ez most részemről sajnos nem jött össze. Hétfőtől 1,5 hétig nem leszek gép közelében.

  Az egyes lapokon viszont tudod indítani a rögzítettet. A makróban a következő lapoknál futtatás előtt a Kimutatás1-et kell minden előfordulásánál átírnod a következő számra (Kimutatás2 ... Kimutatás_sok). Legjobb, ha a Replace funkcióval hajtod végre, hogy ne maradjon ki egy sem.

  Az

  ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  "24!R1C1:R1048576C13", Version:=xlPivotTableVersion14).CreatePivotTable _
  TableDestination:="24!R1C14", TableName:="Kimutatás1", DefaultVersion:= _
  xlPivotTableVersion14
  Sheets("24").Select

  részben a 24-et is át kell írnod a következő lapok nevére, 3× fordul itt elő.
  Azt hiszem, mást nem kell módosítani, mivel a teljes oszlopokat jelölted ki a táblázatodban, nem szorosan az adatokat tartalmazó részt.

  Mikor létrehoztad a 2. kimutatást a fent írt változtatások bevitele után, megnézed, rendben van-e. Ha nem, mentés nélkül zárd be a füzetet. Ebben az esetben biztosan lesz, aki segít.

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