compiling selected cells into second worksheet for quote

[bloors]

Dear all,

I would appreciate any help...

I am working with a master price list of products (ColumnA) and uni
prices (ColumnB) in a worksheet from which I would like to selec
products with prices and compile into a customer specific quote in
second worksheet...ideally I'd like to place a marker "X" in Column
cells adjacent to the items I want adding to the quote, thus allowin
me to review the selected items and then send all "selected" item
(those with Xs adjacent to them) over into a second worksheet thereb
compiling a quote...

Worksheet1 - Product List

ColumnA ColumnB Column C

Portable PC1 £650 X
Portable PC2 £750
Printer £ 60 X
MS Office (Ed) £100 X


Worksheet2 - Customer Quote

Column A Column B

Portable PC1 £650
Printer £ 60
MS Office (Ed) £100

Total £810


...I assume I need to use the IF function possibly in conjunction wit
an array ..but otherwise I'm pretty clueless

...a more ambitious wish is to send the selected products/prices ove
into a Word table but I'm guessing I'd need some VBA code for this...

Any suggestions very gratefully received!

Regards

Simon Bloo

 

[Don Guillett]

You can look at this to modify to suit

Sub PrintOptions()
On Error Resume Next
For Each c In [PrintOptionsRange]
If UCase(c.Offset(0, 1)) = "X" Then
If Range("Preview") Then
Sheets(c.Value).PrintPreview
Else
Sheets(c.Value).PrintOut
End If
End If
Next c
end sub