{VBA}Autofilterの設定について

質問

Autofilterでの抽出方法についてご教示ください。初めてVBAを使って顧客シートを作成しようとしているのですが、躓いてしまいました。お力をお貸しください。

以下のようなシートがあり、返却日の条件A1セル：”2011/6/20”以降としてフィルタリングをしようとしています。VBAでCriteria:=">"&Range("A1")としているのですが、フィルタリングされません。
どのように書き換えれば、宜しいかご教示ください。

2011/6/20

契約日 　　名前 金額　　 返却日
2011/6/1 　　AA ○○　 2011/7/1
2011/6/18　 BB ○○○ 2011/6/20

宜しくお願い申し上げます。

回答No.1

kybo

3列目をキーにしてフィルタするなら、こちらでは問題ありませんが、どうでしょうか。

Sub test()
Range("A3:C5").AutoFilter 3, ">" & Range("A1")
End Sub