If Len(X) > 0 And Not X Like “**” ThenĪctiveCell.Resize(X) = Evaluate(“ROW(1:” & X & “)”) X = InputBox(“Enter Value”, “Enter Serial Numbers”) Here are some shorter alternates for a few of the macros you posted… Is this possible or will it be too big as well? Thank you in advance for your help. I was hoping that I could add a looping code to the first original macro that takes info from row 1 of spreadsheet1 and pastes it into the proper cells on spreadsheet2 (report spreadsheet) and then prints it. I have read about looping, but was not sure how to code that. When I tried to run the macro, it said it was too big. I actually spent the afternoon recording a macro where I went through and did this individually with each row (100 times). I have created a recorded macro that will take each cell from the 1st row and place it in the proper place on the “report spreadsheet” and then print the spreadsheet.
I will need to do this for each row of data – thus, I will need to do this 100x. 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")