Inserting a row above if the value is different

[GreenTee]

Hello,

I'm trying to figure out how to insert a row above when the value in a cell is different from the one above it. I'm pretty sure I have to loop it but I'm still very new to VBA so any help would be greatly appreciated.

Here's what I have so far.. but I keep getting an error when I'm trying to find the last row. Same_Name.xlsm


Thanks in advance.

[simarui]

looks like you forgot to set ws in this sub

Set ws = Sheets("Sheet1")

[simarui]

also your cells() reference below should be looking at column 2 instead of column 0.

this appears to be working - inserting a row below the first instance of a new name, although I'm not real clear on what you're trying to accomplish by inserting these rows... guess you feel comfortable w/ whatever the next segment of code is supposed to do?

Please Login or Register  to view this content.

[Alf]

No, post deleted as I did somthing wrong when testing and compairing results!


Alf

[YasserKhalil]

Try this code

Please Login or Register  to view this content.

[GreenTee]

also your cells() reference below should be looking at column 2 instead of column 0.

this appears to be working - inserting a row below the first instance of a new name, although I'm not real clear on what you're trying to accomplish by inserting these rows... guess you feel comfortable w/ whatever the next segment of code is supposed to do?

Please Login or Register  to view this content.

Ahh.. thanks Simarui! this solved my problem... and apologies for making it so vague. I do have some other code that runs before and after it but just wanted to keep the forum simple since this was the part that's giving me an issue.

[simarui]

glad i could help, don't forget to mark the thread as solved!