PasteSpecial fails

[Shahin Musayev]

Hi everyone!

I'm trying to write a macro to paste values. It works fine when I
copy
and paste within one workbook, but it pasts formula when I try to
paste values copied from workbook A (=BalancePL!D32) to workbook B
(='[A]BalancePL'!D32). I must admit that it does it only in case one
cell is copied, when I copy more than one cell everything works
fine...

I tried lots of variants (see examples of code below):

' First
Application.Selection.PasteSpecial Paste:=xlPasteValues

' Second
Application.ActiveWindow.RangeSelection.PasteSpecial
Paste:=xlPasteValues

' Third
Application.ActiveSheet.PasteSpecial "Text"

but result is the same. Any help is appreciated.


Thanx,
Shahin

 

[Jim Rech]

I couldn't duplicate the problem. This paste values a single cell between
workbooks with no problems.

Workbooks("Book1").Worksheets("Sheet1").Range("B2").Copy
Workbooks("Book2").Worksheets("Sheet1").Range("B2") _
.PasteSpecial xlPasteValues


--
Jim
| Hi everyone!
|
| I'm trying to write a macro to paste values. It works fine when I
| copy
| and paste within one workbook, but it pasts formula when I try to
| paste values copied from workbook A (=BalancePL!D32) to workbook B
| (='[A]BalancePL'!D32). I must admit that it does it only in case one
| cell is copied, when I copy more than one cell everything works
| fine...
|
| I tried lots of variants (see examples of code below):
|
| ' First
| Application.Selection.PasteSpecial Paste:=xlPasteValues
|
| ' Second
| Application.ActiveWindow.RangeSelection.PasteSpecial
| Paste:=xlPasteValues
|
| ' Third
| Application.ActiveSheet.PasteSpecial "Text"
|
| but result is the same. Any help is appreciated.
|
|
| Thanx,
| Shahin