wwfc_barmy_army
New Member
- Joined
- Jan 30, 2005
- Messages
- 13
--
Sub Test()
'Quote Number
Sheets("Saved Quote Details").Range("A65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E16").Value
'Customer Number
Sheets("Saved Quote Details").Range("B65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E13").Value
'Date
Sheets("Saved Quote Details").Range("C65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G10").Value
'CPU
Sheets("Saved Quote Details").Range("D65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E25").Value
'CPU Price
Sheets("Saved Quote Details").Range("E65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G25").Value
'Motherboard
Sheets("Saved Quote Details").Range("F65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E26").Value
'Motherboard Price
Sheets("Saved Quote Details").Range("G65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G26").Value
'RAM
Sheets("Saved Quote Details").Range("H65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E27").Value
'RAM Price
Sheets("Saved Quote Details").Range("I65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G27").Value
'Case
Sheets("Saved Quote Details").Range("J65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E28").Value
'Case Price
Sheets("Saved Quote Details").Range("K65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G28").Value
'Graphics Card
Sheets("Saved Quote Details").Range("L65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E29").Value
'Graphics Card Price
Sheets("Saved Quote Details").Range("M65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G29").Value
'Hard Drive
Sheets("Saved Quote Details").Range("N65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E30").Value
'Hard Drive Price
Sheets("Saved Quote Details").Range("O65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G30").Value
'CD/CD-RW/DVD/DVDRW
Sheets("Saved Quote Details").Range("P65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E31").Value
'CD/CD-RW/DVD/DVDRW Price
Sheets("Saved Quote Details").Range("Q65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G31").Value
'CD/CD-RW/DVD/DVDRW1
Sheets("Saved Quote Details").Range("R65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E32").Value
'CD/CD-RW/DVD/DVDRW1 Price
Sheets("Saved Quote Details").Range("S65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G32").Value
'Monitor
Sheets("Saved Quote Details").Range("T65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E33").Value
'Monitor Price
Sheets("Saved Quote Details").Range("U65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G33").Value
'Keyboard and Mouse
Sheets("Saved Quote Details").Range("V65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E34").Value
'Keyboard and Mouse Price
Sheets("Saved Quote Details").Range("W65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G34").Value
'Operating System
Sheets("Saved Quote Details").Range("X65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E35").Value
'Operating System Price
Sheets("Saved Quote Details").Range("Y65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G35").Value
'Speakers
Sheets("Saved Quote Details").Range("Z65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E36").Value
'Speakers Price
Sheets("Saved Quote Details").Range("AA65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G36").Value
'Extra
Sheets("Saved Quote Details").Range("AB65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("E37").Value
'Extra Price
Sheets("Saved Quote Details").Range("AC65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G37").Value
'Sub Total
Sheets("Saved Quote Details").Range("AD65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G39").Value
'VAT
Sheets("Saved Quote Details").Range("AE65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G41").Value
'Delivery
Sheets("Saved Quote Details").Range("AF65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("T4").Value
'Discount
Sheets("Saved Quote Details").Range("AG65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G47").Value
'Quantity
Sheets("Saved Quote Details").Range("AH65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G49").Value
'Grand Total
Sheets("Saved Quote Details").Range("AI65536").End(xlUp)(2, 1).Value = _
Sheets("Quote").Range("G51").Value
End Sub
Sheets("Saved Quote Details").Select