Fóruns
Microsoft Excel - 2...
Formulários
Carregar combobox e...
 
Notifications
Clear all

Carregar combobox e preencher textbox

 
Formulários
7 Posts
2 Usuários
0 Reactions
1,883 Visualizações
RSS
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Boa tarde Pessoal,

Eu uso o código abaixo para carregar uma lista na minha planilha em uma combobox , como posso adaptar ao código para quando eu selecionar o valor da coluna A (OP) possa carregar na textbox ao lado a coluna B (material)

Private Sub UserForm_Initialize()
linha = 2

Do Until Sheets("Remessa").Cells(linha, 1) = ""
cmbfiltro.AddItem Sheets("Remessa").Cells(linha, 1)
linha = linha + 1
Loop
End Sub

Welington Gonçalves

 
Postado : 22/08/2014 10:08 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você pode usar o vlookup ...
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/08/2014 10:46 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Ou tente o metodo Find.

Private Sub ComboBox1_Change()
 Dim Found As Range
    Dim str As String
    str = Me.ComboBox1.Value

    Set Found = Worksheets("Remessa").Range("A2", Range("A" & Rows.Count).End(xlUp)).Find(str)
    If Found Is Nothing Then
        MsgBox ("Código não encontrado!")
    Else
        Exit Sub
    End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/08/2014 10:54 am
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

No método find, onde entraria a minha textbox?

Welington Gonçalves

 
Postado : 22/08/2014 11:12 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Opss :oops: :oops: 

Private Sub ComboBox1_Change()
Dim Found As Range
    Dim str As String
    str = Me.ComboBox1.Value

    Set Found = Worksheets("Remessa").Range("A2", Range("A" & Rows.Count).End(xlUp)).Find(str)
    If Found Is Nothing Then
        MsgBox ("Código não encontrado!")
    Else
        Me.TextBox1.Value = Cells(Found.Row, 2).Value 'Aqui
    End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/08/2014 11:31 am
wfranca
 wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Perfect!! Vlww

Welington Gonçalves

 
Postado : 22/08/2014 12:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fico feliz que resolveu, obrigado pelo retorno!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/08/2014 12:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico