Convert ConvertFormula xlR1C1 to xlA1

makati1026

New Member
Joined
Oct 21, 2017
Messages
2
The next 3 lines of code works fine. However, the code at bottom returns "error 2015" or Type mismatch 13 at runtime.

Working_FormulaR1C1 = "=MATCH(R23C1,IF((Sheet1!R5C2:R100C2=R23C1),Sheet1!R5C2:R100C2),0)"
Testing = Application.ConvertFormula(Working_FormulaR1C1 , xlR1C1, xlA1, xlAbsolute, ActiveCell)
Result_WORKS = Application.Evaluate(Testing)

This code fails. Only difference is the code in RED. I need to convert an R1C1 array formula into A1 style and evaluate result. I tried multiple time so Evaluate R1C1 formula it always fails but A1 style works. However, I can't convert the following code to A1 style without error. What is wrong?
ERROR_FormulaR1C1 = "=MATCH(R23C1,IF((Sheet1!R5C2:R100C2=R23C1)*(Sheet1!R5C6:R100C6>=R5C6),Sheet1!R5C2:R100C2),0)"
Testing2 = Application.ConvertFormula(Working_FormulaR1C1 , xlR1C1, xlA1, xlAbsolute, ActiveCell)
Result_ERROR = Application.Evaluate(Testing2)
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
Welcome to the Board

The code below worked for me. The issue may be related to your data set, you can post a link to a test workbook and we will look into it.


Code:
Sub Makati()
Dim wk$, errr$


wk = "=MATCH(R23C1,IF((Sheet1!R5C2:R100C2=R23C1),Sheet1!R5C2:R100C2),0)"


MsgBox Evaluate(Application.ConvertFormula(wk, xlR1C1, xlA1, 1, ActiveCell))


errr = "=MATCH(R23C1,IF((Sheet1!R5C2:R100C2=R23C1)*(Sheet1!R5C6:R100C6>=R5C6),Sheet1!R5C2:R100C2),0)"


MsgBox Evaluate(Application.ConvertFormula(errr, xlR1C1, xlA1, 1, ActiveCell))


End Sub
 
Upvote 0
Hi Worf ! Yea, definitely a data set issue. After looking at your reply I realized the code failed because I needed to reference a second sheet and without out that it would never work
WorksNow = "=MATCH(Sheet2!R23C1,IF((Sheet1!R5C2:R100C2=Sheet2!R23C1)*(Sheet1!R5C6:R100C6>=Sheet2!R5C6),Sheet1!R5C2:R100C2),0)"
 
Upvote 0

Forum statistics

Threads
1,223,903
Messages
6,175,284
Members
452,630
Latest member
OdubiYouth

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top