Search row of data for numbers not negative or in parenthesis

[ThomasOES]

I need vba to search down a column from cell D1 to the end of the data. The length of the column of data varies. I need the first cell that is non-negative and no parenthesis.
Below is a sample column. I need to start the search with the cell below C and then select the cell with 0.026.

[TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64, bgcolor: transparent"]C[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]-3[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]-2[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"](0.023)[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.026[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.0367[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.04[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.05[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.051[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.052[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.055[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]0.106

Thanks

Tom
[/TD]
[/TR]
</tbody>[/TABLE]

 

[Joe4]

Assuming that your parentheses represent negative numbers, then you could use a simple loop to do it, like this:

Sub FirstPositive()

    Dim myRow As Long
    
    myRow = 1
    Do
        If Cells(myRow, "D") > 0 Then Exit Do
        myRow = myRow + 1
    Loop
    Cells(myRow, "D").Select
    
End Sub

 

[ThomasOES]

Thanks Joe
Your code works. Sorry about the extra submission. I wasn't sure my question made sense.

Tom

 

[Joe4]

You are welcome.

If you are ever unsure if it is clear, you can post clarifications back to the original post. I would just wait a little while, as posting back to it removes it from the "Zero Reply Posts" listing that many of us use to look for unanswered questions.