Autofilter table depending on the date value from different sheet MACRO VBA

[mark692]

Hi sir as the title say, i want to filter a table depending on the value form different sheet


i have 2 sheets

Sheet 1 is where the cell is located with a date (Example cell is B1)

on

Sheet 2 i have a table with a column "DATE", i want to filter the column DATE, depending on the given date on sheet 1 B1


im using this code but i think its not working

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:= range. B1

thanks in advance

 

[Fluff]

How about

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:=Sheets("Sheet1").Range("B1")

 

[mark692]

How about

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:=Sheets("Sheet1").Range("B1")

thank you sir for your reply but the column that filtered is not showing any result,

 

[mark692]

i see, if the format is date, its not working but if i change the format to a value, it works, its not working if the criteria is on date format,

 

[Fluff]

If you are filtering on dates try

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:=CDate(Sheets("Sheet1").Range("B1"))

or

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:=Clng(Sheets("Sheet1").Range("B1"))

 

[mark692]

If you are filtering on dates try

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:=CDate(Sheets("Sheet1").Range("B1"))

or

ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=1, Criteria1:=Clng(Sheets("Sheet1").Range("B1"))

hi sir it gives me error invalid procedure call or argument

 

[Fluff]

Which one?

 

[mark692]

Which one?

On both code sir,

 

[Fluff]

There is no reason why you would get that error on that line, if the code in post#2 did not give an error.

 

[mark692]

There is no reason why you would get that error on that line, if the code in post#2 did not give an error.

i get it now sir the error "invalid procedure call or argument" only appears when i use it on my laptop, but when im on my desktop computer, it works fine. thats weird