copy paste special values

[sreejeshc]

Please help me in the below code for paste special values.


Range(ActiveCell.Offset(0, -9), ActiveCell).Copy Sheets("c").Range("a65536").End(xlUp).Offset(1, 0)

 

[Debraj]

Hi sreejeshc,


Can you please try the below for me.

[pre]

Range(ActiveCell.Offset(0, -9), ActiveCell).Copy
Sheets("c").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial xlValues

[/pre]
Regards,

Deb

 

[sreejeshc]

Hi Debraj,


Its showing compile error


regards

Sreejesh

 

[sdsurzh]

Hi,


Try this


Selection.Offset(0, -9).Select

Selection.Copy

Sheets("c").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial xlValues


Thanks,

Suresh Kumar S

 

[sreejeshc]

Hi Suresh


I tried, but its not copying the cell contents


regards

Sreejesh

 

[NARAYANK991]

Hi Sreejesh ,


There is no problem with your code ; the problem is which is your Activecell ?


Since you are offsetting your activecell by -9 columns i.e. 9 columns to the left , if your activecell is such that there does not exist a column which is 9 columns to the left of the activecell , Excel will generate an error.


Your activecell has to be in column J or beyond ( K , L ,... ) for Excel not to generate an error.


Narayan

 

[sdsurzh]

Hi Sreejeshc,


Two Conditions are mandatory

1. Selection.Offset(0, -9).Select this function will copy the values from current location to minus of 9 Column (For example if the cursor is in "O1" Column then it will go to the "F1" column and copy the value)

2. Sheet name should be C (As you mentioned in the code)


Still it is not running please download the below file and check.


http://www.2shared.com/document/Zptj6EoU/c_online.html


Good Night.

Thanks,

Suresh Kumar S