Excel Formatting

[spinkung]

Hi All,

I'm doing some excel formatting from access. I'm trying to cut an entire row and paste it on another sheet.

i'm trying...

xlSht_invoice.Range("A" & rowRef).EntireRow.CUT
[COLOR="Red"]xlSht_service.Range("A" & iLast_service).PasteSpecial xlPasteValues[/COLOR]

...but i keep getting a: pastespecial method of range class failed

anyone???

Thanks,
Spin

 

[boblarson]

Perhaps

xlSht_service.Range("A" & iLast_service).EntireRow.PasteSpecial xlPasteValues

(untested)

 

[spinkung]

thanks, but unfortunately gives the same error

xlSht_service.Range("A" & iLast_service).EntireRow.PasteSpecial xlPasteValues

 

[spinkung]

SOLVED IT WITH.....

xlSht_invoice.Range("A" & rowRef).COPY
xlSht_service.Range("A" & iLast_service).PasteSpecial PASTE:=xlPasteValues

Thanks.

 

[boblarson]

What it appears is that it will work with

.Copy

but not with

.Cut

so you can copy it first (using the same code I gave but changing your original .Cut to .Copy) and then clear the cells from the first row. So this:

xlSht_invoice.Range("A" & rowRef).EntireRow.[COLOR="Red"]Copy[/COLOR]
xlSht_service.Range("A" & iLast_service)[COLOR="red"].EntireRow.[/COLOR]PasteSpecial xlPasteValues
[COLOR="red"]xlSht_invoice.Range("A" & rowRef).EntireRow.CLEAR[/COLOR]

 

[boblarson]

Guess I was too slow on the draw

 

[spinkung]

haha, thanks bob.

thats pretty strange/annoying that you can't use the cut option.

 

[boblarson]

Well, you can use the Paste option with the Cut but not the PasteSpecial option.