luli,

Boa tarde!

Pelo menos para mim... sua explicação está muito confusa. O que você realmente quer? Você quer carregar no combobox que está no userform o código e a descrição juntos? É isso?

Entendo,

quero usar esse codigo abaixo para carregar uma combobox e ao mesmo tempo inserir informação a uma textbox,

Dim Lin As Long
Dim Col As Long

Sheets("Cadastro_de_Produtos").Select
Lin = 3
Col = 2
While Cells(Lin, Col) <> ""

ComboboxDescProduto1.AddItem (Cells(Lin, Col))<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Lin = Lin + 1
Wend

luli,

Esse código carrega para o combobox todos os dados que estão na coluna B, à partir da linha 3, da aba "Cadastro_de_Produtos". O objeto TextBox só aceita uma informação por vez. Desse modo, para carregar um valor no TextBox, referente a um item do ComboBox, um item do ComboBox deve estar selecionado para que isso ocorra.

Não sei se ficou claro para você. O fato é que ao carregar os dados do Combo, não dá para carregar dados para o TextBox.

Boa tarde, Professor Wagner

Hoje uso este codigo abaixo para carregar a combobox com a textboxcodproduto

Private Sub UserForm_Initialize()

'Worksheets("Cadastro_de_Produtos").Select
'Range("L3").Select
'totaldelinhas = Worksheets("Cadastro_de_Produtos").UsedRange.Rows.Count
'
ComboboxDescProduto1.RowSource = "Cadastro_de_Produtos!b3:b" & totaldelinhas
ComboboxDescProduto1.RowSource = "Cadastro_de_Produtos!b3:b" & totaldelinhas
ComboboxDescProduto1.RowSource = "Cadastro_de_Produtos!b3:b" & totaldelinhas


End sub

Private Sub ComboboxDescProduto1_Change()

    Worksheets("Cadastro_de_Produtos").Select
       Range("b2").Select
    totaldelinhas = Worksheets("Cadastro_de_Produtos").UsedRange.Rows.Count
For i = 0 To totaldelinhas
If cmbAmbienteI.ListIndex = i Then
    txtCodProduto = Cells(i + 2, 2)
   ComboboxDescProduto1 = Cells(i + 2, 3)

Exit Sub
End If
Next
End Sub



---------------------------------------------------------------------------------------------------------------------------
com esse codigo acima eu carrego minha combobox e tambem alimento a textbox referente

Gostaria de adaptar este codigo abaixo para fazer a mesma coisa , mas usando AddItem 

Dim Lin As Long
Dim Col As Long

Sheets("Cadastro_de_Produtos").Select
Lin = 3
Col = 2
While Cells(Lin, Col) <> ""

ComboboxDescProduto1.AddItem (Cells(Lin, Col))<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Lin = Lin + 1
Wend

Como sou leigo no vba nã consigo ter o domínio de fazer essa analise, conto com a ajuda do forum...

atenciosamente,