![]() 'Change Pivot Table Data Source Range Address NewRange = Data_Sheet.Name & "!" & DataRange.Address(ReferenceStyle:=xlR1C1) Set DataRange = Data_Sheet.Range(StartPoint, Cells(DownCell, LastCol)) LastCol = StartPoint.End(xlToRight).Column Set Pivot_Sheet = ThisWorkbook.Worksheets("Pivot3") Set Data_Sheet = ThisWorkbook.Worksheets("PivotTableData3") The columns will be added after the selected cell. When it is run, you will feed the number of columns you are interested in, then click ok. This code gives you the option of inserting multiple columns. In the dialog box, select the macro you want to run.īelow is a list of Macro codes to enable you to get started Insert multiple columns
0 Comments
Leave a Reply. |