Excel Preencher Caixa de Texto com Base na Seleção de Combobox em UserForm no Excel

[JCSNF]

Boa Tarde,

Estou precisando de uma ajuda na programação do VBA no Excel, já pesquisei e não achei o que me atende.

 

Criei uma planilha (Plan1) com dois campos: Código e Descrição, abri o VBA e criei um Userform1 com dois campos:

 

Combobox1 e um TextBox1.

 

Na planilha coloquei  campos "Codigo e Descrição para usar na coluna J e K  (Figura tabela do codigo e descrição)

 

Para preencher a comboBox1 , cliquei no UserForm1 e coloquei no evento initialize o seguinte código. (Figura Layout4)

lin = 3
  Do Until Sheets("Plan1").Cells(lin, 10) = ""    'Codigo da munição
     ComboBox1.AddItem Sheets("Plan1").Cells(lin, 10)
     lin = lin + 1
  Loop
End Sub

 

Com isso quando executar e clicar no Combobox1 aparece o codigo. (Figura layout2)

 

O que preciso é que quando fizer isso, automaticamente no TextBox1 aparece a descrição.

QUem puder me ajudar , desde já agradeço e peço que explique onde sera colocado o comando , se é no mesmo evento initialize ou  outro.

A os dados do userform só serão passados para a planilha , clicando no botão incluir.

 

[Visitante]

Sugestão: disponibilize uma amostra compactada do seu arquivo Excel com o Form e os códigos. Figuras/imagens não servem.