Need Help Matching a variable and defining as a range

[egraham3]

I'd like to have a variable. find it in column of data, and then define the value that is Offset(0,1) as a range.

i thought i had it, but couldnt quite get the code right. I need this for VBA.

 

[egraham3]

so my the value im looking for is 2.56736E-03

and the values im sifting through are 5.787E-05 apart.

what do you suggest?

 

[egraham3]

nvm, looks like its not the rounding, its not returning a .value for me?
hmmm.

im rounding to 5 places

 

[VoG]

Try rounding to 5 decimal places.

 

[egraham3]

on .value.
its saying with variable or object not set?

 

[VoG]

Have you changed the code? It worked when I tested it.

 

[egraham3]

my data length could change, but starts in H2 and goes to something. maybe thats not set right?

 

[VoG]

Try

Sub test()
Dim x As Variant, Found As Range, LR As Long, i As Long
x = 0.00256736
LR = Range("H" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("H" & i)
        If Round(.Value, 5) = Round(x, 5) Then
            Set Found = .Offset(1)
            Exit For
        End If
    End With
Next i
If Not Found Is Nothing Then MsgBox Found.Address
End Sub

 

[egraham3]

i got it. it was my fault. obviously lol.
Thank you so much for your help.