Insert Cell Value to VBA Formula

[Murphthaaggie21]

Sorry i'm sure this is simple, but I can't figure it out.

I have a macro that part of it filters down a pivot table to a value of lets just say $150.00

Looks a little something like this:

ActiveSheet.Range("$A$5:$D$75000").AutoFilter Field:=4, Criteria1:=">150", _
Operator:=xlAnd

However i would like to make that value be adjustable to be what I currently have in Cell lets say D7 on Sheet 1 a different sheet.

How do i do this?

 

[Trebor76]

Hi Murphthaaggie21,

Welcome to MrExcel!!

See if this is what you need:

ActiveSheet.Range("$A$5:$D$75000").AutoFilter Field:=4, Criteria1:=">" & Sheets("Sheet1").Range("D7"), Operator:=xlAnd

Regards,

Robert

 

[deletedalien]

Sorry i'm sure this is simple, but I can't figure it out.

I have a macro that part of it filters down a pivot table to a value of lets just say $150.00

Looks a little something like this:

ActiveSheet.Range("$A$5:$D$75000").AutoFilter Field:=4, Criteria1:=">150", _
Operator:=xlAnd

However i would like to make that value be adjustable to be what I currently have in Cell lets say D7 on Sheet 1 a different sheet.

How do i do this?

Hi there


Try

ActiveSheet.Range("$A$5:$D$75000").AutoFilter Field:=4, Criteria1:=">" & Range("D7").Value, _
Operator:=xlAnd