genracela
05-21-2010, 12:02 AM
This is in relation to:
http://www.vbaexpress.com/forum/showthread.php?t=32218
I have an autofilter code and I want to the filter dropdown to be invisible.
How do I do that?
Sub FilterB7()
If UCase(Range("B6").Value) <> "ALL" Then
Range("A6").AutoFilter Field:=2, Criteria1:=Sheets("Sheet1").TextBox1.Value
Else
If ActiveSheet.AutoFilterMode Then
Range("A7").AutoFilter
End If
End If
Range("A1").Select
End Sub
Sub ClearFilter()
If ActiveSheet.AutoFilterMode Then
Range("A6").AutoFilter Field:=2, Criteria1:=""
End If
Sheets("Sheet1").TextBox1.Value = ""
Range("A1").Select
End Sub
Thanks!
http://www.vbaexpress.com/forum/showthread.php?t=32218
I have an autofilter code and I want to the filter dropdown to be invisible.
How do I do that?
Sub FilterB7()
If UCase(Range("B6").Value) <> "ALL" Then
Range("A6").AutoFilter Field:=2, Criteria1:=Sheets("Sheet1").TextBox1.Value
Else
If ActiveSheet.AutoFilterMode Then
Range("A7").AutoFilter
End If
End If
Range("A1").Select
End Sub
Sub ClearFilter()
If ActiveSheet.AutoFilterMode Then
Range("A6").AutoFilter Field:=2, Criteria1:=""
End If
Sheets("Sheet1").TextBox1.Value = ""
Range("A1").Select
End Sub
Thanks!