Move data from one sheet to another automatically

[tabauer]

I am having an issue when i try to move data from a row on sheet 2 to sheet 3 when data is entered into column H on sheet 2. Sheet 3 data needs to compile, not overwrite. I want the data to move once the completion date is input. I want tab 2 to be open work orders and tab 3 our completed tasks.

 

[kevin9999]

Please try the following on a copy of your workbook. Put the code in the sheet module of your "Active Initiatives" sheet. Right click the sheet tab name, select View Code, and put the code in the window that appears on the right of screen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Target.Column = 8 Then
        Application.EnableEvents = False
        If IsDate(Target.Value) Then
            With Target.Rows.EntireRow
                .Copy Sheets("Historical Initiatives").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                .Delete
            End With
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[tabauer]

@kevin9999 thanks you! that worked perfectly!

Please try the following on a copy of your workbook. Put the code in the sheet module of your "Active Initiatives" sheet. Right click the sheet tab name, select View Code, and put the code in the window that appears on the right of screen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Target.Column = 8 Then
        Application.EnableEvents = False
        If IsDate(Target.Value) Then
            With Target.Rows.EntireRow
                .Copy Sheets("Historical Initiatives").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                .Delete
            End With
        End If
    End If
    Application.EnableEvents = True
End Sub

@kevin9999 Thank you that worked, perfectly!

 

[kevin9999]

Happy to help, and welcome to the forum!