CODEWITHSUNDEEP
vbaexcel
user1544327
user1544327

Reputation: 117

Greater than in Auto Filter Criteria in VBA

How do I use greater than in this code?

ActiveSheet.Range("$A$1:$BG$5158").AutoFilter Field:=13, Criteria1:= _ 
">"Range("BJ1").Value, Operator:=xlAnd

Here is the complete code

Sheets("New Hire").Select 
Range("CI1").Select 
Selection.Copy 

ChDir "D:\Sales Report" 
Workbooks.Open Filename:="D:\Sales Report\Global_New_Hire_Report.xlsb" 
Windows("Global_New_Hire_Report.xlsb").Activate 

Range("BJ1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
:=False, Transpose:=False 

Range("A1").Select 
Selection.AutoFilter 

Windows("Global_New_Hire_Report.xlsb").Activate 
ActiveSheet.Range("$A$1:$BG$5158").AutoFilter Field:=13, Criteria1:= _ 
">"Range("BJ1").Value, Operator:=xlAnd

Upvotes: 4

Views: 21648

Answers (1)

L42
L42

Reputation: 19737

Criteria1 argument expects String so you need to concatenate it like:

ActiveSheet.Range("$A$1:$BG$5158").AutoFilter Field:=13, _
    Criteria1:=">" & Range("BJ1").Value

Upvotes: 5

Related Questions