finding min values address and getting value from same column

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

nefarious24@gmail.com - 21 Mar 2006 22:50 GMT

ok here is what i have.

A B C D E
1 V W X Y
2 1.95 1.55 1.75 2.05 #Display

now in cell E2 i want it to find the minimum value from A2 to D2 and
display the letter above that minimum values column found in row 1
(V,W,X or Y).

so in this example i want W to be displayed in Cell E2.

thank you,
Jonathan

Reply to this Message

Alseikhan - 22 Mar 2006 00:47 GMT

This should do the trick:

Sub test()
Dim rng As Range
Worksheets("Sheet1").Range("A2:D2").Select
Set rng = Selection.Find(What:=Application.min(Selection)
Lookat:=xlWhole, LookIn:=xlValues)
Range("E2") = rng.Offset(-1, 0)
End Sub

Alseikha

Reply to this Message