Another 1004 error

30 views
Skip to first unread message

Vincent Bonifay

unread,
Apr 22, 2014, 3:16:38 PM4/22/14
to id...@googlegroups.com
Hello,

I just got another error, and i have been having it for all my latest samples. Not sure what is wrong, when i go the debug mode i got:


Sub zzSortFragmentsheet()
'
' zzSortFragmentsheet Macro
'

'
    Sheets("Fragments").Select
    Columns("A:C").Select
    ActiveWorkbook.Worksheets("Fragments").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Fragments").Sort.SortFields.Add Key:=Range( _
        "A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Fragments").Sort.SortFields.Add Key:=Range( _
        "C1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Fragments").Sort.SortFields.Add Key:=Range( _
        "B1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Fragments").Sort
        .SetRange Range("A:C")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Do you know what could be the problem here? 

Thank you again

Vincent Bonifay

unread,
May 1, 2014, 3:42:22 PM5/1/14
to id...@googlegroups.com
Nobody has an answer? I tried with so many samples recently. And i could not analyze any. Everytime it gives me this error

Vincent Bonifay

unread,
May 1, 2014, 5:03:28 PM5/1/14
to id...@googlegroups.com
It seems it is a problem with excel. Maybe a last update from microsoft. Because i tried with some old file which used to work and different version of IDEOM, i always got the same error

Regards


--
You received this message because you are subscribed to the Google Groups "Ideom" group.
To unsubscribe from this group and stop receiving emails from it, send an email to ideom+un...@googlegroups.com.
To post to this group, send email to id...@googlegroups.com.
Visit this group at http://groups.google.com/group/ideom.
For more options, visit https://groups.google.com/d/optout.

Darren Creek

unread,
May 1, 2014, 11:10:35 PM5/1/14
to Vincent Bonifay, id...@googlegroups.com
Hi Vincent,
I've been trying to figure out this error but the only other place I have seen it is on a Windows 8 machine with Office 2013, so it has been difficult to troubleshoot.
Unfortunately I don't know which part for the macro is causing the error, but you can avoid it by skipping that particular macro, it is only important if you edit the 'Fragments' sheet (but most people don't edit that page). 
To skip this macro... 
1. View macros and edit "zzsortFragmentsheet"
2. Add a line as the second line of the macro with the command "Exit Sub"
3. Save this version of IDEOM and use it if you're using that new office version.  

NB: If you are altering the IDEOM fragment lists and skipping this macro please be sure to sort the fragment sheet according to the criteria specified in this macro before running step 3. 

I hope to find a fix for this before the next version of IDEOM,  but I just can't find the time to work on it at the moment ;) 

cheers,
Darren


The start of the macro should look like this:
__________

Sub zzSortFragmentsheet()
Exit Sub
'
' zzSortFragmentsheet Macro
'

'
    Sheets("Fragments").Select
    Columns("A:C").Select
    ActiveWorkbook.Worksheets("Fragments").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Fragments").Sort.SortFields.Add Key:=Range( _

...





--
Dr Darren Creek
 
NHMRC CJ Martin Fellow / Lecturer
Drug Delivery, Disposition and Dynamics
Monash Institute of Pharmaceutical Sciences
Monash University, Parkville campus
381 Royal Parade, Parkville, Vic, 3052
 
Join us for the
International Metabolomics Society Conference, Tsuruoka / Japan, June 23 - 26, 2014


Vincent Bonifay

unread,
May 5, 2014, 4:00:47 PM5/5/14
to id...@googlegroups.com
Hi Darren,

I just managed to try a new set of samples and i skyped the macro. Everything worked fine. 

Btw, i have got this error also on windows 7 pro 64, as i was running on 2 differents machine to process faster. One was using windows 7 and the other windows 8. I was getting the same error on both OS. I also did not get the error when i installed Office 2010 on my machines. 

Anywa, everything works fine now. Thank you very much


On Tuesday, April 22, 2014 2:16:38 PM UTC-5, Vincent Bonifay wrote:
Reply all
Reply to author
Forward
0 new messages