|
お世話になります。
ようやく、元表へのコードの設定ができました。
いろいろとお世話になりありがとうございました。
Statis さんに頂いた1番目と2番目のコードを組み合わせ、
下記のコードにしました。
ちゃんと、抽出はされますが、なぜか元表にはない日付を入れても
“抽出データはありません”のメッセージボックスが出てきません。
Else
MsgBox "抽出データがありません。", vbInformation
このコードの設定場所がおかしいのでしょうか?
ご教授頂ければ幸いです。
Private Sub CommandButton1_Click()
Dim Da As Date, Da1 As Date
With Worksheets("元表")
If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
Da = Format(Me.TextBox1.Value, .Range("Q6").NumberFormat)
Da1 = Format(Me.TextBox2.Value, .Range("Q6").NumberFormat)
Worksheets("一覧表").Range("A6:AP65536").Clear
If .AutoFilterMode = False Then
.Rows(5).AutoFilter
End If
.Columns(6).AutoFilter Field:=17, Criteria1:=">=" & Da, Operator:=xlAnd, _
Criteria2:="<=" & Da1
If .Range("Q65536").End(xlUp).Row > 1 Then
.AutoFilter.Range.Copy Worksheets("一覧表").Range("A5")
Else
MsgBox "抽出データがありません。", vbInformation
End If
.AutoFilterMode = False
Else
MsgBox "抽出日を確認", vbCritical
End If
End With
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
よろしくお願い致します。
|
|