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

• #27982 gdodi csendes tag Delila_1 #27923

  Új Válasz 2015-07-30 13:19:33 #27982

  Ú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

  

  gdodi

  csendes tag

  válasz Delila_1 #27923 üzenetére

  Kedves Delila!

  Sajnos csak most jutottam a fórumhoz, ezért a késedelmes válasz.
  A lapok száma 3-tól 23-ig változhat, egymás után következnek, nevük előre nem ismert. A sorok száma változó.
  Arra gondoltam, hogy a makrót valahogy úgy lenne jó megoldani, hogy egy olyan lapról billentyűkóddal indítható legyen, ahol kell a kimutatás. (Ha ezt akár 23-szor meg kell csinálni, az is sokkal gyorsabb, mint laponként a kimutatást megcsinálni.)
  A kimutatás makrója nálam így néz ki:

  Sub kimutatás()
  '
  ' kimutatás Makró
  '

  '
  ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  "24!R1C11048576C13", Version:=xlPivotTableVersion14).CreatePivotTable _
  TableDestination:="24!R1C14", TableName:="Kimutatás1", DefaultVersion:= _
  xlPivotTableVersion14
  Sheets("24").Select
  Cells(1, 14).Select
  With ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag")
  .Orientation = xlRowField
  .Position = 1
  End With
  With ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag rövid szövege")
  .Orientation = xlRowField
  .Position = 2
  End With
  With ActiveSheet.PivotTables("Kimutatás1").PivotFields("Sarzs")
  .Orientation = xlColumnField
  .Position = 1
  End With
  ActiveSheet.PivotTables("Kimutatás1").AddDataField ActiveSheet.PivotTables( _
  "Kimutatás1").PivotFields(" Mennyiség"), "Mennyiség / Mennyiség" _
  , xlCount
  With ActiveSheet.PivotTables("Kimutatás1").PivotFields( _
  "Mennyiség / Mennyiség")
  .Caption = "Összeg / Mennyiség"
  .Function = xlSum
  End With
  Columns("A:M").Select
  Selection.EntireColumn.Hidden = True
  Range("N4").Select
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Rendelés").Subtotals = Array _
  (False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Berendezés").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Rögz.indít").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyagbizl.").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Könyv.dát.").Subtotals = _
  Array(False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("MNE").Subtotals = Array( _
  False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag").Subtotals = Array( _
  False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Anyag rövid szövege"). _
  Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
  False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Sarzs").Subtotals = Array( _
  False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields(" Mennyiség"). _
  Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
  False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("BME").Subtotals = Array( _
  False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields(" SP-összeg"). _
  Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
  False, False)
  ActiveSheet.PivotTables("Kimutatás1").PivotFields("Pnem").Subtotals = Array( _
  False, False, False, False, False, False, False, False, False, False, False, False)
  ActiveSheet.PivotTables("Kimutatás1").ColumnGrand = False
  ActiveSheet.PivotTables("Kimutatás1").RowAxisLayout xlTabularRow
  Columns("N:T").Select
  Columns("N:T").EntireColumn.AutoFit
  End Sub

  HA van "rám" szánható időd, akkor kérlek segíts. Sajnos már hétfőig valószínűleg nem jutok gép közelbe, de amint lesz rá lehetőségem rögtön keresni fogom reménykedve a válaszodat!

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