オートフィルタのマクロについて

質問

オートフィルタのマクロを組もうとしているのですが、フィルタ条件に別シートのセルの値を入れたいのですが、そこがどうもうまくいきません。
作成したマクロは以下の通りです。

Sub 累計計算マクロ()

Dim aRange As Range, bRange As Range, i As Date

Set aRange = Sheets("累計").Range("B1")
Set bRange = Sheets("累計").Range("B2")
i = aRange.Value

Sheets("クイーンエステート").Activate
Range("A13:L13").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="<=i", Operator:=xlAnd

End Sub

どなたか助けてください！
宜しくお願い致します。

回答No.1

xls88 · ベストアンサー

"の使い方が間違っています。
"で前後を挟んでいるので、変数iが、iという文字になります。
Criteria1:="<=i"

変数iは、"の外に記述しなければなりません。
Criteria1:="<=" & i

お礼

ありがとうございました。
助かりました。

回答No.2

xls88

閉じられないのは、未だ何か問題があるのでしょうか。
それならば、遠慮なく捕捉質問をしてください。

私なりに、提示されたコードを下記のように纏めてみました。
Activate、Select、Selectionを止めています。

Dim kword As Date

kword = Sheets("Sheet3").Range("A1").Value
Sheets("クイーンエステート").Range("A13:L13").AutoFilter Field:=6, Criteria1:="<=" & kword, Operator:=xlAnd

お礼

最初に頂いた回答で解決しておりました。
すみませんでした。
質問を締め切ることを知らなかったもので。
本当に助かりました。ありがとうございました。