Moving Information from 1 set to another based on an IF

Closed
JDI12 Posts 1 Registration date Wednesday February 12, 2014 Status Member Last seen February 12, 2014 - Feb 12, 2014 at 12:39 PM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 17, 2014 at 11:03 AM
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.
Related:

1 response

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
Feb 17, 2014 at 11:03 AM
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
0