Past only values

[jasmith]

I have a code that I am trying to finalize.

If Diff <= 0 Then
Selection.EntireRow.Copy




Sheets("sheet26").Select

ActiveCell.Next(2, 0).Select



ActiveSheet.PasteSpecial

End If

In the last column there are calculated values, using a formula. ranging from 1 thru 270. The goal is just to copy the values, and not the calculated values using a formula.

I just want to paste the values and not the calulated values

 

[venkat1926]

try this

activesheet.PasteSpecial xlPasteValues

 

[jasmith]

paste values, not formulas

I changed the code from pastespecial to pastespecial xlpastevalues

and got the following error: RunTime error "1004" worksheet class failed

any suggestions?

 

[venkat1926]

will you please post the particular code statement and one ortwo above and below. regards

 

[Banker1]

Instead of ActiveSheet try Activecell. Something like this should work:

<font face=Courier New>Activecell.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, _
    Transpose:=False</FONT>

 

[jasmith]

past only values

Thanks,

I tried that and it works thanks!!!!!!!!!!!!