Telefonszámunk: 1-472-0679

[Resolved] PIVOT tábla beszúrása hiba (Makróban)

Kezdőlap Fórumok Excel programozás [Resolved] PIVOT tábla beszúrása hiba (Makróban)

Topic Resolution: Resolved
5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #4912
    Titok
    Felhasználó

      Sziasztok!

      Többször rögzítettem már PIVOT tábla beszúrást makróba, de ha megcsináltatom vele újra, akkor nem csinálja utánam. (Átírtam Kimutatás 2-re a Pivot nevét).
      Ha új munkalapra csinálom, amit áthelyezek és lementem külön munkafüzetként, minden további nélkül ledarálja.
      Van ennek valami különösebb oka? Lehet törölni az „előzmény” PIVOT-ot parancssorral?
      (Mondom, új munkalapra jól működik, úgy használom, csak néha elfelejtem, hogy így csináljam, és akkor mindig megakad, ezért érdekelne a megoldás.)

      Köszi!

      #4927
      horvimi
      Adminisztrátor

        Szia!

        Az a helyzet, hogy nem nagyon értem a problémát, csak sejtem:
        Látni kellene a kódot, és a hibaüzenetet is, melyik soron áll meg, meg a körülményeket is ismerni.

        Néhány dolgot leírok találgatásként_
        – Ha a kódban a PIVOT-ot új munkalapra kéred, akkor felveszi, hogy mi volt az új munkalap neve a rögzítéskor. Soha nem lesz ugyanaz.

        – Más kód születik a rögzítéskor, ha már készült pIVOT az adott forrásról, mint akkor, amikor még nem készült

        De inkább nem sorolom, adj még infót, vagy tölts fel DEMO-t!

        Imre

        #5043
        Titok
        Felhasználó

          Szia!

          Ez a kód. Ha egyszer rosszul fut le, akkor a 3. táblánál fut rosszul. Ilyenkor még 3-szor újrafuttatom, és megjavul.
          Nem értem…

          ‘Hetihez előkészíti a táblákat Bov_h1…Bov_h3 néven

          Windows(„Bovitett.xlsx”).Activate
          Sheets.Add After:=ActiveSheet
          ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
          „Bőv.lelt.hird.FKV!R1C1:R1048576C31″, Version:=xlPivotTableVersion15). _
          CreatePivotTable TableDestination:=”Munka1!R1C1″, TableName:=”Kimutatás1”, _
          DefaultVersion:=xlPivotTableVersion15
          Sheets(„Munka1”).Select
          Cells(1, 1).Select
          With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti1”)
          .Orientation = xlRowField
          .Position = 1
          End With
          ActiveSheet.PivotTables(„Kimutatás1”).AddDataField ActiveSheet.PivotTables( _
          „Kimutatás1”).PivotFields(„Jó Ft”), „Mennyiség / Jó Ft”, xlCount
          With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Mennyiség / Jó Ft”)
          .Caption = „Összeg / Jó Ft”
          .Function = xlSum
          End With
          ActiveSheet.PivotTables(„Kimutatás1”).AddDataField ActiveSheet.PivotTables( _
          „Kimutatás1”).PivotFields(„Jó db”), „Mennyiség / Jó db”, xlCount
          With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Mennyiség / Jó db”)
          .Caption = „Összeg / Jó db”
          .Function = xlSum
          End With
          Columns(„A:C”).Select
          Selection.Copy
          Workbooks.Add
          Columns(„A:A”).Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
          Columns(„B:B”).Select
          Selection.Replace What:=”-„, Replacement:=””, LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
          Application.CutCopyMode = False

          wbn = wb & „\Bov_h1.xlsx”

          ActiveWorkbook.SaveAs Filename:=wbn

          ActiveWindow.Close
          Windows(„Bovitett.xlsx”).Activate

          ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti1”).Orientation = _
          xlHidden
          With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti2”)
          .Orientation = xlRowField
          .Position = 1
          End With
          Columns(„A:C”).Select
          Selection.Copy
          Workbooks.Add
          ActiveSheet.Paste

          Columns(„A:A”).Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
          Columns(„B:B”).Select
          Selection.Find(What:=”-„, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
          :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
          False, SearchFormat:=False).Activate
          Selection.Replace What:=”-„, Replacement:=””, LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
          Application.CutCopyMode = False

          wbn = wb & „\Bov_h2.xlsx”

          ActiveWorkbook.SaveAs Filename:=wbn

          ActiveWindow.Close
          ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti2”).Orientation = _
          xlHidden
          With ActiveSheet.PivotTables(„Kimutatás1”).PivotFields(„Fiokheti3”)
          .Orientation = xlRowField
          .Position = 1
          End With
          Columns(„A:C”).Select
          Selection.Copy
          Workbooks.Add
          Columns(„A:A”).Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
          Columns(„B:B”).Select
          Selection.Replace What:=”-„, Replacement:=””, LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False
          Range(„G11”).Select
          Application.CutCopyMode = False
          wbn = wb & „\Bov_h3.xlsx”

          ActiveWorkbook.SaveAs Filename:=wbn

          ActiveWindow.Close

          #5046
          horvimi
          Adminisztrátor

            Figyelj, lszi áruld már el, hogy melyik soron áll meg!?
            Biztosan lehet minta adatot is produkálni, ami nem sért semmit.

            Nem lesz időm soronként bogarászni.

            Ez egy sima rögzített kód. Van ugyan benne pár érdekes dolog, de elvileg jó.

            Köszi!

            #5097
            Titok
            Felhasználó

              Szia!

              Rájöttem!
              Szóvel meg nem állt sohasem, csak néha-néha a bov_h3-ba nem jó adat volt.
              A megoldás: amikor a fiókheti2-t kicserélem fiókheti3-ra akkor előtte kimaradt a fókusz állítása:
              Windows(“Bovitett.xlsx”).Activate
              Így néha másfelé kolbászolt a kurzor.
              Tipikus hiba…

            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.