Hi,

Do anyone know why this code don´t work?

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

//
Mia

You need to set
activesheet.filtermode=true

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

See your previous post.

Mia wrote:

Hi,

Do anyone know why this code don´t work?

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

//
Mia

--

Dave Peterson

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" wrote in message
...
Hi,

Do anyone know why this code don´t work?

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

//
Mia

Thank you again Dave!

//
Mia




"Dave Peterson" skrev:

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

See your previous post.

Mia wrote:

Hi,

Do anyone know why this code don´t work?

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

//
Mia

--

Dave Peterson