VBA searching for a specific value using imputbox

[miisstina]

Hi all,

I have just started learning Vba.

I am trying to create search for a value using an input box which goes through a range and determines the first value that exceeds the value chosen via input box. I have absolutely no idea where to begin. (Also I hope I make sense)

Any help to steer me in the correct direction would be greatly appreciated

 

[venkat1926]

try something like this

Sub test()
Dim cfind As Range, x, c As Range
Worksheets("sheet1").Activate
x = InputBox("type the number you want as input e.g. 2")
x = CLng(x)
Set cfind = Columns("a:a").Cells.Find(what:=x, lookat:=xlWhole)
'MsgBox cfind.Address
For Each c In Range(cfind.Offset(1, 0), cfind.End(xlDown))
MsgBox c.Address
If c.Value > x Then
MsgBox c.Address
Exit Sub
End If
Next c








End Sub

 

[miisstina]

try something like this

Sub test()
Dim cfind As Range, x, c As Range
Worksheets("sheet1").Activate
x = InputBox("type the number you want as input e.g. 2")
x = CLng(x)
Set cfind = Columns("a:a").Cells.Find(what:=x, lookat:=xlWhole)
'MsgBox cfind.Address
For Each c In Range(cfind.Offset(1, 0), cfind.End(xlDown))
MsgBox c.Address
If c.Value > x Then
MsgBox c.Address
Exit Sub
End If



Next c








End Sub

Thank you very much!