Макрос на создание одной и той же сводной

[Hoochara]

Всем добрый день.
Подскажите пожалуйста как сделать чтоб у меня после построения сводной таблице макрос обращался к листу на котором открылась эта таблица? проблема в том что после каждого создания сводной у меня Лист меняетсся на лист +1.

Sheets("Access Table").Select
Columns("E:E").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(S ourceType:=xlDatabase, SourceData:= _
"Access Table!R1C5:R1048576C5", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Лист5!R3C1", TableName:= _
"СводнаяТаблица4", DefaultVersion:=xlPivotTableVersion 12
Sheets("Лист5").Select
Cells(3, 1).Select
Sheets("Лист5").Select
With ActiveSheet.PivotTables("СводнаяТаб лица4").PivotFields("Model Name KA")
.Orientation = xlRowField
.Position = 1
End With
Sheets("Лист5").Name = "вставка"
Range("B4").Select

[Watcher_1]

Сообщение от Hoochara

Всем добрый день.
Подскажите пожалуйста как сделать чтоб у меня после построения сводной таблице макрос обращался к листу на котором открылась эта таблица? проблема в том что после каждого создания сводной у меня Лист меняетсся на лист +1.

Sheets("Access Table").Select
Columns("E:E").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(S ourceType:=xlDatabase, SourceData:= _
"Access Table!R1C5:R1048576C5", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Лист5!R3C1", TableName:= _
"СводнаяТаблица4", DefaultVersion:=xlPivotTableVersion 12
Sheets("Лист5").Select
Cells(3, 1).Select
Sheets("Лист5").Select
With ActiveSheet.PivotTables("СводнаяТаб лица4").PivotFields("Model Name KA")
.Orientation = xlRowField
.Position = 1
End With
Sheets("Лист5").Name = "вставка"
Range("B4").Select

Замените Sheets("Лист5") на

Sheets(sheets.Count)

[Watcher_1]

"Лист5!R3C1"
на
Sheets(sheets.Count) & "!R3C1"

[Hoochara]

Сообщение от Hoochara

Всем добрый день.
Подскажите пожалуйста как сделать чтоб у меня после построения сводной таблице макрос обращался к листу на котором открылась эта таблица? проблема в том что после каждого создания сводной у меня Лист меняетсся на лист +1.

Sheets("Access Table").Select
Columns("E:E").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(S ourceType:=xlDatabase, SourceData:= _
"Access Table!R1C5:R1048576C5", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Лист5!R3C1", TableName:= _
"СводнаяТаблица4", DefaultVersion:=xlPivotTableVersion 12
Sheets("Лист5").Select
Cells(3, 1).Select
Sheets("Лист5").Select
With ActiveSheet.PivotTables("СводнаяТаб лица4").PivotFields("Model Name KA")
.Orientation = xlRowField
.Position = 1
End With
Sheets("Лист5").Name = "вставка"
Range("B4").Select

Теперь просто создает пустой лист и ругается вот на этот промежуток.

[Watcher_1]

Дайте пример файл, думаю так быстрее решится ваша проблема!

[Hoochara]

да любой макрос чтоб из одного столбца делалась сводная.

[VictorM]

Дайте пример файл, думаю так быстрее решится ваша проблема!

Это говорит о то, что никому не хочется (да и не захочется) "изобретать" Ваш файл, пусть даже и с

да любой макрос чтоб из одного столбца делалась сводная.

обычно на форуме наличие файла решает вопрос на порядок быстрее
и точнее

[Hoochara]

Вот пример. Я пробывал записать макрос вручную на создание сводной таблицы из столбца С.
Потом заменял Sheets("Лист") на Sheets(sheets.Count) но макрос не делал того чего я просил =)

[VictorM]

Файлик странный
открывается с ошибкой - неизвестный формат файла

[Watcher_1]

Вот код подправил тока я не понял то что закомментировал

Sheets("Acess Table").Select
Columns("E:E").Select
Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Acess Table!R1C5:R1048576C5", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:=Sheets(Sheets.Count).Name & "!R3C1", TableName:= _
"СводнаяТаблица4", DefaultVersion:=xlPivotTableVersion12
Sheets(Sheets.Count).Select
Cells(3, 1).Select

'With Sheets(Sheets.Count).PivotTables("СводнаяТаблица4").PivotFields("Model Name KA")
'.Orientation = xlRowField
'.Position = 1
'End With
'Sheets(Sheets.Count).Name = "вставка"
'Range("B4").Selec