I have three identical worksheets named Sold, Delivered, and Closed
I want rows to automatically copy, cut, and paste from Delivered to Closed – WHEN…
The date that is previously entered in column H becomes “Todays Date”.
This is code I have set on the Sold sheet that works very well for moving rows from Sold to Delivered when the trigger word “Delivered” is selected from a dropdown in column F. I’ve tried altering this code with words like CurrentD, TODAY(), to work to move rows from Delivered to Closed when the date entered in column H becomes today's date with no success.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If Target = "Delivered" Then
Application.EnableEvents = False
nxtRow = Sheets("Delivered").Range("B" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy _
Destination:=Sheets("Delivered").Range("A" & nxtRow)
Target.EntireRow.Delete
End If
End If
Application.EnableEvents = True
End Sub
I need a separate code to put on the delivered sheet that will automatically copy, cut, and paste rows from Delivered to Closed sheets – WHEN…
The date that is previously entered in column H becomes “Todays Date”. It should be similar to the above code but with a different trigger = when date interred in column H becomes today's date.
Bookmarks