Change code when a blank cell reached

[russwongg]

Hi,

I have written a data extraction code here. The Cells.Find value will be taken from Cell A2, A3, A4... down. I have put "For x = 2 to 88" but data set is not 88 rows long and i do not wish to change it everytime i change row numbers. What i want to do, is that when a blank cell (Ax) is reached, i want the code to jump to the Red colored code. How would i do this? I've tried If FindValue = "" GoTo ... but i keep getting errors

Thanks!

p.s. this is my first time writing such a long code and I've learnt this for a week so it'll probably look messy and junky to you.

Please Login or Register  to view this content.

[stnkynts]

There are many, many, ways you can approach this problem. I think the solution that might make the most sense to you would be to do something like this. I can't really understand the big picture so hopefully this will put you on the right track.

Please Login or Register  to view this content.

[russwongg]

I understand what's going on here. It's an interesting way of tackling the problem. Is there a way to edit the code such that once bEmpty = True and jumps to the second half of the code x restarts to 2 again?

Please Login or Register  to view this content.

[stnkynts]

Yeah its possible but I can't understand why you would want to do that. I am afraid to assist you further because I really have no idea what you are trying to do and I don't want to confuse things. Maybe if you submit an example workbook which clearly shows a before and after product I can write the code to do that.