I am trying to programatically delete all rows that have been filtered out
with an autofilter in an excel spreadsheet. I can find a lot of examples of
how to delete rows that have not been filtered out, but I want all "hidden"
rows deleted.

Any ideas?

Mike,

Try this:

For a = 20 To 1 Step -1
If Rows(a).Hidden = True Then
Rows(a).EntireRow.Delete
End If
Next a

Obviosuly it's a small example of the syntax - change the way you scroll
through the rows as you see fit.

"MikeG22" wrote:

I am trying to programatically delete all rows that have been filtered out
with an autofilter in an excel spreadsheet. I can find a lot of examples of
how to delete rows that have not been filtered out, but I want all "hidden"
rows deleted.

Any ideas?

Change the AutoFilter criteria

= criteria to
< criteria

http://www.rondebruin.nl/delete.htm#AutoFilter

then use DeleteValue = "<ron"




--
Regards Ron de Bruin
http://www.rondebruin.nl



"MikeG22" wrote in message ...
I am trying to programatically delete all rows that have been filtered out
with an autofilter in an excel spreadsheet. I can find a lot of examples of
how to delete rows that have not been filtered out, but I want all "hidden"
rows deleted.

Any ideas?

I've tried this and it seems the autofiltered rows are not showing up with
Hidden = true so this won't work... :(

"Boo" wrote:

Mike,

Try this:

For a = 20 To 1 Step -1
If Rows(a).Hidden = True Then
Rows(a).EntireRow.Delete
End If
Next a

Obviosuly it's a small example of the syntax - change the way you scroll
through the rows as you see fit.

"MikeG22" wrote:

I am trying to programatically delete all rows that have been filtered out
with an autofilter in an excel spreadsheet. I can find a lot of examples of
how to delete rows that have not been filtered out, but I want all "hidden"
rows deleted.

Any ideas?

Mike,

Strange - I tried this before posting and it worked fine...sorry. No other
suggestions :-(

"MikeG22" wrote:

I've tried this and it seems the autofiltered rows are not showing up with
Hidden = true so this won't work... :(

"Boo" wrote:

Mike,

Try this:

For a = 20 To 1 Step -1
If Rows(a).Hidden = True Then
Rows(a).EntireRow.Delete
End If
Next a

Obviosuly it's a small example of the syntax - change the way you scroll
through the rows as you see fit.

"MikeG22" wrote:

I am trying to programatically delete all rows that have been filtered out
with an autofilter in an excel spreadsheet. I can find a lot of examples of
how to delete rows that have not been filtered out, but I want all "hidden"
rows deleted.

Any ideas?

I'm sorry, that does work. Thanks!

"Boo" wrote:

Mike,

Try this:

For a = 20 To 1 Step -1
If Rows(a).Hidden = True Then
Rows(a).EntireRow.Delete
End If
Next a

Obviosuly it's a small example of the syntax - change the way you scroll
through the rows as you see fit.

"MikeG22" wrote:

I am trying to programatically delete all rows that have been filtered out
with an autofilter in an excel spreadsheet. I can find a lot of examples of
how to delete rows that have not been filtered out, but I want all "hidden"
rows deleted.

Any ideas?