i want required vba Code. I am looking for a small value from the Range

[sanju2323]

Value Range Requirement
25.000 1750.000 17.000
17.000 1750.000 17.000
33.000 1750.000 17.000
18.000 1750.000 17.000
33.000 1750.000 17.000
47.000 1750.000 17.000
66.000 1750.000 17.000
21.000 1750.000 17.000
41.000 1750.000 17.000
98.000 3500.000 5.000
45.000 3500.000 5.000
70.000 3500.000 5.000
5.000 3500.000 5.000
53.000 3500.000 5.000
55.000 3500.000 5.000
47.000 3500.000 5.000
12.000 3500.000 5.000
15.000 5250.000 14.000
66.000 5250.000 14.000
14.000 5250.000 14.000
45.000 5250.000 14.000
68.000 5250.000 14.000
21.000 5250.000 14.000
75.000 5250.000 14.000
77.000 5250.000 14.000
89.000 5250.000 14.000
17.000 5250.000 14.000

Need VBA Codes. Ex. Test (A2,B2)
I am looking for a small value between Range

 

[Momentman]

Can you explain more your request?

 

[Andrew Poulsom]

Why can't you just use:

=MIN(IF(B:B=B2,A:A))

confirmed with Ctrl+Shift+Enter? If you want a (slow) UDF:

Function SmallIf(Rng1 As Range, Rng2 As Range)
    With ActiveSheet
        SmallIf = .Evaluate("=min(IF(" & Rng2.EntireColumn.Address & "=" & Rng2.Address & "," & Rng1.EntireColumn.Address & "))")
    End With
End Function

 

[sanju2323]

Thank You Very Much Its Work.
sir, This =MIN(IF(B:B=B2,A:A)) array formula is used in large column it will be hung

 

[Andrew Poulsom]

Thank You Very Much Its Work.
sir, This =MIN(IF(B:B=B2,A:A)) array formula is used in large column it will be hung

I think you will find that will also be the case for SmallIf(A2,B2). Try to avoid using entire columns.

 

[sanju2323]

You are all the right to hang the sheet. This is no way to

 

[Andrew Poulsom]

Did you have a question?

 

[sanju2323]

hang on Using VBA / formula large format. anything idea or some solution?