what's autofiltered?

hawley · May 6th, 2002, 12:08 PM

Is there a way to see what is being autofiltered?

The user can autofilter on some columns. Then they choose an option from my menu. The problem is I have to unfilter what they filtered so my process will work. When do though I want to refilter to what they had before the process was done. Can this be done and how????

Thanks-

Ricky Morris · May 6th, 2002, 12:51 PM

Another solution would be to copy the filtered data to a new sheet, unfilter it, apply you procces then delete the sheet.

hawley · May 6th, 2002, 01:01 PM

Thanks for the suggestion but I found this on another site which is what I was looking for. Here it is if you are curious.

Function FilterCriteria()
Dim Filter As String
Filter = ""
On Error GoTo Finish
With Range(Cells(9,2), Cells(9,14)).Parent.AutoFilter
With .Filters(Cells(9,8).Column)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & "AND " & .Criteria2
Case xlOr
Filter = Filter & " OR " & .Criteria2
End Select
End With
End With
Finish:
FilterCriteria = Filter
End Function

[ This Message was edited by: hawley on 2002-05-06 12:02 ]

[ This Message was edited by: hawley on 2002-05-06 12:02 ]

May 6th, 2002, 12:51 PM	#2
Ricky Morris Board Regular Join Date: Mar 2002 Posts: 363	Another solution would be to copy the filtered data to a new sheet, unfilter it, apply you procces then delete the sheet. __________________ It's never too late to learn something new. Ricky

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 6th, 2002, 12:08 PM	#1
hawley Board Regular Join Date: Apr 2002 Posts: 169	Is there a way to see what is being autofiltered? The user can autofilter on some columns. Then they choose an option from my menu. The problem is I have to unfilter what they filtered so my process will work. When do though I want to refilter to what they had before the process was done. Can this be done and how???? Thanks-

May 6th, 2002, 01:01 PM	#3
hawley Board Regular Join Date: Apr 2002 Posts: 169	Thanks for the suggestion but I found this on another site which is what I was looking for. Here it is if you are curious. Function FilterCriteria() Dim Filter As String Filter = "" On Error GoTo Finish With Range(Cells(9,2), Cells(9,14)).Parent.AutoFilter With .Filters(Cells(9,8).Column) If Not .On Then GoTo Finish Filter = .Criteria1 Select Case .Operator Case xlAnd Filter = Filter & "AND " & .Criteria2 Case xlOr Filter = Filter & " OR " & .Criteria2 End Select End With End With Finish: FilterCriteria = Filter End Function [ This Message was edited by: hawley on 2002-05-06 12:02 ] [ This Message was edited by: hawley on 2002-05-06 12:02 ]