Então Mauro, por falha minha, eu esqueci de dizer que não era o Procv do Excel, e sim do proprio Vba (VLookup) que segue aquele modelo:
Application.WorksheetFunction.VLookup((ComboBox1), Plan1.Range("B2:Q45"), 3, 0)
Sabe?
Pra facilitar, estou anexando o arquivo para os amigos verificarem.
O que se passa é no Form "pedido".
Eu quero que, ao selecionar a Combobox1, ele jogue na Textbox do Codigo do produto, a numeração que represente ele (Planilha Cadastro_produtosth)
Se puder dar uma olhada Mauro, ficaria muito grato meu caro!
Segue o link do arquivo: http://www.4shared.com/zip/lI3IfuPk/projeto_cad_clientes_1.html
Forte abraço!
Olá
Bem se eu bem entendi, você está querendo popular textbox de acordo com um resultado de uma Combobox.
Se esse for o caso, eu faria de outra maneira veja se isso te ajuda.
Abaixo este código irá dar um noma para uma lista. No seu caso:
Sheets(5).Range("B2").select
Range(ActiveCell, Cells(1048576, ActiveCell.Column).End(xlUp)).Name = "nomesdosprodutos"
Em seguinda você deverá fazer com que essa lista seja linkada a uma combobox. No seu caso a Combobox1 (pelo oq entendi)
Private Userform_Initialize
Pedido.ComboBox1.RowSource = "nomedosprodutos"
End sub
Agora que temos valores carregados na Combobox podemos usar ela para fazer a procura e preencher as outras caixas de texto.
Application.ScreenUpdating = False
Sheets(5).Select
Sheets(5).Range("B2").Select 'estou presumindo que era essa lista que era para estar na combobox e era ela que q rege a procura.
Do While ActiveCell <> Empty 'desce a lista, quando for igual para e preenche as textboxs que deseja.
If ActiveCell.Text = Pedido.ComboBox1.Value Then
For i=1 to 10 ' esse valor de 10 coloquei arbitrariamente que seriam teoricamente 10 textbox que iria preencher.
Pedidos.Controls("Textbox" & i ) = Activecell.offset(0, i) 'de novo assumindo que suas texbox e os offset delas esteja alinhados (q é pouco provável)
Next i
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
Esse exemplo acima está com a ideia principal, as constantes precisam da sua atenção para alinha tudo, mas enfim acho que assim, vc preenche suas textboxes sem a necessidade de vlookup.
Qualquer dúvida so falar.
abço
Postado : 25/06/2013 2:48 pm