[[20180617101604]]　『インデックスが有効範囲にありませんのエラーが出』（初心者）　ページの最後に飛ぶ

『インデックスが有効範囲にありませんのエラーが出てしまいます。』（初心者）

いつもお世話になっております。

オプションボタンを押すと処理が行えるようにしたいのですが矢印の箇所でエラーが出てしまいます。
シート名の間違いではないのですがわかる方いましたらお願いいたします。

Private Sub CommandButton4_Click()

    Dim sh1 As Worksheet
    Set sh1 = Worksheets("リスト")　　　　　<<<<ここ

    i = 0
    Do While sh1.Cells(2 + i, 1) <> ""

    With Workbooks("見積.xlsx").Worksheets("書式")

    .Cells(5 + i, 4) = Worksheets("リスト").Cells(2 + i, 1)

    End With
    Loop

End Sub

＜使用 Excel：Excel2013、使用 OS：unknown ＞

 1) Worksheets("リスト")が見つからない　ということです。
    シート名を確認して余計なスペース等が無いかチェックしてください。

 2) 無限ループ

    i = 0
    Do While sh1.Cells(2 + i, 1) <> ""
    With Workbooks("見積.xlsx").Worksheets("書式")
    .Cells(5 + i, 4) = Worksheets("リスト").Cells(2 + i, 1)
    End With
    'i = i = 1  '<--これが無いと無限ループ
    i = i + 1  '<--これが無いと無限ループ
    Loop

（seiya） 2018/06/17(日) 10:35

 おっと...修正 syさんありがとう。

 もうseiyaさんから回答付いてたので、補足だけ

 1)に関しては、半角全角も間違えやすい要素です。
   シート名にしてる時は見分けがつきにくいので。

 2)は i=i=1 は i=i+1 で

（sy） 2018/06/17(日) 10:51

コメント返信：

[ 一覧(最新更新順) ]

[[20180617101604]] 『インデックスが有効範囲にありませんのエラーが出』（初心者） ページの最後に飛ぶ

[[20180617101604]]　『インデックスが有効範囲にありませんのエラーが出』（初心者）　ページの最後に飛ぶ