Concatenate Text To Populate 'Customer ID' Box

[Pacman52]

Hi all, I'm trying to work out how concatenate some text and a date together in VBA on a Userform and dispite many google searches just can't seem to work out how to do this in code if indeed it is actually possible?

So the issue:
On my Userform ("Events") I have 3 text boxes : (1) txtEventName. (2) txtsDate (formatted as a date), (3) txtEventCode

What I'm trying to accomplish is once data has been entered in txtEventName and txtsDate then the txtEventCode box is automatically populated to create an Event Code by joining the data together with a seperator "-"

For example if I enter "Summer Fair" in txtEventName and 23/12/2023 in txtsDate then I would like txtEventCode to automatically be populated with "Summer Fair - 23/12/2023"

The event code will eventually be used so it can be searched upon in case any changes to the data for that event need to be changed. I've done this using a formula in the worksheet but just can't work out how to do this in VBA on the userform.

Thanks in advance for any advice or solutions offered.

Paul

 

[Kerryx]

Book1
	A	B	C
1	txtEventName	txtsDate	txtEventCode
2	Summer Fair	23/12/2023	Summer Fair-23/12/2023
Sheet1

Cell Formulas
Range	Formula
C2	C2	=A2&"-"&TEXT(B2,"dd/mm/yyyy")

 

[Pacman52]

Hi Kerryx thanks so much for the reply, but as mentioned in my original question I already know how to do this in a formula.

What I am trying to work out is how to do the same thing in VBA code so that when a user completes the Userform the event code text box is automatically filled with the combined text value so that once the user clicks the form 'Save' button then all the values in the form go over to the spreadsheet.

Paul

 

[Alex Blakenburg]

Your date should already be a string and correctly formatted so it is a simply a matter of concatenating as you would in Excel ie:

    txtEventCode.Value = txtEventName.Value & " - " & txtsDate.Value

 

[Pacman52]

Your date should already be a string and correctly formatted so it is a simply a matter of concatenating as you would in Excel ie:

    txtEventCode.Value = txtEventName.Value & " - " & txtsDate.Value

Thanks so much Alex - that works perfectly,
as a follow up question, is there a way to only use the first 6 characters of the EventName as an example
The event is "Summer Fair" and the date is 23/12/2023 so the event code would end up being 'Summer - 23/12/2303' ?

 

[Alex Blakenburg]

Sure,

txtEventCode.Value = Trim(Left(txtEventName.Value, 6)) & " - " & txtsDate.Value

 

[Pacman52]

Sure,

txtEventCode.Value = Trim(Left(txtEventName.Value, 6)) & " - " & txtsDate.Value

Fantastic ! thank you so much

 

[Alex Blakenburg]

You're welcome. Glad we could help.

 

[Kerryx]

Hi Kerryx thanks so much for the reply, but as mentioned in my original question I already know how to do this in a formula.

What I am trying to work out is how to do the same thing in VBA code so that when a user completes the Userform the event code text box is automatically filled with the combined text value so that once the user clicks the form 'Save' button then all the values in the form go over to the spreadsheet.

Paul

no problem just misread the question, late night