![]() |
![]() |
|
|||||||
| Excel Questions All Excel/VBA questions - formulas, macros, pivot tables, general help, etc. Please post to this forum in English only. |
![]() |
|
|
Thread Tools | Display Modes |
|
|
#1 |
|
New Member
Join Date: Mar 2002
Posts: 1
|
looking for macro to start at this point:
Rows("13:127").Select Selection.Delete Shift:=xlUp and loop increasing the range by 10 --ex "23:137" then "33:147" until Rows("12013:12127").Select Selection.Delete Shift:=xlUp |
|
|
|
|
|
#2 |
|
MrExcel MVP
Join Date: Feb 2002
Location: Monterrey, Mexico
Posts: 1,433
|
Try the following code:
Application.ScreenUpdating = False For i = 1 To 1200 Range(Rows(13 + i * 10), Rows(127 + i * 10)).Delete Shift:=xlUp counter = counter + 1 Next i Application.ScreenUpdating = True I think this is what you want, but remeber once you delete rows 13:127, row 128 will now be row 13. Is this what you want.
__________________
Kind regards, Al Chara |
|
|
|
![]() |
| Bookmarks |
| Thread Tools | |
| Display Modes | |
|
|