move a row when a specific value is entered and add date and user stamp.

[DMO123]

Hi All,

so i have probably a common question but i cannot figure it out.

I am trying to move a whole row based on what is entered in column F. so if i enter "Yes" in column F the whole row should move to Sheet6 finding the next available line in the table.

i have the code below that moves the row to the sheet i need and finds the next available line but it does not go in to the table for some reason? also want to add a date stamp of the move and a user stamp. the date stamp should show in column N and the username stamp should show in column O

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Value = vbNullString Then Exit Sub
    If Intersect(Target, Columns("F:F")) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    If Target.Value = "Yes" Then
        Target.EntireRow.Copy Sheet6.Range("A" & Rows.Count).End(3)(2)
        Target.EntireRow.Delete
    End If
    
    Sheet6.Columns.AutoFit
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

​

 

[DMO123]

thanks for your help i was able to shift some bits around and it worked. thank you for all your help!

 

[mumps]

You are very welcome. I'm glad it all worked out.