Hi all,
I posted a question yesterday and received an excellent answer within minutes!
I now have a macro question.
After searching, I found the below code written by arlu1201 and it worked brilliantly, but when I amended the details to suit my sheet, the code works, but has a error come up saying Run time error 13, type mismatch.
I dont know what I have done wrong as all the words match including case size....
Sheet 1 - Column one can be changed to either active or returned. If Returned, then the row moves to the Returned Vans sheet and empty row on sheet 1 is deleted.
Link to thread: http://www.excelforum.com/excel-prog...-down-box.html
Code: Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = "Returned" Then
Target.EntireRow.Copy Worksheets("Returned Vans").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End If
End Sub
Any helps is appreciated.
thank you in advance.
Bookmarks