Unique ID# with unknown letters

[KDS14589]

I have a userform and I' using this code to fill A textbox (txt_record) with an ID # for that record. As of now it only gives the number of that entry (such as 00146).

Private Sub UserForm_Activate()

Dim sh As Worksheet

Set sh = ShDA01

Dim lr As Long

Dim x As Long

x = ShDA01.Range("C" & Rows.Count).End(xlUp).Row

lr = ShDA01.Range("C" & Rows.Count).End(xlUp).Row



With Txt_Record



.Value = Format(Val(Range("C" & Rows.Count).End(xlUp)) + 1, "00000")

.Enabled = True



End With

End Sub

I have another box (combo_intake_type) that lists the different types of intakes that the user can choose from. This list is expandable from a list accessed by the user.

I wish for that ID # to show the first two letters of the Intake type (combo_intake_type) that has been chosen. Such as if the user chooses 'Geometry' as the next entry the ID # would be 00147-GE , If 'Mechanical' is chosen next the ID # would be 00148-ME

 

[Micron]

maybe
Format(Val(Range("C" & Rows.count).End(xlUp)) + 1, "00000") & "-" & Left(combo_intake_type, 2)

 

[KDS14589]

maybe
Format(Val(Range("C" & Rows.count).End(xlUp)) + 1, "00000") & "-" & Left(combo_intake_type, 2)

it works up to the - but the & Left(combo_intake_type, 2) didn't show up

 

[Micron]

Well, that was just a guess because you revealed nothing about the combo list.
1 column or more?
What's actually in the column(s)?
You'll get no combo value added to the end if nothing was chosen. What should happen if that's the case?

 

[KDS14589]

Well, that was just a guess because you revealed nothing about the combo list.
1 column or more?
What's actually in the column(s)?
You'll get no combo value added to the end if nothing was chosen. What should happen if that's the case?

the combo list is a single column from a dynamic name range 'controls_intake_types' from a table on the worksheet 'controls.general. the user will have access to. Right now, this in 'design' mode so the only values I have in it is 'All',' Geometry' and 'Mechanical' but the user can have whatever and more. If no choice is made in that 'combo_intake_type' the other textboxes on the form will not be visible or enabled. I been thinking the value for that combo_intake_type is after the txt_record in my save data and transfer into the worksheet 'data.all' vba codes. But that investigation is tomorrow night.