Show all data

[Mia]

Hi,

Do anyone know why this code don´t work?

Sub ShowAllRecords()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub

//
Mia

 

[AndrewArmstrong]

You need to set
activesheet.filtermode=true

 

[Dave Peterson]

Maybe it's because you were filtering a list--not a range.

See your previous post.

 

[Gary Keramidas]

i've run into that problem if the autofilter is on, but no fields are actually
filtered. some the autofilter may be on and showalldata pops an error because
showalldata is true

to work around it, i use code like the 2 examples below. in the first instance,
i have the autofilter turned on for columns A:E. it checks to see if there are
any filtered columns, and if there is, it executes showalldata and exits.

If ws.AutoFilterMode = True Then
For i = 1 To 5
With ws.AutoFilter.Filters(i)
If .On Then
ws.ShowAllData
Exit For
End If

End With
Next
End If


you could probaby surround with on error statements, too.

on error resume next
ws.ShowAllData
on error got to 0

--






Gary

 

[Mia]

Thank you again Dave!

//
Mia




"Dave Peterson" skrev: