Compile error in hidden module

[RAJESH1960]

Hello JohnnyL
The application Match Portal is running perfect in every way. Today I visited a new office and tested to run Match Portal application. But I ran into this error for the first time. What could be the reason and how do I rectify it to make it compatible to run in all versions of excel.?
Compile error in hidden module Match Portal
This error commonly occurs when code is incompatible with the version, platform or architecture of this application.

 

[6StringJazzer]

The error you are getting is probably not caused by a difference in the version of Excel. In web searches I have not found an explanation for this particular error that applies to this file. It will be difficult to diagnose this without being able to reproduce it.

VBA is fairly forward and backward compatible between versions of Excel as far as built-in language features. You usually have problems if you refer to worksheet functions that aren't there, 32-bit API calls in a 64-bit system, or external calls, none of which apply in your file.

 

[RAJESH1960]

The error you are getting is probably not caused by a difference in the version of Excel. In web searches I have not found an explanation for this particular error that applies to this file. It will be difficult to diagnose this without being able to reproduce it.

VBA is fairly forward and backward compatible between versions of Excel as far as built-in language features. You usually have problems if you refer to worksheet functions that aren't there, 32-bit API calls in a 64-bit system, or external calls, none of which apply in your file.

Do you mean that I have to change the whole code ? I found this on the web

 

[Fluff]

You will need to change the Add2 to Add on these rows & anywhere else they occur

    With wsDestination.Sort.SortFields
        .Clear
        .Add2 key:=Range("C2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add2 key:=Range("G2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add2 key:=Range("H2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add2 key:=Range("B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With

 

[RAJESH1960]

Sorry I am a bit confused.

 

[Fluff]

About what?

 

[RAJESH1960]

I was working on 2 different queries and I got confused with your reply was for which query. Give me sometime.

 

[RAJESH1960]

Add2

I just replaced Add2 with add at 8 available places. After changing the code is showing the same perfect result. The question is whether this will work in 2007 / 2013 version after this change.?

 

[Fluff]

The question is whether this will work in 2007 / 2013 version after this change.?

Hopefully, but there maybe other things like that which need changing.

 

[RAJESH1960]

other things

like other things or many other things...

 

[RAJESH1960]

Hopefully,

Me too. Keeping my hopes alive. If there are a few changes I can do it if you point them out to me.