Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Carregar Listbox1 e...
 
Notifications
Clear all

Carregar Listbox1 e sub-grupo no ListBox2

 
2024 - VBA & Macros
Post Recente por Miguel 70 9 anos atrás
3 Posts
1 Usuários
0 Reactions
798 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Ola boa noite,
preciso da ajuda dos senhores. Tenho UserForm com duas Listbox e um OptionButton1_Click;
Ao clicar OptionButton1_Click carrega O ListBox1 sem erro

Private Sub OptionButton1_Click()
Me.ListBox1.List = Application.WorksheetFunction.Transpose(Plan1.Range("D5:D25"))
End Sub

Agora como levar a informação do item do ListBox1_Click para o ListBox2?
estas informações esta lado a lado na Plan1.Range("E5:E25")),

Obrigado.

 
Postado : 04/12/2015 9:20 pm
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Disponho de um modelo.

exemplo.xlsm
 
Postado : 05/12/2015 4:38 am
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Obrigado a todos pela atenção, conseguir resolver.

Private Sub listbox1_Click()
TextBox1 = Clear 'troquei ListBox2 pelo TextBox1 facilitar quebrar linha de texto
sinonimo = ListBox1
linha = 5
Do Until Plan1.Cells(linha, 4) = ""
If Plan1.Cells(linha, 4) = sinonimo Then
TextBox1 = Plan1.Cells(linha, 5)
linha = linha + 1
Else
linha = linha + 1
End If
Loop
End Sub

Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.WorksheetFunction.Transpose(Plan1.Range("D5:D54"))
End Sub
 
Postado : 06/12/2015 4:54 am
Forum Jump:
  Tópico Anterior
Próximo Tópico