Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Pesquisa através da...
 
Notifications
Clear all

Pesquisa através da ComboBox

 
2024 - VBA & Macros
Post Recente por Paulo_001 10 anos atrás
4 Posts
3 Usuários
0 Reactions
924 Visualizações
RSS
 Paulo_001
(@paulo_001)
Posts: 149
Estimable Member
Topic starter
 

Olá,
Venho mais uma vez recorrer as mentes sagazes dos srs.
Queria poder concluir um projeto no qual estou tentando, através de um userform prencher dados de acordo com o item selecionada na combobox.
Consigui seguir somente até a metade do caminho. Meu codigos não estão fazendo eu que tinha imaginado. Por exemplo:
Ao Selecionar um item na Dropdown da comboboxCodigo por exemplo, gostaria que a comboboxDescrição fosse preenchida com a descrição que pertence ao código e a textbox com ua unidade de medida que pertence ao código e a descrição
E vice e versa.
Que a comboboxCodigo fosse preenchida com a descrição que foi dada, mas infelizmente não sei como seguir. Alguem teria uma solução?

CONTROLE PAPELARIA - macros.zip
 
Postado : 13/10/2014 12:10 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Acredito que seja isso:

Sub ComboBoxCodigo_Change()

Application.EnableEvents = False

Dim linha As Long
Dim UL As Long

UL = Cells(Rows.Count, "A").End(xlUp).Row

linha = Application.Match(CDec(ComboBoxCodigo.Value), Range("A3:A" & UL).Value, 0)

ComboBoxDescrição.Value = Application.WorksheetFunction.Index(Range("B3:B" & UL), linha)

Application.EnableEvents = True

End Sub

Sub ComboBoxDescrição_Change()

Application.EnableEvents = False

Dim linha As Long
Dim UL As Long

UL = Cells(Rows.Count, "B").End(xlUp).Row

linha = Application.WorksheetFunction.Match(ComboBoxDescrição.Value, Range("B3:B" & UL))

ComboBoxCodigo.Value = Application.WorksheetFunction.Index(Range("A3:A" & UL), linha)

Application.EnableEvents = True

End Sub

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 13/10/2014 12:32 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma alternativa seria:

Private Sub Pesquisar()

Application.ScreenUpdating = False

Dim a As Integer
a = Me.ComboBoxCodigo.ListIndex + 3
Me.ComboBoxDescrição.Value = Sheets("Dados").Range("B" & a).Value
Me.TextBoxUnidade = Sheets("Dados").Range("C" & a).Value

Application.ScreenUpdating = True

End Sub

Private Sub Pesquisar2()
Application.ScreenUpdating = False

Dim a As Integer
a = Me.ComboBoxDescrição.ListIndex + 3
Me.ComboBoxCodigo.Value = Sheets("Dados").Range("A" & a).Value
Me.TextBoxUnidade = Sheets("Dados").Range("C" & a).Value

Application.ScreenUpdating = True

End Sub

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

 
Postado : 13/10/2014 12:38 pm
 Paulo_001
(@paulo_001)
Posts: 149
Estimable Member
Topic starter
 

Muito obrigado!
Vcs são realmente feras!

 
Postado : 13/10/2014 12:44 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico