VBAについて質問です。

質問

VBAについて質問です。
まとまったデータがあるところから検索したい月及び各項目のデータを検索し、項目シート事に抽出するという作業を行なっています。そこで問題がでました。6月にはデータはあるが、5月にはデータはない。
そうすると以下のコードの場合デバックが入り、他の検索が出来ません。
どうしたらよいのでしょうか？
分かる方がいらっしゃいましたらどうかお願い致します。

'シートの変更
Range("B30").Select
Sheets("東京").Select
'●Sheet2書込み行
Sheets("東京").Range("A5").CurrentRegion.Clear
Sheets("東京").Range("A5:F5").Value = _
Array("依頼書No.", "受付日日", "担当者", "枚数", "工数", "備考")
Row2 = 5
For R = 2 To Sheets("日報").Cells(Rows.Count, "A").End(xlUp).Row
If Sheets("東京").Range("A2") = Sheets("日報").Cells(R, "A") And _
Sheets("東京").Range("B2") = Month(Sheets("日報").Cells(R, "C")) Then
Row2 = Row2 + 1
Sheets("東京").Cells(Row2, "A") = Sheets("日報").Cells(R, "B")
Sheets("東京").Cells(Row2, "B") = Sheets("日報").Cells(R, "D")
Sheets("東京").Cells(Row2, "C") = Sheets("日報").Cells(R, "F")
Sheets("東京").Cells(Row2, "D") = Sheets("日報").Cells(R, "I")
Sheets("東京").Cells(Row2, "E") = Sheets("日報").Cells(R, "K")
Sheets("東京").Cells(Row2, "F") = Sheets("日報").Cells(R, "L")
End If
Next R
'●抽出結果を日付で並べ替え
If Row2 = 5 Then
MsgBox "該当データなし！"
Else
Sheets("東京").Range("A5:F" & Row2).Sort _
Key1:=Range("B6"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin
End If
Sheets("東京").Select
Range("B5:B200").Select
Selection.NumberFormatLocal = "yyyy/m/d"
　　　　Rows("5:5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

このあとに式を入れて、罫線を入れてコピーして、というコードが入っています。
どうぞ宜しくお願い致します。

回答No.1

moto_koukousei · ベストアンサー

状況をお教えください。

現状、条件検索と転記というだけならば、動くように思います。
　検査する値が対象になければ、［該当データなし！］とメッセージボックスに
　でるだけだと思います。

お礼

回答有難うございました。
編集ができなかったので違う形でもう一度質問させていただきました。
有難う御座います。