Extract Name after comma (Username)

[Andresuru]

Hi Team,

Please note I am trying to put in place a welcome message in userform (label) but the application username needs to be restricted to only show the Name of the user ( That it is after the coma)

The code is working correct but unfortunately I need to extract only the value after the "," that application. Username generates

This needs to be dynamic since usernames can be larger or smaller but imagine a user that his name is Mata Oviedo , Carlos so the value to extract is "Carlos" (since it is after the coma)

Private Sub Workbook_Open()

        If Hour(Now) > 12 Then
        
            UserForm1.Hello.Caption = " Good Afternoon " & [B]Application.UserName[/B]
            
        ElseIf Hour(Now) < 12 Then
                
                UserForm1.Hello.Caption = " Good Morning " & [B]Application.UserName[/B]
                   
          
        End If

           UserForm1.Show

Hope this can be clear for you

 

[JoeMo]

User Name may be as simple as just the first name depending on certain entries made during computer setup. I'd test the user name to ascertain if it contains a comma. Like this:

Sub test()
Dim Nam
Nam = "Mata Oviedo , Carlos"
If InStr(Nam, ",") > 0 Then
    MsgBox Right(Nam, Len(Nam) - InStrRev(Nam, ",") - 1)
Else
    MsgBox "User's name has no comma in it"
End If
End Sub

 

[Peter_SSs]

Another option that you could try

Private Sub Workbook_Open()
  UserForm1.Hello.Caption = " Good " & IIf(Hour(Now) < 12, "Morning ", "Afternoon ") & Trim(Mid("," & Application.UserName, InStrRev("," & Application.UserName, ",") + 1))
  UserForm1.Show
End Sub

 

[Andresuru]

User Name may be as simple as just the first name depending on certain entries made during computer setup. I'd test the user name to ascertain if it contains a comma. Like this:

Sub test()
Dim Nam
Nam = "Mata Oviedo , Carlos"
If InStr(Nam, ",") > 0 Then
    MsgBox Right(Nam, Len(Nam) - InStrRev(Nam, ",") - 1)
Else
    MsgBox "User's name has no comma in it"
End If
End Sub

Hi Joe,

Thanks for reply but I already check the path of the usernames in my workplace and all users has the name after the coma

 

[Andresuru]

Another option that you could try

Private Sub Workbook_Open()
  UserForm1.Hello.Caption = " Good " & IIf(Hour(Now) < 12, "Morning ", "Afternoon ") & Trim(Mid("," & Application.UserName, InStrRev("," & Application.UserName, ",") + 1))
  UserForm1.Show
End Sub

Thanks Peter this works perfectly.

 

[Peter_SSs]

Thanks Peter this works perfectly.

You're welcome. Glad we could help.

I already check the path of the usernames in my workplace and all users has the name after the coma

In that case my code could be simplified a little as I had also built in a safety in case there was no comma.

UserForm1.Hello.Caption = " Good " & IIf(Hour(Now) < 12, "Morning ", "Afternoon ") & Trim(Mid("," & Application.UserName, InStrRev("," & Application.UserName, ",") + 1))
UserForm1.Hello.Caption = " Good " & IIf(Hour(Now) < 12, "Morning ", "Afternoon ") & Trim(Mid(Application.UserName, InStrRev(Application.UserName, ",") + 1))