Need some additional changes in Match Portal code

[RAJESH1960]

Hello guys
This code is already running perfect. I need your expertise to make some changes and add a few more lines of code to update this. I have tried to explain the steps in the conditions sheet as simple as possible.

Additonal Changes.xlsm

 

[RAJESH1960]

JohnnyL. All the issues are solved. All the sheets are created and arranged in the required order.
There is one final problem in the result. The mismatches sheet used to display Not Found, Reverse Charge Invoices and Exempted Invoices but now all the Not Found rows are showing Reverse Charge Invoices. If the Mismatched sheet is connected to the Match portal it has to display Not found in Portal or Not found in Tally. Right. Even the combined data sheet is showing all rows as Reverse Charge Invoices and Exempted Invoices.

 

[johnnyL]

The active sheet was messing with the evaluate.

Change:

            .Value = Evaluate(Replace("if(#=""Not Found"",#&"" in ""&choose((" & .Offset(, OffsetAmount).Address & _
                    "=""PORTAL"")+1,""Portal"",""Tally""),#)", "#", .Address))

to:

            .Value = wsDestination.Evaluate(Replace("if(#=""Not Found"",#&"" in ""&choose((" & .Offset(, OffsetAmount).Address & _
                    "=""PORTAL"")+1,""Portal"",""Tally""),#)", "#", .Address))

 

[RAJESH1960]

Closed the work book without saving. Give me some time to check again.

 

[johnnyL]

For Step #1:

    Dim AsPerColumnNumber               As Long
    Dim DestinationRemarksColumnNumber  As Long
    Dim OffsetAmount                    As Long
'
    AsPerColumnNumber = 2                                                                                               ' <--- Set this to the 'As Per' column number in 'Mismatches'
'
   DestinationRemarksColumnNumber = Range(DestinationRemarksColumn & 1).Column                                          ' Convert DestinationRemarksColumn letter to a number
'
        With .Range(DestinationRemarksColumn & "2:" & DestinationRemarksColumn & .Range("A" & .Rows.Count).End(xlUp).Row)   '
            OffsetAmount = AsPerColumnNumber - DestinationRemarksColumnNumber
'
            .Value = wsDestination.Evaluate(Replace("if(#=""Not Found"",#&"" in ""&choose((" & .Offset(, OffsetAmount).Address & _
                    "=""PORTAL"")+1,""Portal"",""Tally""),#)", "#", .Address))
        End With

For step #2 ... see post #11

 

[RAJESH1960]

Feeling very sleepy. The application has become a mess. Will try in the morning. Good Night JohnnyL.

 

[johnnyL]

Ok, no worries.

 

[RAJESH1960]

Phew!! I gave one last try and got it right. Everything as expected and the speed is also good.
See you soon .
Thank you JohnnyL.
Good Night.