I have a Table set up in Excel 2007, and I am using the following code to
extract data to another sheet, using advanced filter:

Sub FilterAllNames()
Worksheets("DBase").Range("DBase").AdvancedFilter Action:=xlFilterCopy,
_
CriteriaRange:=Worksheets("Reports").Range("CritNa mes"), _
CopyToRange:=Worksheets("Reports").Range("Output") , Unique:=False
End Sub

The sub works, but it strips my table (in the DBase worksheet) of the
drop-down arrows. The table
is apparently still there because the Table Tools Design tab is still
displayed, and the Total Row box still works. Why do I lose my drop-downs,
or how do I get them back???

On Feb 6, 5:13*pm, "John" wrote:
I have a Table set up in Excel 2007, and I am using the following code to
extract data to another sheet, using advanced filter:

Sub FilterAllNames()
* * Worksheets("DBase").Range("DBase").AdvancedFilter Action:=xlFilterCopy,
_
* * * *CriteriaRange:=Worksheets("Reports").Range("CritN ames"), _
* * * *CopyToRange:=Worksheets("Reports").Range("Output" ), Unique:=False
*End Sub

*The sub works, but it strips my table (in the DBase worksheet) of the
drop-down arrows. The table
*is apparently still there because the Table Tools Design tab is still
displayed, and the Total Row box still works. Why do I lose my drop-downs,
or how do I get them back???

By drop down arrows, do you mean drop down arrows from the filter? if
so, advance filter does not have drop down arrows, just auto filter

I mean the drop down arrows in my original table. The arrows are there until
I use advanced filter with the "copy to another location" option, then the
arrows immediately disappear.

"CurlyDave" wrote in message
...
On Feb 6, 5:13 pm, "John" wrote:
I have a Table set up in Excel 2007, and I am using the following code to
extract data to another sheet, using advanced filter:

Sub FilterAllNames()
Worksheets("DBase").Range("DBase").AdvancedFilter Action:=xlFilterCopy,
_
CriteriaRange:=Worksheets("Reports").Range("CritNa mes"), _
CopyToRange:=Worksheets("Reports").Range("Output") , Unique:=False
End Sub

The sub works, but it strips my table (in the DBase worksheet) of the
drop-down arrows. The table
is apparently still there because the Table Tools Design tab is still
displayed, and the Total Row box still works. Why do I lose my drop-downs,
or how do I get them back???

By drop down arrows, do you mean drop down arrows from the filter? if
so, advance filter does not have drop down arrows, just auto filter

Hi John

If you turn on Autofilter again do you see them then ?
No time to test it now myself

Maybe you like this add-in
http://www.rondebruin.nl/table.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"John" wrote in message ...
I mean the drop down arrows in my original table. The arrows are there until
I use advanced filter with the "copy to another location" option, then the
arrows immediately disappear.

"CurlyDave" wrote in message
...
On Feb 6, 5:13 pm, "John" wrote:
I have a Table set up in Excel 2007, and I am using the following code to
extract data to another sheet, using advanced filter:

Sub FilterAllNames()
Worksheets("DBase").Range("DBase").AdvancedFilter Action:=xlFilterCopy,
_
CriteriaRange:=Worksheets("Reports").Range("CritNa mes"), _
CopyToRange:=Worksheets("Reports").Range("Output") , Unique:=False
End Sub

The sub works, but it strips my table (in the DBase worksheet) of the
drop-down arrows. The table
is apparently still there because the Table Tools Design tab is still
displayed, and the Total Row box still works. Why do I lose my drop-downs,
or how do I get them back???

By drop down arrows, do you mean drop down arrows from the filter? if
so, advance filter does not have drop down arrows, just auto filter