Index of Minimum Value in Array

[afzalw]

I have two Array Input(k) and Output(k).

I am looking to print Input(k) value for the corresponding minimum Output(k). This code is giving p = 1 but my minimum value is not at the index one in the array.

p = Application.Match(Application.Min(Output), Output, 0)
Debug.Print p

Set rDest = ThisWorkbook.Sheets("Design2").Cells(j, 16)                                  
rDest.Resize(1, 1).Value = Input(p)

 

[MickG]

This worked for me:-

[COLOR="Navy"]Sub[/COLOR] MG22Mar36
[COLOR="Navy"]Dim[/COLOR] nOutput [COLOR="Navy"]As[/COLOR] Variant, nInput [COLOR="Navy"]As[/COLOR] Variant, P [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
nOutput = Range("A1:A10")
nInput = Range("B1:B10")
  P = Application.Match(Application.Min(nOutput), nOutput, 0)
  Debug.Print P
  MsgBox nInput(P, 1)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

	A	B
1	10	100
2	11	101
3	12	102
4	13	103
5	2	104
6	15	105
7	16	106
8	17	107
9	18	108
10	19	109
11	20	110

<colgroup><col width="27" style="width: 20pt; mso-width-source: userset; mso-width-alt: 967;"> <col width="64" style="width: 48pt;" span="2"> <tbody> </tbody>

Regards Mick