vba 転記について

Question

ある1枚のシートを同ブック内の別のシートに転記しようとしました。
その際書いたコードが下記になります。

Sub シート転記()
Dim i As Long
For i = 2 To 12
Worksheets(i).Range("B2:D17").Value = Worksheets("Sheet1").Range("B2:D17").Value
Next i
End Sub

この際インデックスが有効ではありませんと出ます。書き方的に間違っていますが「 = 」の左右を逆にするとSheet1には真っ白になっています。何故エラーが起こるのか知りたいので、御教授頂けると幸いです。宜しく御願い致します。

Comments

[DreamTheater]

シートは少なくとも１２シートありますか？

[somechan1]

2から12の11枚はあります。プラス元になるsheet1になってます。
宜しくお願い致します。

[DreamTheater]

こちらで試してみましたが、正常に転記できました。
以下について追記願います。
・Excelのバージョン
・Sheet1は最左端にあるか？
・VBAをステップ実行(F8)して、iがいくつの時にエラーが表示されるか？

[somechan1]

・Excelのバージョン　→　バージョン1808
・Sheet1は最左端にあるか？→一番左端です。

一度エクセルを落としたのち、再度やってみた結果出来ました。
いつもエラーが出た場合、vba起動の際の△の二つ右の□を押してから、再トライするようにしております。方法的に誤っているでしょうか。

細かく確認して頂き、ありがとうございます。

Answer 1

下記に変更したらどうなりますか。

Sub シート転記()
    Dim i As Long
    For i = 2 To Worksheets.Count
         Worksheets(i).Range("B2:D17").Value = Worksheets(1).Range("B2:D17").Value
    Next i
End Sub

Comments

[somechan1]

ご回答ありがとうございます。

エクセルを一度落としており、再トライしたとき、hatena19さん記載でも私の内容でも出来ました。いつもエラーが出た場合、vba起動の際の△の二つ右の□を押してから、再トライするようにしております。方法的に誤っているでしょうか。宜しく御願い致します。

[hatena19]

それで間違っていないと思います。
それでもうまくいかないときは、再起動するとかですね。

質問のコードではシートが12枚以上あるならエラーはでないはずなので、ちょっと原因はわからないですね。

[somechan1]

hatena19さん、いろいろと有難う御座いました。
一度再起動も含めて今後は実施していきたいと思います。