Cell not equal to previous cell?

[sweedey]

Please Login or Register  to view this content.

My current and INCOMPLETE code is posted. I am new to VBA and what I am doing should be simple but I am apparently not using the correct syntax. I want to go through a list and every time the number in the cell I am currently in (my active cell) is not equal to the number in the same column in the row before it I want to add 2 rows afterwards. Otherwise I want to check the next row down and see if it is equal to the row before it.

In non vba is should look something like this:

Select Cell B2

Until empty
if Active Cell DOES NOT EQUAL Previous Cell (up one row, no column offset)
insert 2 rows
then select the cell 2 rows down, no column offset
else select the next Cell (down one row, no column offset)
end the loop

Let me know if this doesn't make sense

[ConneXionLost]

Your post did not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

I've added the tags for you in this post; please use them in the future.

[sweedey]

Sorry about that, I saw that we needed to do that, but couldn't find how because I was in a hurry! Thanks for the assistance!

[abousetta]

Maybe try this:

Please Login or Register  to view this content.

abousetta

[abousetta]

ConneXionLost has your avatar's teeth gotten sharper or is my screen resolution all of a sudden much better

[sweedey]

Thanks! That is SOO close to what I want it to do, unfortunately I do not exactly understand it or I would fiddle with it to get it to work. I want the insertion of rows to happen between the different numbers rather than the same numbers

Please Login or Register  to view this content.

[abousetta]

My bad... I misread the intention. Just change the equal sign to not equal (e.g. <>). I have done this in the code that I posted earlier. It seems to work on my sample.

abousetta

[abousetta]

If you are interested in how the code works, I can provide detailed explanation later tonight (or over the weekend).

abousetta

[sweedey]

thank you SO much! You are a life saver!

[abousetta]

Just spreading the love ... My @ss has been on the line more than once and others have chipped in to save it...

Good luck.

abousetta

P.S. If you are satisfied with the answers, please mark the thread as solved. Also reputation points (scales) are always welcomed. In fact I have over 800 posts... feel free to add rep points to any of them

[sweedey]

if you have time at some point that would be great! I am really trying to learn this stuff, but it seems like when I start grasping something the way to actually do it is completely different than what I thought!

Oh - and how do I do the reputation point thing - I am very new to this forum

[abousetta]

There are many ways to do the same thing. The more proficient you become with vba, you will begin to recognize how to consolidate the code and make it more efficient. I will do my best to post a detailed description over the next few days.

Good luck.

abousetta

[abousetta]

If you like a post then you can click on the scales (upper right corner of the post). Then if will ask you if you approve or disaprove of the post.

abousetta

[ConneXionLost]

ConneXionLost has your avatar's teeth gotten sharper or is my screen resolution all of a sudden much better

Only if you`ve bought a new monitor. And no, I`m not going to quote the Big Bad Wolf here.

[abousetta]

Same monitor(s) but I did switch to Child 3.7 which seems to have lower graphics, but allows me to use color in the code. And then all of a sudden I could have sworn that your avatar was looking at me funny ...

I quess enough forums for today and more real work.

abousetta

[abousetta]

As promised, let's break this code down to see its components:

Declare variables to speed up the code. Put the ones used most often on the top and so forth.

Please Login or Register  to view this content.

Get the row number of the last used cell in column B

Please Login or Register  to view this content.

Starting from the bottom and working your way up, one row at time (that's the Step -1). x is will converted to a number (e.g. 200, 199, 198, etc. until we reach 2)

Please Login or Register  to view this content.

Equation: Using the cells approach to determine the cell, if the cell in Column B is not the same as the cell above it, then add two rows

Please Login or Register  to view this content.

Next row (up)

Please Login or Register  to view this content.

Hope this helps.

abousetta (signing off for the day)