If cell equals "NEW" copy adjacent cells to new worksheet.

[rghenderson]

Hi,
I'm sure this is a common problem but I cant find a simple solution. It may be that I need to use macros. I havent used macros before so please keep that in mind. I would appreciate any help you can give.

Column D is either "NEW" or blank.
If D is "NEW" I want to copy cells A,B,C from that row to a new worksheet.

This occurs in two worksheet and Ideally "NEW" items from both sheets would be combined in the new worksheet. eg running this process in one sheet after the other would not write over entries but rather add them bellow the previous entries.

Thanks in advance!
Rob

 

[ponnars]

Hi,

Hope this could help

Sub Check1()
Range("A2").Select
NumRows = Range(Selection, Selection.End(xlDown)).Rows.Count
Range("D2").Select
For x = 1 To NumRows
ActiveCell.Select
If Selection.Text = "new" Then
Selection.Offset(0, -1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Windows("Book2.xls").Activate
Range("A65536").End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
ActiveCell.Select
Selection.Offset(1, 3).Select
Else
ActiveCell.Select
Selection.Offset(1, 0).Select
End If
Next

End Sub

This code is pretty RAW.
Could have some refining.