Please help me guys : )

[yeongkwe]

Hi, someone can kindly help me to solve this issue. I use the VBA code to filter the dates. I did some changes on the code, can anyone tell me did I do anything wrong? Because after I modify it, the search got no result coming out. Please kindly soul help me, and your help will be very much appreciated. Thanks you.

Sub Macro1()

abcd = Worksheets("sheet1").Cells(1, 101)
Range("A38:E38").Select
Selection.AutoFilter
ActiveSheet.Range("$A$38:$E$97375").AutoFilter Field:=5, Criteria1:= _
"<abcd", Operator:=xlAnd
End Sub


Below is original code before I modify.

Sub Macro1()
'
' Macro1 Macro
' w
'
' Keyboard Shortcut: Ctrl+w
'

Range("A38:E38").Select
Selection.AutoFilter
ActiveSheet.Range("$A$38:$E$97375").AutoFilter Field:=5, Criteria1:= _
"<15/08/2016", Operator:=xlAnd
End Sub

 

[MARK858]

First of all below is the posters original code which didn't post correctly because of the < symbol being treated as Html code.

Sub Macro1()

abcd = Worksheets("sheet1").Cells(1, 101)
    Range("A38:E38").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$38:$E$97375").AutoFilter Field:=5, Criteria1:= _
        "<abcd", Operator:=xlAnd
End Sub

@ yeongkwe, Try...

Sub Macro1()
Dim abcd As Long
abcd = CLng(Worksheets("sheet1").Cells(1, 101))
   Range("A38:E38").AutoFilter
   Range("$A$38:$E$97375").AutoFilter Field:=5, Criteria1:= _
        "<" & abcd, Operator:=xlAnd
End Sub