Split Cell With Hyphen Into Two Textboxes

[Reafidy]

Hi Everyone.

I have a cell containing a hyphen with data like cars - buses.

I have a userform set up with 2 text boxes. What I would like to do is when loading the userform put the information from the cell before the hyphen in one textbox and the information after the hyhen in another text box. ie one textbox would have cars the other textbox would have buses.

Anyhelp much appreciated.

[iwrk4dedpr]

reafidy,

strValue = "cars - buses" 
TextBox1 = split(strValue," - ")(0) 
TextBox2 = split(strValue," - ")(1) 

[Arthur494]

iwrk4dedpr got there before me; and much more elegantly!

You might also consider using Trim() to trim any leading or trailing spaces. Also, although VBA allows you to write "TextBox1 = xxx", it is technically correct to write "TextBox1.Value = xxx"

Option Explicit 
 
Private Sub UserForm_Activate() 
    Dim StrValue As String 
     
    StrValue = "   cars  -   buses    " 
    TextBox1.Value = Trim(Split(StrValue, " - ")(0)) 
    TextBox2.Value = Trim(Split(StrValue, " - ")(1)) 
     
End Sub 

[Reafidy]

Perfect, big thanks to you.