|
★ClearContentsする範囲を修正して再投稿
条件付き書式を予め設定しておけばよいと思います。
同様に、式も毎回マクロで設定しなくても良いです。
予め入力しておけば、終行を使わないで、コードも簡潔になります。
ところで抽出条件を入力するセルは"GG1:GI2"ではないのですか?
Sub 抽出当月()
If WorksheetFunction.CountBlank(Range("GG1:GI2")) > 0 Then
MsgBox "抽出期間を設定して下さい"
Exit Sub
End If
Application.ScreenUpdating = False
Range("B7:H31").ClearContents '★
Range("T6:Z400").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("GG1:GI2"), _
Unique:=True
Range("T6:Z400").Copy
Range("B6").PasteSpecial Paste:=xlPasteValues
ActiveSheet.ShowAllData
If Range("B7") = "" Then
Range("B2").Select
MsgBox "何も抽出されませんでした"
Exit Sub
End If
Range("B6:H31").Sort _
Key1:=Range("B6"), _
Order1:=xlAscending, _
Header:=xlYes
Range("R4").Select
Application.ScreenUpdating = True
End Sub
|
|