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

Ennek a témakörnek tartalma 4 hozzászólás, 2 résztvevő. Utolsó frissítés:  Titok 2 hónapja, 3 hete telt el a bejegyzés óta.

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #4912

    Titok
    Résztvevő

    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
    Kulcsmester

    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
    Résztvevő

    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
    Kulcsmester

    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
    Résztvevő

    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.