Looping macro

hello,

are you saying that you want to delete every 2nd line eg line 1,3,5,7. and manually stop the macro using ctrl+pause/break keybord keys.

1, the macro will run very fast, even programming a little pause between each row deletion, you will eventually run into not hitting the keys fast enough and deleting a row you wanted to keep. and deleting the rows via VBA doesnot realy allow you to undo the changes like you may need.

2, you could use a simple userform to input the start row(1st row you want to delete) and the end row(last row you want to delete, aswell as how many rows you want to skip between each deletion.

3. another way would be to record a macro assiging a shot-cut key. go into the vba editor and delete the code you just recorded and replace it with

Please Login or Register  to view this content.

and now all you have to do is select a cell within the row that you want to delete and hit the shot-cut key.

cheers

Hi mbenazeraf
a quick search and you'll find an answer
http://www.excelforum.com/excel-gene...-65-lines.html

Hi mbenazeraf
if you click on the link you'll find this code which you can modify to suit your needs

Please Login or Register  to view this content.

This little macro will check column A and determine on its own how far down the data belongs, then it will create a range of every "even" row in the range and delete them all at once.

Please Login or Register  to view this content.

JB Thats a clean way to do things, i like it.
i would have done like pike

I'll have to have a platya round wth that syntax for future use

WARNING THREAD HIJACK

i been picking a bit up of JB latley i used one of your approaches the other day.

PHP Code: 

With .Sheets("TestVBA")
            .Range(.Cells(2, 1), .Cells(LR, 1)).FormulaR1C1 = _
                "=IF(Sheet1!RC="""","""",IF(OR(Sheet1!RC[1]=1,Sheet1!RC[2]=1),Sheet1!RC,""""))"
            .Columns(1).SpecialCells(xlCellTypeFormulas, 1).EntireRow.Copy ThisWorkbook.Sheets(2).Range("A1")
            .Columns(1).ClearContents
        End With 


seamed to work well. then mikerickson and another decided to school me all over again. live and learn

Thanks all. I will try Pike's and JB's suggestions and will return to the post.
Great board. This my first try on it.
Question: Why is it when I print this page, the macros under the heading "code" are printed in light grey color? Very hard to read. Any suggestion how to improve that?
Thanks.

hi Mbenazeraf,

Welcome to the Forum

That's a good question. The Forum design has recently been over-hauled & further comments have been requested, so I have pasted your question as post number 84 in the below thread:
http://www.excelforum.com/exceltip-c...e-board-6.html

Edit: Nice one JB
(btw, Somewhere (...?) I've seen a thread discussing that unions can become slow after the joining of 300-400 (I think?) areas & someone (perhaps DO or KeepItCool?) suggested flushing the range after x unions using an outer loop to help keep the speed up. However, with 850 being mentioned as the lastrow, flushing the range doesn't seem very necessary at all.)

hth
Rob

I ran it with 8000 values and it seemed to still be acceptably brief...the OP will have to decide if this is a win for him.

==========

If that takes care of your need, be sure to EDIT your original post, click Go Advanced and mark the PREFIX box [SOLVED].


(Also, use the blue "scales" icon in our posts to leave Reputation Feedback, it is appreciated. It is found across from the "time" in each of our posts.)

JB, you're more dedicated than me!
I've just made an unreferenced comment & haven't done any testing to support the comment.

I agree, it's up to the OP & I imagine they'll be happy - hopefully they give some feedback...

Rob