.copy に、Rangeではなく Cells を使えませんか?

ブック間で、変数によるコピー貼付けをしたいのです

Workbooks(MyFName).Worksheets("部品表").Cells(j * 17 - 11, 2).Copy_
Workbooks(MyFName2).Worksheets("PartsList").Cells(k * 39 - 37, 2)
と書いて見ましたが、デバックしてしまいました。

.Activate の場合も
cellsは使えませんか?

どうぞ教えてください

No.4 回答者： fujillin 回答日時： 2008/12/03 17:06

CellsもRangeオブジェクトのはずですので、ご質問の指定方法で問題ないはずです。

テストして見ましたが、実行できています。（Copyと‗の間はスペースありますよね？）

考えられるのは、ｊ、ｋの値が悪く（例えば負の値）てセルの指定ができない場合には、ご質問のように1004のエラーが出ます。
ウォッチ式などで、その行の各変数の値やオブジェクトの内容を確認してみてください。

結合がエラーの原因になる場合もありますが（範囲をはずれてしまうとか）、手作業でもコピー、ペーストできる状況であればエラーにはならないと思います。（セル指定が1セルになっているので）
（↑で値を確認できれば、これも確認できますね）

この回答へのお礼

変数の誤りでした
ありがとうございました

お礼日時：2008/12/03 17:52

No.3 ベストアンサー 回答者： chibita_papa 回答日時： 2008/12/03 16:54

ただ、RANGEで括るだけでは動きませんので

Dim ws As Worksheet
Dim ws2 As Worksheet

Set ws = Workbooks(MyFName).Worksheets("部品表")
Set ws2 = Workbooks(MyFName2).Worksheets("PartsList")

ws.Range(ws.Cells(j * 17 - 11, 2), ws.Cells(j * 17 - 11, 2)).Copy _
ws2.Range(ws2.Cells(k * 39 - 37, 2), ws2.Cells(k * 39 - 37, 2))

Set ws = Nothing
Set ws2 = Nothing

又は、
Workbooks(MyFName).Worksheets("部品表").Range("B" & j * 17 - 11).Copy _
Workbooks(MyFName2).Worksheets("PartsList").Range("B" & k * 39 - 37)
でも動きます。
こちらの方が余り変更がなくて済みます。

この回答への補足

Workbooks(MyFName).Worksheets("部品表").Range("B" & j * 17 - 11).Copy _
Workbooks(MyFName2).Worksheets("PartsList").Range("B" & k * 39 - 37)

をやってみましたが、やはりだめでした…。
変数のせいなのでしょうか。
変数を見直してみます

補足日時：2008/12/03 17:05

この回答へのお礼

変数を確認したところ、エラー箇所がわかりました

上記のやりかた、大変勉強になりました
ありがとうございました

お礼日時：2008/12/03 17:54

No.2 回答者： onlyrom 回答日時： 2008/12/03 16:51

＞貼付け元のセルが結合されていて、貼付け先は結合がないのですが

エラーメッセージから判断すると上記のことは原因外です。
但し、逆ならエラーになります。


で、考えられることは、変数ＫＪの値で、次の２つの場合。

（１）変数Ｋ、Ｊのどちらかが、０、又は両方とも　０　の場合

（２）Cells(j * 17 - 11,2)
　　　Cells(k * 39 - 37,2)
このＪ＊１７－１１、Ｋ＊３９－３７が
シートの最大行（例えばxl2000～2003では、６５５３６）を超える
ような、Ｋ，Ｊの値になってる場合。

このどちらかでしょう。
以上。

この回答へのお礼

ああ…、
（１）変数Ｋ、Ｊのどちらかが、０、又は両方とも　０　の場合
に当てはまります

お礼日時：2008/12/03 17:02

No.1 回答者： hana-hana3 回答日時： 2008/12/03 16:00

Range(Cells(j * 17 - 11, 2))

で囲んでもだめですか？

この回答への補足

実行時エラー'1004’アプリケーション定義またはオブジェクト定義のエラーがでました。

変数がおかしくても、このようなエラーになりますか?

また、貼付け元のセルが結合されていて、貼付け先は結合がないのですが、そのようなことも原因にありますか?ありませんよね…。

補足日時：2008/12/03 16:17