Home |
Search |
Today's Posts |
#1
|
|||
|
|||
macros
I'd like to create a macro that deletes every other row. When I record the
macro it only deletes the cell I used for recording. How do I make the macro so it runs on any cell? |
#2
|
|||
|
|||
ilastrow = Cells(Rows.Count,"A") .row
if iLastRow Mod 2 < 0 then iLastRow = iLastrow -1 End If For i = ilastrowTo 1 Step 2 rows(i).delete mext i -- HTH Bob Phillips "khen1" wrote in message ... I'd like to create a macro that deletes every other row. When I record the macro it only deletes the cell I used for recording. How do I make the macro so it runs on any cell? |
#3
|
|||
|
|||
Hi khen1,
Try this: Sub Test() With ActiveSheet For i = .Cells(.Rows.Count, "A"). _ End(xlUp).Row To 2 Step -2 .Rows(i).Delete Next i End With End Sub Regards, KL "khen1" wrote in message ... I'd like to create a macro that deletes every other row. When I record the macro it only deletes the cell I used for recording. How do I make the macro so it runs on any cell? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Protect macros? | Excel Discussion (Misc queries) | |||
sharing macros | Excel Discussion (Misc queries) | |||
Enabling macros | Excel Discussion (Misc queries) | |||
Transferring toolbars and macros to other computers | Excel Discussion (Misc queries) | |||
The available macros list in XL; how to suppress filename from showing | Excel Discussion (Misc queries) |