jesuisazep
New Member
- Joined
- Nov 13, 2024
- Messages
- 2
- Office Version
- 365
- 2021
- Platform
- Windows
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
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