VBA 別シートに転記

Question

VBA初心者です。

シートに記載された内容を別シートにバックアップとして転記したいです。

★の部分で「実行時エラー　1004　アプリケーション定義またはオブジェクト定義のエラー」となってしまいます。
どのように改善したら良いのでしょうか？
また、その他コードの書き方で直すべき点がありましたらご教授いただきたいです。

Sub 印刷とバックアップ()

Dim ws1, ws2 As Worksheet
Dim endrow As Long

Set ws1 = Sheets("申請様式")
If ws1.Cells(17, 2) = "" Then
MsgBox "リストにデータが入力されていません。内容をご確認ください。"
Exit Sub
End If

Set ws2 = Sheets("バックアップ")
endrow = ws2.Cells(Rows.Count, 1).End(xlUp).Row

★ ws2.Range(Cells(endrow + 1, 1), Cells(endrow + 5, 7)).Value = ws1.Range(Cells(18, 2), Cells(22, 8)).Value

これ以降はセルの色付けと印刷のコードを書いていますが、そちらにエラーはなかったので省略します。

Answer 1

ws2.Range(Cells(endrow + 1, 1), Cells(endrow + 5, 7)).Value = ws1.Range(Cells(18, 2), Cells(22, 8)).Value

↓

ws2.Range(ws2.Cells(endrow + 1, 1), ws2.Cells(endrow + 5, 7)).Value = ws1.Range(ws1.Cells(18, 2), ws1.Cells(22, 8)).Value

ひとまずエラー回避は上記で。
Cellsもシートごとに存在するので、アクティブシート以外の操作をするなら、シートを指定しましょう。

※ teratailで質問するとき、ソースはコードブロックを使っていただけると、見やすくて回答もつきやすいと思います。

Comments

[zaki061]

丁寧に解説いただきありがとうございます。
無事エラー解消できました。
質問方法についてもアドバイスいただき幸甚です。

[crowmt]

無事に解消できたようで何よりです。