Q&A
コメントありがとうございます。
無事解決いたしました！
前提・実現したいこと
マクロを作成しているブックのワークシートSheet1のC2C6の値を一覧.xlsxというファイルの1枚目のシートのB4B8に転記したいです。
以下のコードを実行すると、インデックスに有効範囲がありません とエラーが表示されます。
しかし、稀にエラーが起きずに転記できる時もあるのですが原因がわかりません。
発生している問題・エラーメッセージ
インデックスに有効範囲がありません
該当のソースコード
VBA
1Workbooks("一覧.xlsx").Sheets(1).Range("B4") _ 2= Worksheets("Sheet1").Range("C2") 3Workbooks("一覧.xlsx").Sheets(1).Range("B5") _ 4= Worksheets("Sheet1").Range("C3") 5Workbooks("一覧.xlsx").Sheets(1).Range("B6") _ 6= Worksheets("Sheet1").Range("C4") 7Workbooks("一覧.xlsx").Sheets(1).Range("B7") _ 8= Worksheets("Sheet1").Range("C5") 9Workbooks("一覧.xlsx").Sheets(1).Range("B8") _ 10= Worksheets("Sheet1").Range("C6")
回答2件
0
自己解決
マクロを実行しているブック Workbook("○○.xlsm")を入れたら実行できました。
Workbooks("一覧.xlsx").Sheets(1).Range("B4") _
= workbooks("○○.xlsm").Worksheets("Sheet1").Range("C2")
投稿2021/09/27 06:40
総合スコア13
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。