Un-Sort worhsheet before pulling data.

[BMRC]

Hi All,

Thanks in advance for any help you can offer.

I am pulling data from a shared woorkbook tool. I am having trouble unsorting the woorkbook data prior to pulling it in.

Activesheet.Show all data works great, but errors out if no data is sorted. Is there somethgin I can do to find out if the data is sorted?

This does not work, but is basically what I am attempting to do..

If Cells.Sort = True Then
ActiveSheet.ShowAllData
Else
End If

 

[ajm]

are you wanting to remove an auto filter rather than "unsort"?

if you want to unfilter, then try:



If Worksheets("Sheet1").AutoFilterMode Then
Worksheets("Sheet1").ShowAllData
End If

 

[BMRC]

Thanks for the reply

It still has the same trouble. It works fine if there is sorted data, but fails if nothing is sorted...

If Worksheets("Orders").AutoFilterMode Then
Worksheets("Orders").ShowAllData
End If

 

[ajm]

bmrc, you keep mentioning sorted data. can you post a sample of what you are looking at, and then what you want it to be before you copy it over to the new workbook. also, post the full code of what you have so far. remember to use code tags around your macro when posting it to this website. as an example:

If Worksheets("Orders").AutoFilterMode Then
Worksheets("Orders").ShowAllData
End If

ps try this first:

If Worksheets("Orders").FilterMode Then
Worksheets("Orders").ShowAllData
End If

 

[BMRC]

Sorry I mean that the data source workbook has AutoFilter turned on. I want to unsort without removing the autofilter.

Your code does exactly what I was looking for. Thanks so much!

If Worksheets("Orders").FilterMode Then
Worksheets("Orders").ShowAllData
End If

 

[ajm]

you're welcome. its nice to be able to help someone for a change and put something back into this forum. )