Vincular Textbox ao Combobox selecionado

Pessoal me auxiliem nessa dúvida, quero fazer um controle de utilização de armários, existem 200 armários e o uso é alternado.

Já inseri na planilha os armários e criei o combobox para selecionar o número, abaixo existe o textbox para inserir o número de chapa da pessoa que irá utilizar aquele armário.

Não estou conseguindo passar o nome da pessoa para o número correspondente ao selecionado no combobox.

Segue o código usado até aqui:

Private Sub TextBox1_Change()

End Sub

Private Sub btnvincular_Click()
Dim iLin As Long
Dim WS As Worksheet
Set WS = Worksheets(“Armários”)
'Verifica se o usuário foi digitado
If Trim(Me.TxtNC) = “” Then
MsgBox “Informe o Número da Credencial”
Me.TxtNC.SetFocus
Exit Sub
End If
'Escreve os dados na planilha
WS.Cells(1, 2).Value = Me.TxtNC.Value
WS.Columns(“A:B”).AutoFit

'Limpa as caixas de texto e direciona o foco para txtarmario
Me.TxtNC.Value = “”
End Sub

Private Sub txtarmario_Change()

End Sub

Private Sub UserForm_Click()

End Function

Boas substitua por este e veja se dá certo :slight_smile:

Código
Private Sub btnvincular_Click()

    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
    End With

    Dim i As Integer
    Dim armario As Integer
    Dim ncredencial As String

    If Trim(Me.TxtNC) = "" Then
    MsgBox "Informe o Número da Credencial"
    Me.TxtNC.SetFocus
    Exit Sub
    End If

    ncredencial = TxtNC.Value
    armario = txtarmario.Value

    For i = 1 To 200
        If Cells(i, 1).Value = armario Then
            Cells(i, 2).Value = ncredencial
            ActiveSheet.Columns("A:B").AutoFit
            Me.TxtNC.Value = ""
            Exit Sub
        End If
    Next i

    With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .DisplayAlerts = True
    End With

    End Sub
1 Curtida

Deu certo afonso!
Muito obrigado!

1 Curtida

Ora essa, sempre aqui para ajudar :slight_smile: