Drop Down Items Filter Data. Only First Item works

[ss6857]

Hello,

I have Data that is pulled from an outside database. I have the data filtered by group number and date. half the data is copied onto on worksheet, the other half on another worksheet. Each work sheet specifies a date for their respective data. It works perfectly for the first date option. However, if I try any of the other 2 dates, it does not filter. (actually it takes away all of the data). Here is my code:

ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=15, Criteria1:="1"
    ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=14, Criteria1:="=*" & Sheets("JoAnn").Range("JoAnnDate").Value & "*"

Here is my code for the other worksheet:

ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=15, Criteria1:="2"
    ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=14, Criteria1:="=*" & Sheets("JoAnn").Range("AmyDate").Value & "*"

Any help would be great.
Thank you!

 

[ss6857]

I have an error in my code. The criteria for field 14 is from Sheets("Control").

 

[ss6857]

and it still doesn't work. sorry i shouldve specified that i didn't figure it out, it was just an error when putting it on this question.

 

[ss6857]

I have 3 dates in a drop down box, when I change the drop down option a macro runs. However only one of the options work. Here is my code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then
Application.Run "JoAnn"
End If
End Sub

Sub JoAnn()
Application.ScreenUpdating = False
Dim LastRow As Long
Dim Delete As Long
ActiveWorkbook.RefreshAll
Delete = Range("A5").End(xlDown).Row
    Range("A5:M" & Delete & "").Select
    Selection.ClearContents
Sheets("Data").Select
LastRow = Range("A2").End(xlDown).Row
    
    ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=15, Criteria1:="1"
    ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=14, Criteria1:="=*" & Sheets("Control").Range("JoAnnDate").Value & "*"
    Range("A2:M" & LastRow & "").Select
    Selection.Copy
    Selection.SpecialCells(xlCellTypeVisible).Select
    Sheets("JoAnn").Select
    Range("A5").Select
    ActiveSheet.Paste
    
    Sheets("Data").Select
    ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=14
    ActiveSheet.ListObjects("Table_Query_from_BucketSQL").Range.AutoFilter Field _
        :=15
    Sheets("JoAnn").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A5").Select
    
Application.ScreenUpdating = True
    
End Sub

Any help would be appreciated..