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
.
