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
; porém vou colocar mesmo assim o 
..
...
