Shift Rows Up using VBA

[phelbin]

I'm making a dynamic to do list in Excel where tasks move from one worksheet to another based on the status in a certain column. Here's my code on the workbook module:

Please Login or Register  to view this content.

It works except for one thing. When I change a status, it moves to the appropriate worksheet, but I want the rows beneath in the original worksheet to shift up. Usually I would do something like this:

Please Login or Register  to view this content.

But I haven't figured out how to make that work here. Any ideas?

Thanks!!

[Greg M]

Hi there,

It's late here so I haven't tested this fully, but does the following work for you?

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

[phelbin]

Unfortunately that doesn't solve my issue. I'm using the following code to automatically move lines around the workbook based on the value in column D. So I can't use code with Row numbers in it.

I'm also needing to add this functionality into the following code

Please Login or Register  to view this content.

[phelbin]

Anyone have any ideas?

Just to clarify...the following code cuts the text and moves it to the proper worksheet. But I also want it to either delete the original row or shift the rest of the rows up before pasting.

Please Login or Register  to view this content.

[Greg M]

Hi again,

Copy the following code to the "ThisWorkbook" VBA CodeModule of your workbook, and see if it does what you need:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M