Set rng = Sheet2.Range(“A1:A” & Sheet2.Cells(Rows.Count, “A”).End(xlUp).Row)įor i = 2 To Sheet2.Cells(Rows.Count, “A”).End(xlUp).Row You can try this llected from another website.

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. Characters(J, Len(myStr)).Font.ColorIndex = 3

MyStr = myRg.Range(“B1”).Offset(I, 0).Value MsgBox “the selected range can only contain two columns ” (“please select the data range:”, “Selection Required”, myTxt,, ,, , 8) I am not able to run this code it giving me an error of “Variable required. 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')

Visual basic for excel cheat sheet