Trying to Move Data from Sheet 1 to Sheet2 if Column D has Closed in it
Below code doesnt seem to move it all. is there a better easier way to do it. ALso dont necessarily need selected cells prefer rage to be just Col D and when it finds it will copy all the rows to sheet 2 and then delete the Data on Sheet1
ALso need it to paste to next available row as will be moving stuff from sheet 1 to sheet 2 once a month
Thanks
Below code doesnt seem to move it all. is there a better easier way to do it. ALso dont necessarily need selected cells prefer rage to be just Col D and when it finds it will copy all the rows to sheet 2 and then delete the Data on Sheet1
ALso need it to paste to next available row as will be moving stuff from sheet 1 to sheet 2 once a month
Thanks
VBA Code:
Dim mycell
For Each mycell In Selection.Columns(4).Cells
If mycell.Value = "Closed" Then
mycell.EntireRow.Copy Worksheets("Sheet2").Range("A" & Rows.Count).End(3)(2)
mycell.EntireRow.Delete
End If