Split First and Last name from ListBox into its respective cells

[marimar02]

Hello,

what is the simplest way to split a (First and Last Name) value from UserForm ListBox when transferring to its respective cells (First Name column "D" and Last Name into column "E").

basically, my ListBox takes a list of Full Names from one range, I select that full name in ListBox and transfer to column "D", however with my current code, Full Name appears under First Name until I do another code to split it. I was hoping for simpler solution if it existed.

Private Sub cmdAssign_Click()

'lstBox1 contains Full name that needs to be separated into selected cell as First Name and next to selected cell as Last Name'
Selection.Value = lstBox1.Value

Unload UF_Names

End Sub

 

[Norie]

Use split with space as delimiter to split out the first and last name, and resize the destination to 2 columns.

Private Sub cmdAssign_Click()

    'lstBox1 contains Full name that needs to be separated into selected cell as First Name and next to selected cell as Last Name'
    Selection.Resize(, 2).Value = Split(lstBox1.Value, " ")

    Unload UF_Names

End Sub

 

[marimar02]

 

[marimar02]

Use split with space as delimiter to split out the first and last name, and resize the destination to 2 columns.

Private Sub cmdAssign_Click()

    'lstBox1 contains Full name that needs to be separated into selected cell as First Name and next to selected cell as Last Name'
    Selection.Resize(, 2).Value = Split(lstBox1.Value, " ")

    Unload UF_Names

End Sub

MAGIC. Thank you so much...