Numbers greater than a certain value

[Herbiec09]

Hi All,

I am looking for a function that can look down a list of values and return all the values greater than a certain number. I would like to vary the number I am comparing with using a drop down menu, so I am not looking to use the advanced filter, but an actual formula.

Can anyone assist.

Thanks

Herbert

 

[montecarlo2079]

try something like this.

<code>
Sub findnumbers()
Dim LR As Long
Dim i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If Range("A" & i).Value > 5 Then
Range("B" & i).Value = Range("A" & i).Value
End If
Next i
End Sub
<code>

I just tested it and it seems to give you want you want. you can change the ranges as you see fit depending on where you want the list of numbers

to use it with a drop down, replace "If Range("A" & i).Value > 5 Then"

with
If Range("A" & i).Value > "LOCATION OF linked cell from dropdown" Then


this is easily modified code to suit what you want.

hth