Dear Users,
I need your asistance with coding of the Excel 2003 macro. I have started but finding difficult to move ranges in the table below from left to right (col A to Col B okay already coded but from Col C to D, From D to E - can not code in the table below. I hace numbered the steps and parly completed macro follow below.
Many thanks in looking to help.
| Below range table is Worksheet10 that Macro refers | ||||||
| A | B | C | D | E | F | ROW |
| WorkSheets | Sheet | Range1 | Range2 | Range3 | Now |
1
|
|
1
|
TLoad | G7:G47 | H7:H46 | K7:K46 | Loop/Next |
2
|
|
2
|
TLoad | G7:G47 | H7:H46 | K7:K46 | Loop |
3
|
|
3
|
TLoad | G7:G47 | H7:H46 | K7:K46 | Loop |
4
|
|
4
|
TLoad | G7:G47 | H7:H46 | K7:K46 | Loop |
5
|
|
5
|
TLoad | G7:G47 | H7:H46 | K7:K46 | Loop |
6
|
Steps:
| 1. Macro starts, Goes to Worksheet10 cell A2, then goes to worksheet("1"). Activate |
| 2. Range ("G7:G47").SELECT |
| 3. Selection.Copy then goes to sheet "TLOAD" |
| 4. Sheets(sheetaddname).Select - Which is sheet TLOAD |
| 5. Range("A1").Select |
| 6. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False |
| 7. Goes to Worksheet10 selects Range2 - ("H7:H47") COPY |
| 8. Goes to Sheets(sheetaddname).Select - Which is sheet TLOAD |
| 9. Range("B1").Select |
| 10. ActiveSheet.Paste |
| 11. Goes to Worksheet10 selects Range3 - ("k7:k47") COPY |
| 12. Goes to Sheets(sheetaddname).Select - Which is sheet TLOAD |
| 13. Range("C1").Select |
| 14. ActiveSheet.Paste |
| 15. Insert 41 rows |
| 16 next - now loops/Next to Row 2 reference in worksheet10 |
Part Macro
|
CAclubindia
