Многократные автоматические повороты кнопкой (VBA) - PullRequest
Новая
       55

Многократные автоматические повороты кнопкой (VBA)

0 голосов
/ 25 июня 2018

Я пытаюсь достичь цели по автоматизации шаблона поддержки.Функция, над которой я работаю, - это создание кнопки или выпадающего меню выбора, которое автоматически поворачивает таблицу Excel к нужным таблицам.Код ниже создает сводную таблицу на листе, который уже существует.Я пытаюсь выяснить, как мой макрос можно изменить так, чтобы в нем не было листов (кроме тех, на которых есть таблица excel), прежде чем запускать макрос, и после запуска он автоматически создаст новую таблицу и сводную таблицу.Это где я застрял.Я попытался записать эти шаги, но если я внесу изменения в код, он сломается.

 Sub SelfPivot()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng1 As Range


    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Data insert")
    Set rng1 = ws.Cells.Find("*", ws.[a1], xlFormulas, , , xlPrevious)
    Sheets("Data insert").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data insert!R1C1:R" & CStr(rng1.Row) & "C" & CStr(rng1.Column), Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Reclass_PushBack!R3C1", TableName:="ReclassPORequesters", DefaultVersion _
        :=xlPivotTableVersion10
    Sheets("Reclass_PushBack").Select
    Cells(3, 1).Select
    End Sub
...