|
昨日はありがとうございました。
オートフィルタの複数条件で抽出するコードを作りました。
抽出データがないときにメッセージボックスで"抽出データはありません"
と表示したいのですが、下のコードではメッセージボックスが出てきませんでした。
どこに入れればメッセージボックスは出てきますか?
ご教授下さい。
If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
Da1 = Format(Me.TextBox1.Value, .Range("BG6").NumberFormat)
Da2 = Format(Me.TextBox2.Value, .Range("BG6").NumberFormat)
If AutoFilterMode = False Then
With .Range("M3:BG" & r2)
.AutoFilter field:=47, Criteria1:=">=" & Da1, Operator:=xlAnd, _
Criteria2:="<=" & Da2
End With
With .Range("M3:BG" & r2)
.AutoFilter field:=1, Criteria1:="=保守*"
End With
.Range("B4:K" & r2).Copy
With ThisWorkbook.Worksheets("保守期限一覧表").Range("B5")
.PasteSpecial xlValues
End With
.Range("M4:W" & r2).Copy
With ThisWorkbook.Worksheets("保守期限一覧表").Range("L5")
.PasteSpecial xlValues
End With
.Range("AZ4:BU" & r2).Copy
With ThisWorkbook.Worksheets("保守期限一覧表").Range("W5")
.PasteSpecial xlValues
End With
End If
Else
MsgBox "抽出データはありません"
End If
|
|