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? |
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? |
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? |
All times are GMT +1. The time now is 06:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com