c = 10
e = 5
f = 7
Worksheets("dados").Cells(c,e).Copy
Worksheets("Plan").Cells(c+1,f+2).PasteSpecial paste:=xlValues, _
Operation:=xlPasteSpecialOperationAdd

--
Regards,
Tom Ogilvy


"joao" wrote in message
...

HI,

i am tring to copy data form one spreadsheet to another within the same
workbook. i need to use the paste special, adding the values. I wrote
the folowwing code and it goes trough ok. it copies the information but
it does not paste. and it does not show any problem.

anyone could help?

Thanks

Worksheets("dados").Cells(c, E).Select
Selection.Copy
x = c + 1
z = f + 2
Worksheets("Plan").Select
Cells(x, z).PasteSpecial Operation:=xlPasteSpecialOperationAdd


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/