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

• Delila_1 veterán

  2015-07-30 14:56:32 #27984

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz gdodi üzenetére #27982

  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