Whats wrong with my loop code here?

[Phoenix_Turn]

The purpose of my code is to stop at a cell when the value of my cell equals to the value of my input from the textbook but here it turns into an infinite loop. Can someone make some modifications below to get it to run? thanks!

i = 1

strEx = txtInp.Text

Do Until rngRang.Value = strEx

rngEx.Offset(i, 0).Select
i = i + 1

Loop

rngrngEx.Select

 

[AlphaFrog]

i = 1

strEx = txtInp.Text

Do Until [COLOR="Red"]rngEx.Offset(i, 0)[/COLOR].Value = strEx

i = i + 1

Loop

rngEx.Offset(i, 0).Select

Above is case sensitive if you are matching text.
Below would be case insensitive.

Do Until [COLOR="Red"]LCase(rngEx.Offset(i, 0).Value)[/COLOR] = [COLOR="Red"]LCase(strEx)[/COLOR]

 

[Phoenix_Turn]

i = 1

strEx = txtInp.Text

Do Until [COLOR=Red]rngEx.Offset(i, 0)[/COLOR].Value = strEx

i = i + 1

Loop

rngEx.Offset(i, 0).Select

Above is case sensitive if you are matching text.
Below would be case insensitive.

Do Until [COLOR=Red]LCase(rngEx.Offset(i, 0).Value)[/COLOR] = [COLOR=Red]LCase(strEx)[/COLOR]

Thanks!!! Works now!!

also, what can i write so that if the person enters their value into the inputbox and that value is not in any of the cells at all, a msgbox pops up saying "cant be found"?

Any clues?

Thanks!

 

[AlphaFrog]

This is how I might do it.

    Dim Found As Range
    Dim rngEx As Range
    
    Set rngEx = Range("A1")
    
    If txtInp.Text <> vbNullString Then
    
        Set Found = rngEx.EntireColumn.Find(What:=txtInp.Text, _
                                            LookIn:=xlValues, _
                                            LookAt:=xlWhole, _
                                            SearchOrder:=xlByRows, _
                                            SearchDirection:=xlNext, _
                                            MatchCase:=False)
        If Not Found Is Nothing Then
            i = Found.Row - rngEx.Row
            Found.Select
            MsgBox "i = " & i
        Else
            MsgBox "No match found for " & txtInp.Text, vbExclamation, "No Match Found"
        End If
        
    End If