Move Values in range to fill blanks in range grab values for column 2 to fill remaining.

[rose8693]

So the title may be a bit a complicated. Essentially what I'm trying to do is 3 parts.

1. Column A and B are my to-do section with Column A holding the Task and B the status of the task. So in this part all tasks that have an x in column B get cleared in column A. This part works.

2. All tasks that did not have a x in column B remain. This is where things get tricky. I'm trying to move all the remaining tasks up the range to to fill in the blanks on that range.

3. Once those tasks are moved up I need to grab from Column D, which holds my over flow tasks to fill in the remained of the range for Column A. I don't need the entire range filled I just need the over flow moved.

I believe a large part of my issue is that my tasks in range A has blank cells between the tasks, as I print this file out and sometimes need to add notes to my tasks. This section is actually apart of a larger planner I maintain so I'm trying to maintain my overall layout for this section.

Attached is a mock up of what I'm trying to do with the code, but like I said the only part I have working right now is part one. Any advice would be greatly appreciated on how to fix this. Even if I have to change the layout.

Thank you.

[jindon]

You are making the things difficult by such an inefficient data setting.

Please Login or Register  to view this content.

[rose8693]

Yes, I agree there is a more efficient way to run the code, as you've shown. My novice brain is still wrapping itself around for and while loops.

Your code worked perfectly for part 2 of my project, so thank you for that. Now I just need to figure out part 3. Would you be so kind as to give me some direction on functions I could look into for that piece.

Thank you again for your help.

[jindon]

Missed 3)

Please Login or Register  to view this content.

[rose8693]

You are awesome that worked perfectly. I had to tweak this line a bit as it was clearing everything in those columns

.ClearContents: .Columns(2).EntireColumn.ClearContents

but after that now issues.

Thank you for mush for your help. This would have taken me forever to figure out on my own.

[rose8693]

Sorry to bother you, but how do I add more rows between tasks?
I thought increasing the row offset would do it, but it's not making a dent.

Thank you

[jindon]

Please Login or Register  to view this content.