code help

[Kevin0427]

The following code never gets to the ELSE and always displays the message box. I suspect that it is because when I print the variables lastrow is right justified and rowfound is left justified so they are not both numbers. But I am not sure and if so I don't know how to fix it.

'Get Row Number
    rowfound = InputBox("What is the row number of the project?", "Input Row Number")
    
    'If Input box is cancelled exit sub
    If rowfound = "" Then
    Exit Sub
    End If
    
    'Is row number valid?
    lastrow = Sheets("Tracking Log").Range("B:B")(Rows.Count, 1).End(xlUp).Row
    
    Debug.Print lastrow
    Debug.Print rowfound
    
    If rowfound < 15 Or rowfouund > lastrow Then
        MsgBox "Row Number not valid", vbCritical, "Invalid Row Number"
        Exit Sub
    
    Else

 

[Kevin0427]

I did find the typo in rowfound. That was not the issue.

 

[xenou]

There is a misspelled identifier:

If rowfound < 15 Or rowfouund > lastrow Then

This probably should be
If rowfound < 15 Or rowfound > lastrow Then

 

[njimack]

Justification won't affect it, but you've misspelt one of your variables.
If you don't require variable declaration (Option Explicit) within your code, the debugger won't highlight misspelt variables.

 

[njimack]

What happens when you step thru using F8?

 

[xenou]

Are you saying that you found the typo or that you fixed the typo? it has to be fixed even if it is not the problem.

 

[Kevin0427]

There is a misspelled identifier:

If rowfound < 15 Or rowfouund > lastrow Then

This probably should be
If rowfound < 15 Or rowfouund > lastrow Then

I guess our posts crossed. Thanks for the help but that did not fix the issue.

 

[Kevin0427]

I fixed the typo and the code still does not work. When I step through with F8 the message box always happens even when rowfound is between 15 and lastrow.

 

[Fluff]

You are quite right about them no both being numbers.
Try

    'If Input box is cancelled exit sub
    If rowfound = "" Then
      Exit Sub
    Else
      rowfound = val(rowfound)
    End If

 

[Kevin0427]

You are quite right about them no both being numbers.
Try

    'If Input box is cancelled exit sub
    If rowfound = "" Then
      Exit Sub
    Else
      rowfound = val(rowfound)
    End If

PERFECTO !!! Thanks. I was trying .value all over the place with no avail.