オートフィルタの指定の値以上抽出マクロについて

質問

VBA初心者です。
よろしくお願いします。

オートフィルタの指定の値以上を抽出するマクロを作りたいのですが、
うまくいきません。
内容は、Sheet1のB6にSheet2のA2の値を代入し
A列のA2の値以上の抽出をしたいのですが、Seet1のB2の5000は抽出されるのに
どうしてもB6に代入した5000の値が抽出されません。

自分なりにマクロ記録を少しいじってつくったのですが。。。

Sub aa()
'
Dim a As Integer
a = Sheets("Sheets2").Range("A2").Value

Range("B6").Select
ActiveCell.FormulaR1C1 = a
ActiveSheet.Range("$A$5:$FX$307").AutoFilter Field:=4, Criteria1:=">" & a _

End Sub

B6の5000の値は他の数値とは異なる扱いになっているようです。

Sheet1
.......A......... B..........C............D
1 数値｜数値２｜数値3｜数値4
2 5000...1000
3 2000.. 2000
4 3000...3000
5 4000...4000
6 5000..←-----（抽出されない）

Sheet2
.......A
1　 値　
2 5000
3 0

素人のため、説明もうまくできませんが、わかる方どうぞご指導願います。
使用しているのはEXCEL2007です。

回答No.2

mar00 · ベストアンサー

>Seet1のB2の5000は抽出されるのに
ActiveSheet.Range("$A$5:$FX$307").AutoFilter としているので
B2は抽出の対象外になっていると思います。
ActiveSheet.Range("A2").AutoFilterにすれば良いのではないかと思います。

>B6に代入した5000の値が抽出されません。
Criteria1:=">" & aはaより大きい値を抽出するからです。
Criteria1:=">=" & aにしてみて下さい。

お礼

ありがとうございます。
Criteria1:=">="　変更後無事処理できました。
やはり色々と奥が深いですね。
わからないことばかりです（笑）
ありがとうございました。

回答No.1

KURUMITO

マクロの記録で通常の操作でオートフィルタを行って試験されてはどうでしょう。マクロが記録されますのでそれをご自分が作成したマクロと比較してみることでしょう。

お礼

ありがとうございました。
マクロ記録と比べてはみているのですが・・・