Hi,
I have posted this message last week, but I got no replies.... It was under
other question so more than likely it was not noticed..

Subject: on which column is the filter active? 8/3/2006 9:34 PM PST
Hi,
How could I use the value in the filter heading cell instead of Filtercolumn
number?

BR
Makelei

" wrote:

Hi
Try this:
Sub tester()
Dim myFilter As Filter
Dim Filtercolumn As Integer

Filtercolumn = 0
With Worksheets(1)
If .AutoFilterMode Then
For Each myFilter In .AutoFilter.Filters
Filtercolumn = Filtercolumn + 1
If myFilter.On Then
MsgBox Filtercolumn
End If
Next myFilter
End If
End With
End Sub

regards
Paul
Alfonso wrote:
How do I identify the column on which a filter is active in an Excel sheet?

Alfonso

Hi MakeLei,

If I understand correctly, try something like:

=============
Public Sub Tester2()
Dim myFilter As Filter
Dim Filtercolumn As Integer
Dim rng As Range

Filtercolumn = 0
With Worksheets(3)
Set rng = .AutoFilter.Range.Rows(1)
If .AutoFilterMode Then
For Each myFilter In .AutoFilter.Filters
Filtercolumn = Filtercolumn + 1
If myFilter.On Then
MsgBox Cells(rng.Row, Filtercolumn).Value
End If
Next myFilter
End If
End With
End Sub
'<<=============


---
Regards,
Norman


"MakeLei" wrote in message
...
Hi,
I have posted this message last week, but I got no replies.... It was
under
other question so more than likely it was not noticed..

Subject: on which column is the filter active? 8/3/2006 9:34 PM PST
Hi,
How could I use the value in the filter heading cell instead of
Filtercolumn
number?

BR
Makelei

" wrote:

Hi
Try this:
Sub tester()
Dim myFilter As Filter
Dim Filtercolumn As Integer

Filtercolumn = 0
With Worksheets(1)
If .AutoFilterMode Then
For Each myFilter In .AutoFilter.Filters
Filtercolumn = Filtercolumn + 1
If myFilter.On Then
MsgBox Filtercolumn
End If
Next myFilter
End If
End With
End Sub

regards
Paul
Alfonso wrote:
How do I identify the column on which a filter is active in an Excel
sheet?

Alfonso