Need to move entire row from one sheet to another

[rspauster]

I have a call log file that has 2 worksheet Open and Closed, Under the Column Status(G column) when I put closed I would like the entire row to be moved to the Closed Worksheet. Here are the columns I have. This will be constantly added to so the range will keep growing.

Date	Name of Person/Company	Phone #	Reason of Call	Employee's Task	Follow up Needed	Task Complete

<colgroup><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[Nine Zero]

Hey wassup!

Try this out in the sheet VBA so Right Click on the "Open" sheet and click View Code and insert this into there and it should work fine

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastClosed As Integer
Dim currentRow As Integer
lastClosed = Sheets("Closed").Cells(Rows.Count, 7).End(xlUp).Row + 1
    If Intersect(Target, Range("G:G")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        If Intersect(Target, Range("G:G")).Value = "Closed" Then
            currentRow = Intersect(Target, Range("G:G")).Row
            Rows(currentRow).Cut Sheets("Closed").Rows(lastClosed)
        End If
        Application.EnableEvents = True
End Sub

 

[rspauster]

Thanks, worked perfect