Moving entire row to another tab based on cell value

[TreydMark]

I have 2 tabs, essentially one is an active tab and the other is an archive. I want to moved row from active to archive tab when column G is not blank (meaning this is completed)

 

[My Aswer Is This]

Specifics are always important.
You need to give sheet names.
You said:

I want to moved row from active to archive tab when column G is not blank (meaning this is completed)

Is the sheet actually named "archive"?

So anytime you enter any value in any cell in column G you want this row moved to sheet named "archive"
And delete this row from original sheet is that correct? If not give more specific details

Trying to get specific details from looking at an image cannot always be best way to get specific details

 

[My Aswer Is This]

If the answers to my question are true try this:
If sheet name is not correct modify my script
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

The script runs when you enter any value into column G

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  5/9/2022  6:12:41 PM  EDT
If Target.Column = 7 Then
Application.EnableEvents = False
Dim Lastrow As Long
Lastrow = Sheets("Archive").Cells(Rows.Count, "G").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Archive").Rows(Lastrow)
Rows(Target.Row).Delete
Application.EnableEvents = True

End If
End Sub

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: How to move entire row to another tab based on cell value
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[TreydMark]

If the answers to my question are true try this:
If sheet name is not correct modify my script
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

The script runs when you enter any value into column G

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  5/9/2022  6:12:41 PM  EDT
If Target.Column = 7 Then
Application.EnableEvents = False
Dim Lastrow As Long
Lastrow = Sheets("Archive").Cells(Rows.Count, "G").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Archive").Rows(Lastrow)
Rows(Target.Row).Delete
Application.EnableEvents = True

End If
End Sub

This worked perfectly, Thank you

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

This worked perfectly, Thank you