Find the first positive number after deducting from a range of numbers VBA

[Sotos13]

Hi all
I have to find a way to solve this problem. I have a column with different numbers for example x1 x2 x3..x1000, and a specific range of 125 y1 y2 y3.. y125 numbers.
i want to find which x number is closest to a y number. So i was thinking to do y1-x1= and y2-x1= and y3- x1= and so on. the smallest positive number will be my correct answer. So in the below example the answer is 4848 and i want vba to bring me back in a specific column the Y number which in this case is 300000. Feel free to ask anything...waiting for some suggestions.

Y	X	Y-X
282000	295152	-13152
288000		-7152
288000		-7152
300000		4848
300800		5648

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[KOKOSEK]

I don't know how many rows/columns you got to deal but with your example:

Excel 2013/2016

	A	B	C
1	282000	295152	300000
2	288000
3	288000
4	300000
5	300800

<colgroup><col style="width: 25pxpx"><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Sheet1​

Array Formulas Cell Formula C1 {=INDEX(A1:A10,MATCH(SMALL(ABS(A1:A10-B1),1),ABS(A1:A10-B1),0))} <thead> </thead><tbody> </tbody> Entered with Ctrl+Shift+Enter. If entered correctly, Excel will surround with curly braces {}. Note: Do not try and enter the {} manually yourself

<tbody>
</tbody>

 

[DanteAmor]

Try this array formula:

<table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:76.04px;" /><col style="width:76.04px;" /><col style="width:76.04px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >A</td><td >B</td><td >C</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="background-color:#ffff00; font-weight:bold; text-align:center; ">X</td><td style="background-color:#ffff00; font-weight:bold; text-align:center; ">Y</td><td style="background-color:#ffff00; font-weight:bold; text-align:center; ">RESULT</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">282000</td><td style="text-align:right; ">295152</td><td style="text-align:right; ">300000</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">288000</td><td > </td><td > </td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">288000</td><td > </td><td > </td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">300000</td><td > </td><td > </td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">300800</td><td > </td><td > </td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b></b></td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Cell</td><td >Array Formula</td></tr><tr><td >C2</td><td >{=INDEX(A1:A6,MIN(IF(A2:A6-B2>0,ROW(A2:A6))))}</td></tr></table></td></tr></table>

 

[DanteAmor]

But if you prefer the macro, try this

Sub FormulaXY()
    lr = Range("A" & Rows.Count).End(xlUp).Row
    With Range("C2")
        .FormulaArray = "=INDEX(A1:A" & lr & ",MIN(IF(A2:A" & lr & "-B2>0,ROW(A2:A" & lr & "))))"
        .Value = .Value
    End With
End Sub

 

[Sotos13]

Hi DanteAmor,
thanks for you help.
Your code works great!!!the only thing i didn't mention is that i need it to calculate all the values in column B with column A and return each one to column C. Now it works for one number.

As for the formula i tried it but it returns just the smallest value from column A(see example) {INDEX(F1:F7;MIN(IF(F2:F7-G2>0;ROW(F2:F7))))

282000	295152	282000
288000
288000
300000
300800
302400

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[Sotos13]

Hi Kokosek

Your formula is correct !!! thank you..Do you know how to write this formula in VBA?

 

[KOKOSEK]

Hi Kokosek

Your formula is correct !!! thank you..Do you know how to write this formula in VBA?

No it is not. I've missed 'positive'.

=INDEX(M2:M6,MATCH(SMALL(IF(M2:M6-N2>0,M2:M6-N2,10^9),1),(M2:M6-N2),0))

 

[Sotos13]

YES IT'S OK NOW THANKS..but why did you put 10^9...i'm trying to rephrase the meaning of all the function...

 

[KOKOSEK]

As I am looking for smallest value (SMALL(array,1)), I would like to be sure that everything else what does not met IF condition will be really huge .

 

[DanteAmor]

Hi DanteAmor,
thanks for you help.
Your code works great!!!the only thing i didn't mention is that i need it to calculate all the values in column B with column A and return each one to column C. Now it works for one number.

As for the formula i tried it but it returns just the smallest value from column A(see example) {INDEX(F1:F7;MIN(IF(F2:F7-G2>0;ROW(F2:F7))))

282000	295152	282000
288000
288000
300000
300800
302400

<tbody>
</tbody>

Is an array formula, To accept you must press Ctrl + Shift + Enter

{=INDEX(A1:A6,MIN(IF(A2:A6-B2>0,ROW(A2:A6))))}

-----

I pass the macro for the entire column C

Sub FormulaXY_2()
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        With Range("C" & i)
            .FormulaArray = "=INDEX($A$1:$A$" & lr & ",MIN(IF($A$2:$A$" & lr & "-B" & i & ">0,ROW($A$2:$A$" & lr & "))))"
            .Value = .Value
        End With
    Next
End Sub