|
こんにちは。
以前はお世話になりました<(_ _)>
また、データ抽出に関してなのですが、テキストボックスを作り、
テキストボックス1・2に入れられた日付と保守と言う言葉が含まれる行を
抽出するのに以下のようなコードを書きました。(テキストボックスの部分は
以前、こちらで教えて頂いたものを参考にしています。)
ですが、テキストボックスに入力した日付以外のデータも抽出されてきます。
どこに不具合があるか分からないのでご指摘くだされば、幸いです。
よろしくお願い致します。(因みにコードはまだ書きかけです。)
With Worksheets("管理表マスター")
If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
Da1 = Format(Me.TextBox1.Value, .Range("BF6").NumberFormat)
Da2 = Format(Me.TextBox2.Value, .Range("BG6").NumberFormat)
If AutoFilterMode = False Then
With WB.Worksheets("管理表マスター").Range("M4:BG" & r1)
.AutoFilter field:=47, Criteria1:=">=" & Da1, Operator:=xlAnd, _
Criteria2:="<=" & Da2
.AutoFilter field:=1, Criteria1:="=保守*"
End With
End If
End If
End With
End If
End Sub
|
|