Telefonszámunk: 1-472-0679

[Resolved] Pivot tabla hiba MAKROBAN

Kezdőlap Fórumok Excel programozás [Resolved] Pivot tabla hiba MAKROBAN

Topic Resolution: Resolved

Ennek a témakörnek tartalma 5 hozzászólás, 2 résztvevő. Utolsó frissítés:  horvimi 1 hónap telt el.

6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • #7643

    KK2000
    Felhasználó

    Sziasztok,

    Szeretnek makroban letrehozni egy pivot tablat, de mindig hibara fut ki, tudnatok ebben segiteni pls?
    Felkoverrel jeloltem, ahol debug van.
    Elore is koszonom!

    Sheets.Add.Name = “Fokonyv pivot”

    Sheets(“Fokonyv”).Select
    Range(“A1”).Select
    ‘Range(Selection, Selection.End(xlDown)).Select
    ‘ Range(Selection, Selection.End(xlToRight)).Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    “Fokonyv!R1C1:R316C21”, Version:=6).CreatePivotTable TableDestination:= _
    “Fokonyv pivot!R1C1″, TableName:=”Kimutatas1”, DefaultVersion:=6

    Sheets(“Fokony pivot”).Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables(“Kimutatas1”)
    .ColumnGrand = True
    .HasAutoFormat = True
    .DisplayErrorString = False
    .DisplayNullString = True
    .EnableDrilldown = True
    .ErrorString = “”
    .MergeLabels = False
    .NullString = “”
    .PageFieldOrder = 2
    .PageFieldWrapCount = 0
    .PreserveFormatting = True
    .RowGrand = True
    .SaveData = True
    .PrintTitles = False
    .RepeatItemsOnEachPrintedPage = True
    .TotalsAnnotation = False
    .CompactRowIndent = 1
    .InGridDropZones = False
    .DisplayFieldCaptions = True
    .DisplayMemberPropertyTooltips = False
    .DisplayContextTooltips = True
    .ShowDrillIndicators = True
    .PrintDrillIndicators = False
    .AllowMultipleFilters = False
    .SortUsingCustomLists = True
    .FieldListSortAscending = False
    .ShowValuesRow = False
    .CalculatedMembersInFilters = False
    .RowAxisLayout xlCompactRow
    End With
    With ActiveSheet.PivotTables(“Kimutatas1”).PivotCache
    .RefreshOnFileOpen = False
    .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables(“Kimutatas1”).RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables(“Kimutatas1”).PivotFields(“Assignment”)
    .Orientation = xlRowField
    .Position = 1
    End With
    ActiveSheet.PivotTables(“Kimutatas1”).AddDataField ActiveSheet.PivotTables( _
    “Kimutatas1”).PivotFields(“Osszeg”), “Sum of Osszeg”, xlSum
    Columns(“B:B”).Select
    Selection.Style = “Comma”
    Selection.NumberFormat = “_-* #,##0.0_-;-* #,##0.0_-;_-* “”-“”??_-;_-@_-”
    Selection.NumberFormat = “_-* #,##0_-;-* #,##0_-;_-* “”-“”??_-;_-@_-”

    End Sub

    #7644

    horvimi
    Adminisztrátor

    Szia!

    Elsőként kérnélek, hogy ha legközelebb kódot teszel fel, akkor mielőtt elküldöd, a “code” gombbal formázd meg.
    (Kijelölés–> Code. Egy szimpla aposztrófot tesz a kijelölés köré, de amikor megjelenik, akkor szürke háttérben minden karakter ASCII-ben jelenik meg, és nem kell szívni a kicserélt dupla idézőjelekkel, ahogy a te bejegyzésedben látszik.

    A lényeg pedig az, hogy a makró nem szereti, ha egy munkalap nevében szóköz van.
    Próbáld ki, hogy a pivot lapot “Fokonyv_pivot”-nak hívod, és a létrehozáson kívül a pivot tábla makrójában is erre hivatkozol.

    Sheets.Add.Name = "Fokonyv_pivot"
    ......
    ........ TableDestination:= _
    "Fokonyv_pivot!R1C1"

    Imre

    • A hozzászólás módosításra került: 1 hónap, 1 hét telt el- horvimi.
    #7649

    KK2000
    Felhasználó

    Szia Imre,

    Nagyon köszönöm a segítséget’ Legközelebb figyelek erre a formázásra a kóddal kapcsolatban.
    Átírtam a kódot a javaslatod szerint, de sajnos úgysem működött 🙁
    Esetleg ha ha tudtok segíteni ebben, hogy mi lehet a hiba, szívesen venném továbbra is.
    Íme a kód a jelenlegi formájában:

    Sheets.Add.Name = "Fokonyv_pivot"
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "Fokonyv!R1C1:R316C21", Version:=6).CreatePivotTable TableDestination:= _
            "Fokony_pivot!R3C1", TableName:="Fokonypivot1", DefaultVersion:=6
    
        Cells(3, 1).Select
        With ActiveSheet.PivotTables("Fokonyvpivot1")
            .ColumnGrand = True
            .HasAutoFormat = True
            .DisplayErrorString = False
            .DisplayNullString = True
            .EnableDrilldown = True
            .ErrorString = ""
            .MergeLabels = False
            .NullString = ""
            .PageFieldOrder = 2
            .PageFieldWrapCount = 0
            .PreserveFormatting = True
            .RowGrand = True
            .SaveData = True
            .PrintTitles = False
            .RepeatItemsOnEachPrintedPage = True
            .TotalsAnnotation = False
            .CompactRowIndent = 1
            .InGridDropZones = False
            .DisplayFieldCaptions = True
            .DisplayMemberPropertyTooltips = False
            .DisplayContextTooltips = True
            .ShowDrillIndicators = True
            .PrintDrillIndicators = False
            .AllowMultipleFilters = False
            .SortUsingCustomLists = True
            .FieldListSortAscending = False
            .ShowValuesRow = False
            .CalculatedMembersInFilters = False
            .RowAxisLayout xlCompactRow
        End With
        With ActiveSheet.PivotTables("Fokonyvpivot1").PivotCache
            .RefreshOnFileOpen = False
            .MissingItemsLimit = xlMissingItemsDefault
        End With
        ActiveSheet.PivotTables("Fokonyvpivot1").RepeatAllLabels xlRepeatLabels
        With ActiveSheet.PivotTables("Fokonyvpivot1").PivotFields("Assignment")
            .Orientation = xlRowField
            .Position = 1
        End With
        ActiveSheet.PivotTables("Fokonyvpivot1").AddDataField ActiveSheet.PivotTables( _
            "Fokonyvpivot1").PivotFields("Osszeg"), "Sum of Osszeg", xlSum

    A sheet neve: Fokonyv_pivot
    A pivottábla neve: Fokonyvpivot1
    A makro csak a sheet letrehoyásáig jut el, a pivot táblánál akad meg.
    Előre is köszönöm a segítséget’

    #7650

    horvimi
    Adminisztrátor

    Kihagytál egy “v” betűt a Pivot létrehozó parancs harmadik sorában a munkalap nevéből. 🙂

    "Fokony_pivot!R3C1"

    Imre

    #7656

    KK2000
    Felhasználó

    Szia Imre,

    Köszönöm szépen, tényleg ez volt a hiba a második esetnél. Úgy látszik, hogy a nap végére belekvarodtam a kódokba 😀
    Mostmár tökéletesen működik az előző javaslatoddal 🙂

    #7658

    horvimi
    Adminisztrátor

    Örülünk

6 bejegyzés megtekintése - 1-6 / 6

Be kell jelentkezni a hozzászóláshoz.