Good day everyone!
I got issue with Microsoft office 2010 vba pivot table creation.
I got run-time error 1004 pivot table field name is not valid in EXCEL
Sub Creation_of_table()
ActiveWorkbook.PivotCaches.create(SourceType:=xlDatabase, SourceData:= _
"Infolog Data!R2C1:R3800C24", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Planning!R1C1", TableName:="Megahren", DefaultVersion:= _
xlPivotTableVersion14
End Sub
I can create pivot table manually.
I have start table from R2C1.
I try to create table from R1C1 it dosen't help.
It work on my work laptop but don't work on home.
Windows 7 x32 same Microsoft c++ libary
all maros to error:
Sub Planning_creation()
Range("S3:S100").Select
Selection.ClearContents
Range("P3:P100").Select
Selection.Copy
Range("S3").Select
ActiveSheet.Paste
Application.Run "Additional_column_Infolog_Data" ' Добавить колонки в лист "Infolog_Data"
Application.Run "Creation_of_list_planning" ' Добавить новый лист Planning
Application.Run "Creation_of_table" ' Создать сводную таблицу
'Application.Run "Copy_table_like_data" ' Копировать таблицу как данные
'Application.Run "Orders_No" ' Добавление номеров документов
'Application.Run "Table_optimization" ' Объеденение в одну ячейку
'Application.Run "One_column" ' Объеденение в один столбец
'Application.Run "Create_format_for_table" ' Форматирование таблицы
'Application.Run "merge" ' Объединнение первой колонки
'Application.Run "Doc_No" ' Добавление колонки для рампы
'Application.Run "borders" ' Рамка таблицы
'Application.Run "column_colour"
'Application.Goto (ActiveWorkbook.Sheets("Infolog Data").Range("A1"))
'Application.Goto (ActiveWorkbook.Sheets("Planning").Range("A1"))
End Sub
Sub Additional_column_Infolog_Data()
Sheets("Infolog Data").Columns("E:E").Select
Selection.Copy
Columns("W:W").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Sheets("Infolog Data").Columns("S:S").Select
Selection.Copy
Columns("X:X").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Sheets("Infolog Data").Range("W2") = "Supplier Code2"
Sheets("Infolog Data").Range("X2") = "План время2"
End Sub
Sub Creation_of_list_planning()
' Удалить лист Planning
Application.DisplayAlerts = False
Sheets("Planning").Delete
Application.DisplayAlerts = True
' Добавить новый лист Planning
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "Planning"
End Sub
Sub Creation_of_table()
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Infolog Data!R2C1:R3800C24", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Planning!R1C1", TableName:="Planning", DefaultVersion:= _
xlPivotTableVersion14
End Sub
Bookmarks