A VBA Code to Transfer rows of cells across Sheets based on Certain Column Value

[jesuisazep]

Hello So I have two identical sheets that relate to eachother based on correspondance from clients etc. I want a VBA code that will copy the Entire row from sheet 1 pictured below to sheet 2 based on Column N saying "Incomplete". I also would like it to update automatically based on if the status changes if that is at all possible. Any help or guidance would be appreciated, I thought I had it figured out with a sample code below but it will not update after the second user is entered it continuously overrides the same row

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 14 Then Exit Sub
    If Target = "Incomplete, Moved to Site Inspection Sheet" Then
        With Sheets("LF WDIF SI")
            Target.EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(7)
        End With
    End If
    Application.ScreenUpdating = False
End Sub

 

[abdelfattah]

Hi,
I'm not sure if this is what You want .
just try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 14 Then
 Application.EnableEvents = False
If Target.Value = "Incomplete" Then
With Sheets("LF WDIF SI")
Target.EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
End With
End If
End If
Application.EnableEvents = True
End Sub

 

[Peter_SSs]

@jesuisazep
For the future, when posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you this time.