![]() I am able to do this with my current level of knowledge. This spreadsheet is designed to look like a report. I would like to take data from each row – one row at a time and copy into another spreadsheet. I have a spreadsheet that contains 100 rows. Do you have a code for the following scenario? Unfortunately, it does not cover what I am trying to do. MsgBox "Your Pivot Table is now updated." Pivot_Sheet.PivotTables(PivotName).RefreshTable PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange) '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")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |