FROGGER24
Well-known Member
- Joined
- May 22, 2004
- Messages
- 704
- Office Version
- 2013
- 2010
- Platform
- Windows
Hi Everyone, I requesting some help to modify some code. How can I modify "Worksheets("Sheet1")." so the code will run on numerous worksheets in workbook (up to 50 worksheets). I would also need the code to stop running if on the current worksheet cells C7 & C11 are blank.
Worksheets("Summary Sheet").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("D34").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("c7").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 5).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e30").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e28").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 7).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e15").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 8).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("f28").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 9).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e29").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 10).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e24").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 11).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("f29").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 12).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("AA1").Value
Thanks for any help, and Merry Christmas
Worksheets("Summary Sheet").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("D34").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("c7").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 5).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e30").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e28").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 7).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e15").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 8).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("f28").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 9).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e29").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 10).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("e24").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 11).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("f29").Value
Worksheets("Summary Sheet").Cells(Rows.Count, 12).End(xlUp).Offset(1).Value = Worksheets("Sheet1").Range("AA1").Value
Thanks for any help, and Merry Christmas