MasterChief
Board Regular
- Joined
- Feb 14, 2006
- Messages
- 172
I use the following code which works great, however it will not delete the line after it has been cut? Any ideas please.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Target.Value = 3 Then
Target.EntireRow.Cut Destination:=Sheets("Sheet2"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Target.Value = 3 Then
Target.EntireRow.Cut Destination:=Sheets("Sheet2"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
Application.EnableEvents = True
End Sub