compiling selected cells into second worksheet for quote

  • Thread starter Thread starter bloors
  • Start date Start date
B

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
 
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
 
Back
Top