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
このあとに式を入れて、罫線を入れてコピーして、というコードが入っています。
どうぞ宜しくお願い致します。
お礼
ありがとうございます！ 無事に作りたいシートができました！！