Macro needed?

[ginsterman]

Hello,
I have a spreadsheet with two tabs and a table in each. The first tab contains data that is added to on a regular basis, say column D is called "Complete", what i want is if a a row in the first tab has a "Y" entered in the complete column then that row is moved from the first tab to the second tab.

Is this possible?

Thanks in advance

 

[JLGWhiz]

Copy this to the sheet code module for the sheet where the "Y" will be entered into column D. Save the file as a macro enabled workbook. The code will then execute when a "Y" is entered in cell in column D.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
     If Not Intersect(Target, Columns("D")) Is Nothing Then
          If UCase(Target.Value) = "Y" Then
               Target.EntireRow.Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2) 'Edit sheet name
          End If
     End If
Application.EnableEvents = True
End Sub