Data-type, case-match and InputBox issue.

[kelly mort]

I have this code here and when I call the InputBox only the admin will match. All the others return the else statement. So I used that UCase but still. What is it that I am missing?

Option Explicit 
Private UName As Variant,  TheAccount As Variant 
Sub ActiveInactive  ()
        TheAccount = Application.InputBox("Enter the Account name","Activate or Deactivate")

With Sheets("Data")
      For Each UName In . [K4:K13] 
             If UName = UCase(TheAccount) Then
                   MsgBox "Account available"
              Else 
                   MsgBox "Account not available"
              End If
        Next
End With 
End Sub

The account names :

ADMIN
USER 1
USER 2
USER 3

 

[footoo]

What about the space(s) ?
Try this :

Option Explicit
Private UName As Variant, TheAccount As Variant
Sub ActiveInactive()
Dim c%
TheAccount = Application.InputBox("Enter the Account name", "Activate or Deactivate")
For Each UName In Sheets("Data").[K4:K13]
    If Replace(UName, " ", "") = Replace(UCase(TheAccount), " ", "") Then
        MsgBox "Account available"
        c = 1
        Exit For
    End If
Next
If c <> 1 Then MsgBox "Account not available"
End Sub

 

[kelly mort]

What about the space(s) ?
Try this :

Option Explicit
Private UName As Variant, TheAccount As Variant
Sub ActiveInactive()
Dim c%
TheAccount = Application.InputBox("Enter the Account name", "Activate or Deactivate")
For Each UName In Sheets("Data").[K4:K13]
    If Replace(UName, " ", "") = Replace(UCase(TheAccount), " ", "") Then
        MsgBox "Account available"
        c = 1
        Exit For
    End If
Next
If c <> 1 Then MsgBox "Account not available"
End Sub

Great!!!!!


I knew I was messing up with something.

Thanks a lot for the quick fix.