Moving Information from 1 set to another based on an IF [Closed]

Report
Posts
1
Registration date
Wednesday February 12, 2014
Status
Member
Last seen
February 12, 2014
-
Posts
2673
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
October 26, 2020
-
I have two worksheets. 1 is Proposals 2 is Projects
When a row in Proposals is given a Project #(a cell in that row) I need the cells in that row to be moved(and deleted from Proposals) to cells in Projects.

1 reply

Posts
2673
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
October 26, 2020
446
Hi JDI12,

Try this code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("D:D")) Is Nothing Then Exit Sub 'Change D to match your Project# column
If Target.Cells.Count <> 1 Then Exit Sub
Rows(Target.Row).Cut Sheets("Projects").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub

To implement: Right-click Proposals' sheets tab and select View code. Paste the code in the big white field.

Best regards,
Trowa