Move Rows to another sheet based on cell value

[camronmartin]

Hi There,

Super beginner excel user. I am trying to figure out how to move the contents of a row from my Requested Sheet to my Received Sheet once I type "Yes" into Column D. Help please.

 

[My Aswer Is This]

Try this:
You must have a sheet named "Received"
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab Named Requested
Select View Code from the pop-up context menu
Paste the code in the VBA edit window
When you enter "Yes" in Column D the row will be copied to sheet named Received
And delete row from sheet named Requested.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  10/28/2020  10:34:55 PM  EDT
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 4 And Target.Value = "Yes" Then
Dim Lastrow As Long
Lastrow = Sheets("Received").Cells(Rows.Count, "D").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Received").Cells(Lastrow, 1)
Rows(Target.Row).Delete
End If
End Sub

 

[camronmartin]

Try this:
You must have a sheet named "Received"
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab Named Requested
Select View Code from the pop-up context menu
Paste the code in the VBA edit window
When you enter "Yes" in Column D the row will be copied to sheet named Received
And delete row from sheet named Requested.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  10/28/2020  10:34:55 PM  EDT
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 4 And Target.Value = "Yes" Then
Dim Lastrow As Long
Lastrow = Sheets("Received").Cells(Rows.Count, "D").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets("Received").Cells(Lastrow, 1)
Rows(Target.Row).Delete
End If
End Sub

That worked perfectly, thank you!

 

[My Aswer Is This]

That worked perfectly, thank you!

Glad I was able to help you