VBA for Moving Rows - Debugging Help Needed

[Smilechild793]

I'm trying to move the rows from my sheet labeled "Changes" to my sheet labeled "Print", when there is a "NO" written in column V of the "Changes" sheet. I have the below, but I keep getting an error when I run.

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/29/2018  3:21:38 AM  EST
If Target.Column = 22 Then
Dim ans As Long
Dim Lastrow As Long
Lastrow = Sheets("Print").Cells(Rows.Count, "V").End(xlUp).Row + 1
ans = Target.Row
If Target.Value = "NO" Then Rows(ans).Copy Sheets("Print").Rows(Lastrow)
Rows(ans).Delete
End If
End Sub

 

[Smilechild793]

No more error, but when I hit run nothing happened.

 

[My Aswer Is This]

So for the script to run you must enter "NO" into any cell in column V

Your script said If target.column = 22 which is column V

 

[My Aswer Is This]

What do you mean when you Hit Run

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

You enter NO in column V and the script runs.

There is no pressing of a button.

 

[Smilechild793]

Ahhhhh, I see. This is perfect. Thank you so much for your help!!!!

 

[My Aswer Is This]

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

Ahhhhh, I see. This is perfect. Thank you so much for your help!!!!

 

[Fluff]

For reference, the reason you were getting an error on the highlighted line is because of

End(X1Up)

you have a 1 (one) which should be an l (lowercase L)