VBA - Paste Special

[Domroy]

I have a macro, and at the end of it, I'd like to copy my selection and paste the data right where it is, but paste values only.

I have this code:

Range("J4:Y4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Range("J4").PasteSpecial Paste:=x1PasteValues, Operation:=x1None, SkipBlanks:=False, Transpose:=False

But it's giving me an error on the last line (which is why I have it deactivated at the moment.

Help?

Thanks!

 

[sericom]

This one line should do it

Range("J4:Y4", Range("J4:Y4").End(xlDown)).Value = Range("J4:Y4", Range("J4:Y4").End(xlDown)).Value

 

[Domroy]

In place of the four lines I have there, correct?

 

[Domroy]

Yes, thank you! That worked!

 

[Fluff]

For reference, the reason that you code failed is the 2 highlighted portions are wrong

Range("J4").PasteSpecial Paste:=[COLOR=#ff0000]x1[/COLOR]PasteValues, Operation:=[COLOR=#ff0000]x1[/COLOR]None, SkipBlanks:=False, Transpose:=False

They should be xl (lowercase L) not x1 (number one)

 

[Domroy]

OMG YES! Darn. Thank you! I realized that one other time and then forgot. Thank you!!

 

[Fluff]

You're welcome