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