Consolidating list into new worksheet

[Dougie C]

I have a workbook comprising several worksheets of medical supplies for different parts of the body. To simplify the ordering of these supplies I currently cut and paste the product number from each choice into a separate worksheet. I then print it out to order the items.

I am trying to research a way of perhaps 'ticking off' the items, possibly in a separate column and then combining the worksheets and producing a consolidated list of items ticked. Or should I combine all the worksheets into one big sheet and use the filter function to screen by the ticks.

Each product has a name, product number and body part to which it is fitted so each worksheet is formatted the same i.e. 3 columns.

I would be grateful for the thoughts of the readers / experts.

Many thanks

 

[MickG]

Hi, Something like this might work.
When you select an Item in column "A the entire row is copied to sheet (2). Each time you select a row it's added to the list.

Private [COLOR=navy]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target [COLOR=navy]As[/COLOR] Range)
[COLOR=navy]Dim[/COLOR] Last [COLOR=navy]As[/COLOR] [COLOR=navy]Integer[/COLOR]
Application.EnableEvents = False
    [COLOR=navy]If[/COLOR] Not Intersect(Target, Columns("A:A")) [COLOR=navy]Is[/COLOR] Nothing [COLOR=navy]Then[/COLOR]
        [COLOR=navy]With[/COLOR] Sheets("sheet2")
            Target.EntireRow.Copy .Range("A" & .Range("A" & .rows.count).End(xlUp).Offset(1).row)
        [COLOR=navy]End[/COLOR] With
    [COLOR=navy]End[/COLOR] If
Application.EnableEvents = True
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick