VBA Macro not completing it's task.

Because you had used COUNT function, it didn't count blank cells. For example, you have 12 number cells and 3 blank cells (A2, A4, A6). When you use COUNT function, the result is 12. After that, your looping is playing from A1 to A12.

Using LastRow = Range("A65000").End(xlUp).Row, LastRow = 15 and your looping is playing from A1 to A15. And this macro will complete your task.

Please Login or Register  to view this content.

@ sgrondines

Welcome to the forum.

Please notice that code tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.

I'm not sure I understand your explanation about the blank cells. There are no blank cells within the rows of numbers I'm checking, cells 1 to 6 in each row. Nevertheless I tried changing the code by adding the new "LastRow" statement and still had to run the macro 7 times to remove all of the rows with duplicate numbers in them. The code runs and doesn't error out or anything. I'm not sure why, that when the code does run it works but has to run 7 times to completely do it's task.

PS. Forum Moderator: Sorry about that. I'm new to using Forum's and I'm having a hard time figuring out how to use them sometimes. Like even how to post. I'll try go through the rules a little better next time.

Thanks.

Likewise, I'm having the same problem with another code I wrote having the same set up but it is suppose to delete every x number of rows from an input and shift the empty cells up. It works fine like the other code but does not finish it's task again. So if I have 400 lines of data, and I want to delete every 4th row. I should have 100 lines of data left, but I have to run this macro several times again to get the desired result.

The code is as follows:

Please Login or Register  to view this content.

There must be an issue that excel has with this kind of configuration which can't run fast without missing stuff. Looping throuh in a stepwise fashion this code works perfectly but doesn't not at full speed. With that said I haven't stepped through the code until the end of the over 700 lines of data.

Thanks.

Sorry, I didn't see mike7952's post. I tried your code and it works but could you please explain to me why my method doesn't work? I would really appreciate that.

Thanks.

Yah, I think your right about the math. Haven't had my second cup of coffee yet. lol. So, then if I'm going to delete from the bottom up the deleting of the xth row will start from the bottom not from the top. ie. If I want the 4th row removed from my data I should look at the bottom rows of data and make my decision from there?

Thanks.

Please Login or Register  to view this content.

Is there cell zero exist in excel?

To AB33. No, I'm new to programming and I read that it is good to initialize variables to zero before beginning.

I have a problem that has come up now. I have put a button on the spreadsheet which I am running the delete rows macro on which runs the macro when clicked. But when the code deletes the rows according to the program it sometimes deletes part or most of the macro button on the sheet so it's no longer visible or only partly visible. How do I prevent this?

Thanks.

Oh, I think I figured the deleted button thing out. In properties for the format button, I selected "Don't move or size with cells". Is that correct?

Thanks everyone for your help. You all rock! This thread is basically resolved. I still am having a problem with the DeleteXRows code which I changed to deleting from the bottom up.It seems that the code deletes the last row first then every x rows from there. How do I get the code to start at the xth row from the bottom in the loop as the first delete? If I can get this answered I'm pretty satified with ending this thread though I wish I could run the code deleting from the first line to the end instead of the other way around.

Thanks Everyone.