MrExcel Publishing
Your One Stop for Excel Tips & Solutions

it will copy range but will not multiply


Posted by Jim on November 04, 2000 11:21 AM

I have a value in cell A1 that i would like to on
commandbutton1_click multiply by 1.2 before it copies
to cell A10. It copies but will not multiply
i.e.
Private Sub CommandButton1_Click()
Range("A1").Copy Range("A10")

I've tried various ways but not smart enough to figure
out. Any help would be appreciated
Jim


Posted by Celia on November 04, 2000 2:27 PM


Jim
If you want the increased value in both A1 and A10 :-

Range("A1").Value = Range("A1") * 1.2
Range("A1").Copy Range("A10")

If you want the increased value in A10 only :-

Range("A1").Copy Range("A10")
Range("A10").Value = Range("A10") * 1.2

Celia


Posted by Jim on November 04, 2000 3:27 PM

Ok that works great, is it possible to add A1+A2+A3
and have it multiply by 1.2 in A10
Thanks Celia Jim

Posted by Celia on November 04, 2000 4:35 PM


Jim

Range("A10").Value = Application.Sum(Range("A1:A3")) * 1.2

Celia


Posted by Jim on November 04, 2000 5:10 PM


Thank you Celia