オートフィルタ マクロについて
質問です。
オートフィルタで複数列を1つの条件で抽出したいのですが、教えてください。
たとえばA列が納品書No.・B列が受注No.・C列が商品No.なのですがすべて数字の為、出来ればInBox一回でA-C列を検索してほしいです。
指定納品書NO 受注NO 元品番
21812 3252608 77
21880 3307989 32B
22053 3389769 95414A
22050 3389770 67312H
22052 3389771 67312H
22050 3389773 67118H
以下の様なマクロを作ってみましたが、
A-C列全てに一致しないと抽出しないようです。
どなたかご教授いただけないでしょうか？
マクロ
'条件1 の設定
Dim 検索NO As Variant
'抽出キーの入力指示
検索NO = InputBox("検索NOを入力てください。")
'キャンセルした場合の処理
If 検索NO = Empty Then
Exit Sub
End If
'オートフィルタがかかっていなかったらかける
'かかっていたら念の為一度解除し再設定
If ActiveSheet.AutoFilterMode = False Then
Range("A2:O2").Select
Selection.AutoFilter
Else
Selection.AutoFilter
Range("A2:O2").Select
Selection.AutoFilter
End If
Selection.AutoFilter Field:=1, _
Criteria1:=">=" & 検索NO, Operator:=xlAnd, Criteria2:=" " & 検索NO
Selection.AutoFilter Field:=2, _
Criteria1:=">=" & 検索NO2, Operator:=xlAnd, Criteria2:=" " & 検索NO2
Selection.AutoFilter Field:=3, _
Criteria1:=">=" & 検索NO3, Operator:=xlAnd, Criteria2:=" " & 検索NO3
AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
よろしくお願いいたします。
