Boa noite!!

Tente segui um raciocionio próximo disso ou melhor.

Private Sub CommandButton1_Click() 
    Dim s As String 
    s =TextBox1.Value  & TextBox2.Value & TextBox3.Value 
     
    MsgBox s 
End Sub 

Não testado!!!!!!!!!!!!

Att

Alexandre, obrigado por me atender, mas não deu certo, não aparece nada, adaptei no botão "Novo" do meu UserForm para quando acionado libera os textboxes e comboboxes.

silvajmp

Eu ainda não entendi. Mas talvez algo assim:

 Private Sub Novo_Click()
Dim vMasc1 As String, vCombo1 As String
    vMasc1 = "UVA_": vCombo1 = "14/15_"
    TextBox1.Text = vMasc1 & TextBox2.Text & ComboBox1.Value & vCombo1 & "_x"
End Sub

Reinaldo obrigado por me atender, coloquei seu código e a mascara fixa funcionou, mas quando seleciono as opções das caixas comboboxes não esta concatenando. Estou adaptando neste código.

Private Sub btnNovo_Click()
Dim z As Long
Dim vMasc1 As String, vCombo1 As String
    vMasc1 = "UVA_": vCombo1 = "14/15_"
    txtIDServ.Text = vMasc1 & cmbSetor.Value & cmbOficina.Value & vCombo1 & "_x"

        z = Application.Max(Sheets("BCODADOS").Range("A:A")) + 1
                With frmOrcamento
                .lblNro.Caption = z
                End With
                
             'Habilita botoes de alteraçao
             Me.cmbSetor.BackColor = &HFFFFFF
             Me.cmbSetor.Locked = False
             Me.cmbMIS.BackColor = &HFFFFFF
             Me.cmbMIS.Locked = False
             Me.txtEquipamento.BackColor = &HFFFFFF
             Me.txtEquipamento.Locked = False
             Me.cmbTpSer.BackColor = &HFFFFFF
             Me.cmbTpSer.Locked = False
             Me.txtIDServ.BackColor = &HFFFFFF
             Me.txtIDServ.Locked = False
             Me.txtIDETC.BackColor = &HFFFFFF
             Me.txtIDETC.Locked = False
             Me.txtDescSer.BackColor = &HFFFFFF
             Me.txtDescSer.Locked = False
             Me.cmbOficina.BackColor = &HFFFFFF
             Me.cmbOficina.Locked = False
             Me.cmbTpReq.BackColor = &HFFFFFF
             Me.cmbTpReq.Locked = False
             Me.txtIDItem.BackColor = &HFFFFFF
             Me.txtIDItem.Locked = False
             Me.txtCodigo.BackColor = &HFFFFFF
             Me.txtCodigo.Locked = False
             Me.txtDescReq.BackColor = &HFFFFFF
             Me.txtDescReq.Locked = False
             Me.txtQuantidade.BackColor = &HFFFFFF
             Me.txtQuantidade.Locked = False
             Me.txtUn.BackColor = &HFFFFFF
             Me.txtUn.Locked = False
             Me.txtCustoUnitario.BackColor = &HFFFFFF
             Me.txtCustoUnitario.Locked = False
             Me.txtCustoTotal.BackColor = &HFFFFFF
             Me.txtCustoTotal.Locked = False
             Me.cmbPrEnt.BackColor = &HFFFFFF
             Me.cmbPrEnt.Locked = False
      
        cmbTpReq.SetFocus
        
End Sub

silvajmp

Bem continuo ainda sem entender.
O Codigo adaptado, faz a concatenação e "libera e colore" botões, isso não afeta a concatenação.
Como aparentemente nesse momento cmbSetor e cmbOficina bem como a variável X ainda não tem valores, então em txtIDServ deve aparecer somente Vmasc1 e vCombo1.
Então em algum evento dos cmb envolvidos é necessário incluir a rotina de concatenação.
Sugestão:
Montar uma rotina de concatenação, tipo:

Private Sub BtnConcat()
Dim vMasc1 As String, vCombo1 As String
vMasc1 = "UVA_": vCombo1 = "14/15_"
txtIDServ.Text = vMasc1 & cmbSetor.Value & cmbOficina.Value & vCombo1 & "_x"
End Sub

Nas rotinas: Sub btnNovo_Click() e nos eventos after update ou change dos cmbSetor e cmbOficina chamar a rotina BtnConcat
+/- assim:

Private Sub btnNovo_Click()

Call BtnConcat
frmOrcamento.lblNro.Caption = Application.Max(Sheets("BCODADOS").Range("A:A")) + 1
                   
'Habilita botoes de alteraçao
Me.cmbSetor.BackColor = &HFFFFFF
Me.cmbSetor.Locked = False
Me.cmbMIS.BackColor = &HFFFFFF
Me.cmbMIS.Locked = False
Me.txtEquipamento.BackColor = &HFFFFFF
Me.txtEquipamento.Locked = False
Me.cmbTpSer.BackColor = &HFFFFFF
......

Reinaldo bom dia, deu certo sua última postagem, mas como ficaria se eu busca-se "UVA" na Plan3(Parâmetros) G2 e "14/15" na Plan3(Parâmetros) F2, pois assim posso alterar a unidade da empresa e o ano letivo quando necessário.

silvajmp

vMasc1 = sheets("Parâmetros").range("G2").value ' "UVA_"
vCombo1 =sheets("Parâmetros").range("F2").value ' "14/15_"

Reinaldo deu certo, agora estou tentando concatenar somente as iniciais do setor, mas só consegui fazer a extração do das 3 primeiras, seja o exemplo:

EXTRAÇÃO DE CALDO = Quero extrair somente os que estão em destaque.

txtIDServ.Text = vMasc1 & "_" & Left(cmbSetor.Value, 3) & Right(cmbSetor.Value, 3) & "_" & cmbOficina.Value & "_" & vCombo1 & "-" & vNro

silvajmp

Experimente

Separa = Split(cmbSetor.Value, " ", -1, vbTextCompare)
txtIDServ.Text = vMasc1 & "_" &  Left(separa(LBound(separa)), 3) & Left(separa(UBound(separa)), 2) & "_" & cmbOficina.Value & "_" & vCombo1 & "-" & vNro

Reinaldo não deu certo esta aparecendo a mensagem Erro em tempo de execução '9 e depurando esta destacando em amarelo a linha baixo:

txtIDServ.Text = vMasc1 & "_" &  Left(separa(LBound(separa)), 3) & Left(separa(UBound(separa)), 2) & "_" & cmbOficina.Value & "_" & vCombo1 & "-" & vNro

silvajmp

Quando o erro ocorre?

Reinaldo assim que acionei o botão Novo.

silvajmp

Então provavelmente é por não haver ainda valor em cmbSetor.
Deve haver um tratamento:
Algo assim:
If cmbsetor.value="" then
concatena só básico. (creio que vmasc/vcombo1/vnro)
else
oconcatena o final
endif

Reinaldo deu certo, eu acho que este caso das concatenações terminaram.

Valeu!

silvajmp