エクセルＶＢＡで指定先のセルの値でデータ抽出

質問

エクセルＶＢＡで作った売上帳シートのF2セルに顧客名を入力するようにしています。
その入力した顧客名のみの内容をオートフィルで抽出させるようにしたいのですが、うまくいきません。

Sub 顧客抽出()
Range("B4").AutoFilter Field:=2, Criteria1:="山田太郎"
End Sub

でマクロを実行させるとできるのですが、『山田太郎』の部分は、F2セルに入力した顧客名で実行させたいのです。

どのようにすればできるのでしょうか？

回答No.1

onlyrom · ベストアンサー

Sub 顧客抽出()
　Range("B4").AutoFilter Field:=2, Criteria1:=Range("F2").Value
End Sub

でいいでしょう。

お礼

ありがとうございました。
できました。

一度試したときにはできなかったので、おかしいと思っていたのですが、たぶん私の入力ミスだったのでしょうね。

助かりました。