Looking to implement Archive button with table data - need help!

Basically I just need to have a button to archive completed entries to another table on another sheet.

Criteria: Table rows with "COMPLETE" in cell under Table Header "ARCHIVE"

From: Worksheet "ORDERS_LIST" / Table "ORDERS_TB"
Destination: Worksheet "ARCHIVE" / Table "ARCHIVE_TB"

Then delete row from "ORDERS_TB"

Of course needs to be able to add rows to table for the entries being archived.
I dont know if it matters by a lot of the cells for ORGIN worksheet use conditional formatting for colors and dates.


***WISHLIST - Would be nice if automatically each new row had a checkbox in the Archive column and that activate the Archive Function.***


File attached. Thanks for all the help.


I have not got far, i have tried many things from other posts but im not seeming to grasp the whole thing properly. and have deleted most of my attempts. Im guessing i need to start the VBA with the definitions and set variables. MER.

_______________________________________
Sub ARCHIVE()
Application.ScreenUpdating = False

Dim OL As Worksheet
Dim AL As Worksheet

Set OL = Worksheets("ORDERS_LIST")
Dim OLT As ListObject
Set OLT = ws.ListObjects("ORDERS_TB")

Set AL = Worksheets("ARCHIVE")
Dim ALT As ListObject
Set ALT = ws.ListObjects("ARCHIVE_TB")

End Sub
_______________________________________

Hi stipple & welcome to the forum

Try below code on a sample file ...

Please Login or Register  to view this content.

PS: Please take a moment & edit your post, select your code then click the # button to insert the code tags

I used the below line first but noticed that you have some blank rows in your table that's why I used an alternative method ... Not sure if there's another way but this pastes the data toward the end of the table

Please Login or Register  to view this content.

Does the provided code in post #2 work as expected ?

Do you have rows where column A is blank & it is COMPLETED ?

Edit: If it is possible to have blanks in column A, try to change .Range("A:A") to .Range("U:U")

Oops ! You're right, I guess I am getting sleepy ... It should be like below

Please Login or Register  to view this content.

@stipple, does the updated code in post # 10 still have issues ? What happens exactly ? It is working ok for me ...

Not sure why post #10 was doing it..... But for me it would paste over another row around row 26. or so. depending.