complicated autonumber in textbox based on others multiple textboxes

[MKLAQ]

hi
I have multiple text boxes 2,3,4 contains digits and letters and sometimes symbols . the problem is not always same the digits of numbers and letters and symbols about textbox GOOD the first two letters always contain one space but how many letters somtimes three or four . so what I want as in picture 1 take the first letters in goods BM, and take the first letter in made T and take the whole manafac F580 and take the whole number in goods with ignore letters or symbols contains it .
actually I know this is very complicated and I no know how explain clearly so if that's not clear please inform me what you want to know about detailes
see some cases .

 

[Akuini]

Hi, @MKLAQ
I made an example on sheet not textbox, so you need to adjust it.

Private Sub CommandButton1_Click()
Dim a As String, a1 As String, b As String, c As String, n As String
    a = Range("B2").Value
    a1 = Split(a)(0)

For i = 1 To Len(a)
    If Mid(a, i, 1) Like "#" Then n = n & Mid(a, i, 1)
Next

    b = Range("C2").Value
    c = Left(Range("D2").Value, 1)
    Range("A2") = a1 & c & b & n
End Sub

MKLAQ.xlsm
	A	B	C	D
1	CODE	GOOD	MANFAC	MADE
2	BMTF5801112315	BM 111/23R15	F580	TUR
Sheet1

 

[MKLAQ]

thanks . actually I would that by textboxes when writing in textbox2,3,4 should show the number in textbox1 and when delete one of them should clear in textbox1 . if there is way to do that will be great

 

[Akuini]

I can but amend the to do that. But first I need you to try the code to see if it works.

 

[MKLAQ]

OK . I tested for some cases and it works . I hope there is no problem about others cases

 

[Akuini]

Ok try this:

TextBox1 is CODE
TextBox2 is GOOD
TextBox3 is MANFAC
TextBox4 is MADE

Sub toFill(a As String, b As String, c As String)
Dim n As String
    a1 = Split(a)(0)

For i = 1 To Len(a)
    If Mid(a, i, 1) Like "#" Then n = n & Mid(a, i, 1)
Next

    c = Left(c, 1)
    TextBox1 = a1 & c & b & n

End Sub

Private Sub TextBox2_Change()

    If TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Then
        TextBox1.Value = ""
    Else
         Call toFill(TextBox2.Value, TextBox3.Value, TextBox4.Value)
    End If

End Sub
Private Sub TextBox3_Change()

    If TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Then
        TextBox1.Value = ""
    Else
        Call toFill(TextBox2.Value, TextBox3.Value, TextBox4.Value)
    End If

End Sub
Private Sub TextBox4_Change()

    If TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Then
        TextBox1.Value = ""
    Else
        Call toFill(TextBox2.Value, TextBox3.Value, TextBox4.Value)
    End If

End Sub

the file:

MKLAQ.xlsm

Shared with Dropbox

www.dropbox.com

 

[MKLAQ]

magnificent ! thanks so much

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.

 

[MKLAQ]

sorry I came back but I try making the code implement for multiple textboxes for instance when I write another textbox 6,7,8 then should show the number in textbox5 and if I write in textboxes 10,11,12 then should show the number in textbox 9 and so on I think coping the function and change its name to implement to for each four textboxes , then the userform will continue much more codes . if there is way do that by loop or array to make the code short . it will be a great .

thanks again