VBA コード番号がない場合は、次の行へ進む

質問

ＯＳはＸＰPro、
Excelは2003を使用しています。

入金データの「支店データ」シートのコード番号がマスタの表にある時、新シート（test）にコピーするマクロを作ろうと悪戦苦闘しています。

下記までは組んだのですが、「インデックスが有効範囲にありません」とエラーになってしまいます。
マスタにないコードだからだと思っているのですが、そういう場合は次の行のコード番号に進めるステートメントをどう組めば良いか分かりません。
どなたかご教示頂けると有り難いです。
よろしくお願い致します。

Sub test()

Dim wb As Workbook
Dim ws As Worksheet
Dim mypath As String
Dim fname As String

Dim maxgyo As Long 'マスタの最終行
Dim intRow As Long 'マスタの行
Dim strMasCode As Long 　 'マスタのコード番号

Dim maxgyo2 As Long '入金データの最終行
Dim intRow2 As Long '入金データの行
Dim strSrhCode As Long '入金データのコード番号

Dim shingyo As Long '新シートの書き込み行

Worksheets.Add After:=ActiveSheet, Count:=1 '新しいワークシートを作成
ActiveSheet.Name = "test" 　　　　　　　　　　 'そのシートの名前は［test］

mypath = "C:\Documents and Settings\XXX\My Documents\XXX\"
fname = "マスタ.xls"

Set wb = Workbooks.Open(mypath & fname) '上記で指定したブックを開く
Set ws = wb.Worksheets("担当マスタ") 　 　 '［担当マスタ］シートを指定

Workbooks("入金データ").Activate
maxgyo = Sheets("支店データ").Cells(Rows.Count, 1).End(xlUp).Row '支店データの最終行

For intRow = 2 To maxgyo
strSrhCode = Worksheets("支店データ").Cells(intRow, 6)
shingyo = 1
shingyo = singyo + 1

Workbooks("マスタ").Activate
maxgyo2 = Sheets("マスタ").Cells(Rows.Count, 2).End(xlUp).Row 'マスタの最終行
For intRow2 = 2 To maxgyo2
strMasCode = Sheets("マスタ").Cells(intRow2, 2) 'マスタのコード番号を代入
If strSrhCode = strMasCode Then 'マスタと支店データのコード番号が一致したら
With Workbooks("入金データ").Worksheets("test")
.Cells(shingyo, 1) = Worksheets("支店データ").Cells(intRow, 1)
.Cells(shingyo, 2) = Worksheets("支店データ").Cells(intRow, 2)
End With
End If
Next intRow2
Next intRow
End Sub

回答No.2

keithin · ベストアンサー

＞「インデックスが有効範囲にありません」とエラーになってしまいます。

といった判りやすいエラーで実行が止まるときは，そのダイアログに付いているデバッグのボタンをクリックすると具体的にエラーが出ている行が色つきで表示されるので，その行を直します。

たとえば

Workbooks("入金データ").Activate

という一行がデバッグで指摘されていたなら，「入金データ」と書いたインデックスが間違っているんだな，とあたりをつけて

Workbooks("入金データ.xls").Activate

のように修正したりします。

次に実行するとまた他にも次々直すべき箇所が上がってくるので，どんどん直します。
エラーダイアログのデバッグから指摘が出た行で，どうしてもどうしてもその行のどこに間違いがあるのか自分では追えない場合は，該当箇所をきちんと明記の上で改めてご相談を投稿してみてください。

お礼

keithin様

ご回答ありがとうございます。
エラーの意味を全く理解していなくて大変恥ずかしいです。
ご指摘通り名前や入れる文字を間違っていました。
Workbookの名前から入れたりしたら、新シートにコピーされる様になりました。

ですが、新シートに１行目にしかデータが入らないので、
shingyo = singyo + 1
を入れる位置がおかしいんですよね？

補足

色々と間違い過ぎているので、一旦終了致します。

大変申し訳ありません。

ご回答頂き感謝親します。

回答No.1

noname#157410

インデクスが有効範囲にというのは、基本参照するのに、無いものを参照しようとしているからです。
何か名前が間違っていませんか？

F8でステップデバックして止まったところの名前確認するのが一番早いです。

お礼

muril123様

ご回答ありがとうございます。
エラーの意味を全く分かっていなかったのですね。
大変恥ずかしいです。

名前や入れる文字を色々間違っていました。