Macro to remove rows

[horseyshoe]

Hi all!
I have a sheet that I need to remove 4 rows over and over again for instance...
First row has needed data
The next four rows need to be deleted.
Sixth row has needed data
The next four rows need to be deleted.
Etc.

Is there a way to write a macro to take care of this? I am EXTREMELY new and unskilled in macros and/or VBA code so any help would be helpful.

Thanks,
horsey

[starryknight64]

Give this a shot. Just run this macro until you are satisfied with what was deleted. Make sure you type "No" (with a capital "N") to quit the macro.

Sub delete_em()

Dim yesno As String
Dim row As Integer

yesno = "Yes"
row = 1

    While yesno = "Yes"
        Rows(row + 1 & ":" & row + 4).Select
        Selection.Delete Shift:=xlUp
        yesno = InputBox("Continue? Type Yes or No.", , "Yes")
        row = row + 1
    Wend
End Sub

If you have any questions, please let me know! Good luck.

[horseyshoe]

That worked GREAT. Once I saw that it would do what I needed it to do I even learned how to make it loop to take care of all of my records (around 5000).

Again since I am EXTREMELY new to all of the macros and VBA can you suggest a good book(s), site(s), or teaching program(s) to learn from to become fluent?

Thanks SO much for your help.
Horsey

[Myles]

Horsey,

There are a few good EXCEL PROGRAMMING books out there but imo, the near best for a starter is John Walkenbach's book on Power Programming. See Link:
http://j-walk.com/ss/books/index.htm.

To fast-track your learning, it cannot be emphasized too strongly that the web EXCEL NEWSGROUPS offer a rich resource to complement textbook stuff. Avail yourself of the exposure to current thrust of forum discussions. And it is good news that there are limitless archival data and information bank you can always trawl through using google search.

Finally, remember the good old adage: practice makes perfect.

[starryknight64]

Wow! I'm glad it was a great help!

To tell you the truth, to hone my programming skills, I do this! That is, I help people in these forums with any knowledge I have of programming and/or excel. It keeps me busy and I'm helping people. I enjoy it thoroughly.