Pesquisa através da ComboBox

2024 - VBA & Macros

Post Recente por Paulo_001 10 anos atrás

4 Posts

3 Usuários

0 Reactions

932 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

(@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