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
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: 4 years, 1 month 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.