Re : Excel AutoFilter being Toggled of VisibleDropDown

[tkt_tang]

Re : Excel AutoFilter being Toggled of VisibleDropDown

1. Enter an Excel worksheet and VBA thereof.

2. In the midst of,
ActiveSheet.AutoFilter.Filter(1)
being toggled by,
VisibleDropDown:= False and
VisibleDropDown:= True,
How could VBA code be deployed to test the States of VisibleDropDown
thereof ?

3. Please share your experience (of tracking the States of
VisibleDropDown of an AutoFilter and several others via VBA).

4. Regards.

 

[Mitesh Khatri]

Hiiii
For check the state of auto filter use the following commands
if activesheet.row(5).AutoFilterMode=False then
activesheet.row(5).AutoFilter()
end if

With Regards
Mitesh Khatri
(e-mail address removed)
India

 

[tkt_tang]

Mr. Mitesh Khatri,

Thank you for responding to the query.

The query case refers to "ActiveSheet.AutoFilter.Filter(1)".

You have suggested to test by,

"ActiveSheet.Row(5).AutoFilterMode = False".

But, why Row(5) ?

Nevertheless, having tested your suggestion, it shows exception.

Please share your experience (of tracking the States of
VisibleDropDown of an AutoFilter after being cyclically toggled by,
VisibleDropDown:= False and
VisibleDropDown:= True,
via VBA).

That's when the AutoFilter's Arrow disappears and then reappears
consecutively.

Also, there are several AutoFilter.Filters being implemented on the
ActiveSheet.

Regards.

 

[Mitesh Khatri]

Hiiii
for auto filter i use the row no 5 for auto filter. you use any row as u need.

If Not myworksheet .AutoFilterMode Then myworksheet.Rows(RowNo).AutoFilter()

i hope it run perfectely.
Thanx
Mitesh Khatri
(e-mail address removed)

 

[tkt_tang]

Mr. Mitesh Khatri,

Thank you again for responding to the query.

The query case refers to "ActiveSheet.AutoFilter.Filter(1)".

Note that it is Filter(1) of the AutoFilter embedded on an
ActiveSheet.

Specificially, the Arrow-Button of Filter(1) has been subject to the
effect of a Pertinent Argument Setting namely, VisibleDropDown =
False ; and so, it has disappeared from the Lower Right-Hand-Side
Corner of the Header-Cell atop the column of Filter(1).

Meaning that it is One Arrow-Buitton of Filter(1) having
disappeared ...... and there, it is so required to Test (and Track,
via VBA Coding) the State of that Arrow-Button.

You have suggested to test by,

If Not myworksheet.AutoFilterMode Then
myworksheet.Rows(RowNo).AutoFilter() ............

The statement wreaks an effect and there, so many Arrow-Button(s)
would Emerge Enmasse ...... the result is apparently not at all
relevant to the query case.

You see?! the disappearance of an Arrow-Button (amidst several others
thereof) as a result of VisibleDropDown = False does not suffice the
Negation of AutoFilterMode.

In practice, AutoFilterMode = False is the Negation of an (existing)
AutoFilter implemented on an ActiveSheet.

In the meantime, the pursuit to track the State of Arrow-Button of
such AutoFilter.Filter(1) (being Toggled to Dis-Appear and Re-Appear)
persists ; It's Not Over Until It Is Over.

Regards.