VBA for Autofilter linked with combo box

**Baldev Kumar** · 09-16-2016, 08:46 AM

Hi

i have tried to link the two tables with a combo box. But vba is not working. Please help me.

Sub Macro8()

Sheets("BankBook").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(2, "h1")
Sheets("CashBook").Select
ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(2, "h1")
End Sub

**LeoTaxi** · 09-17-2016, 05:34 AM

In tables, columns with dates not format as date but custom made "dd/mm/yyyy"

Sub Filter_Date()
Dim dat As String
If Range("H1") = "All" Then
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1
    Sheets("CashBook").ListObjects("Table2").Range.AutoFilter Field:=1
    Else
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=Format(Range("H1"), "dd/mm/yyyy")
    Sheets("CashBook").ListObjects("Table2").Range.AutoFilter Field:=1, Criteria1:=Format(Range("H1"), "dd/mm/yyyy")
End If
End Sub

Kind regards
Leo