Cell not equal to previous cell?

[sweedey]

Sub SalesOrderChange()
    Range("B2").Select
    Do Until IsEmpty(ActiveCell)
        Dim rng As Range
        Set rng = ActiveCell
        If ActiveCell <> ActiveCell.Offset(-1,0)

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:

Sub test()

Dim x As Long
Dim LastRw As Long

LastRw = Range("B" & Rows.Count).End(xlUp).Row

For x = LastRw To 2 Step -1
    If Cells(x, 2) <> Cells(x - 1, 2) Then Rows(x).Resize(2).Insert
Next x


End Sub

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

Example:

1
4
2
2
5
3
3
1

would become

1


4


2
2


5


3
3


1

[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

[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

[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