Deleting rows

[tjgrassi]

I currently have a code that does not quite work correctly, I was hoping to get some help to get it running. What I want this code to do is to look only through column A and start at cell 13 and go down. I want it to delete any row that is blank, and I want it to keep every cell that has a word that starts with A,D,I ,P, and R and delete the entire row if its not, additionally delete any cell that has an exact match to "PRESS :" since it starts with P. I would also like to change the source sheet to a range of sheets, not all but a range. Any help would be appreciated!

Please Login or Register  to view this content.

[6StringJazzer]

What does it mean to "not quite work correctly"? Can you attach your file so that we can have your sample data to test with? To post a file:

1. Under the text box where you type your reply click the Go Advanced button.
2. In the next screen look above the reply box and click the "paper clip" icon. You will get a pop-up screen.
3. In the pop-up, click Add then Select to select a file from your local drive
4. Click the Upload button to upload the file
5. Click Done to attach it.

It will be displayed as an attachment underneath your post text. Alternatively as the last step you can click the Insert Inline button and a hyperlink to the file will be inserted directly into your post text in the spot where your cursor is set at the moment you click the button.

[tjgrassi]

The one that I have attached the code will delelte everything after cell 13.

[JOHN H. DAVIS]

Based on your code, which lines are not supposed to be deleted?

[tjgrassi]

Looking in column A, if the word in the cell starts with an A,D,I,P,or R.

[Aks2014]

You're missing parenthesis and perhaps you want the = instead of <>?
I think you're looking for:

Please Login or Register  to view this content.

Note that the entire condition is placed within parenthesis that open just after "Not"

[tjgrassi]

For that line of code I get a run time error 13: type mismatch?

[tjgrassi]

If i used () instead of [] the code worked, thank you!! just had one last question. If it would be possible to change the part of the code where I am setting the sourcesheet, if i could make that like range(sheet2:sheet25) unfortunately that doesnt work.