Move Complete Rows to bottom of Worksheet

[Likayuu19]

Hello All,

I have created a VBA worksheet that is populated by 2 userforms. The "add new shop order" userform populates the SOL tab and the "Look up shop order" populates the Tool_Room tab and also the SOL tab. All the data is entered using the two userforms. On the Tool_Room worksheet I would like for all the rows with a "Date Complete" entered to be moved to the bottom. For example if someone uses the "Look Up Shop Order" userform and enters a "Date Complete" and saves the information. I would like that row to be moved to the bottom of the Tool_Room worksheet only. I have attempted a few codes and managed to have the code do it manually but I would like it to happen automatically whenever someone enters a "Date Complete". I have attached a copy of my workbook, the password to unlock the sheets is (pass: abc) and the password to save the "look up shop order" is (pass: Secret). Thank you so much for your assistance I am absolutely stuck.

[mehmetcik]

Change the End of your Save Macro to:=

Please Login or Register  to view this content.

[Likayuu19]

This is does what I needed I am very thankful. I was wondering if it is possible for the rows to be entered sequentially. Meaning all the shop orders with a date complete entered are in order by shop number from least to greatest. For example if shop orders 4 and 6 both have date completed when I enter a date completed for shop order 5 for it to be moved in between row 4 and 6. Also when a new shop order is entered I want the new row to be at the bottom of the shop orders with no date complete but above the shop orders with a date complete. I am new to VBA and dont know the command string to add to UserForm1 to make this possible.

[mehmetcik]

Easily done.

Move the Row to the bottom as we already have.

Then Find the first date in column H.

Then Sort from that row to the bottom by column A.


Change the end of your code to:

Please Login or Register  to view this content.

[Likayuu19]

I tried the code but I don't see a change. I input the code into the Userform2 save change command. I have attached the updated worksheet with the implemented code. Also what should I change in the userform1 to be able to add a new entry on top of the date completed.

[mehmetcik]

Try this code:

Please Login or Register  to view this content.

[Likayuu19]

This works great I would just like to delete the empty rows that appear after the update. I am using

Please Login or Register  to view this content.

. Not quite sure where to insert this code for it to work.