Notifications
Clear all

Dados do textbox, preenchendo a listbox.

7 Posts
2 Usuários
0 Reactions
1,174 Visualizações
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal,

Na userform2, eu tenho 5 textbox que, na minha necessidade, os dados descritos neles, preencheriam a listbox1 da userform1.

Como eu faço isso?

Já pesquisei, mas encontrei o contrário, ou seja, os dados da listbox, preenchendo o textbox.

 
Postado : 23/01/2015 11:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Já que você não posta seu modelo, isso significa que não vai ter problema com o código abaixo.

Dentro do módulo do Userform2 ponha o código abaixo!

Private Sub UserForm_Initialize()
Me.ListBox1.AddItem UserForm1.TextBox1.Text & " " & UserForm1.TextBox2.Text & " " & UserForm1.TextBox3.Text & " " & UserForm1.TextBox4.Text & " " & UserForm1.TextBox5.Text
End Sub

Por favor Click na mãozinha!!!!!!!!

Att

 
Postado : 23/01/2015 1:38 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Amanha te darei retorno. O meu expediente esta no fim.

 
Postado : 23/01/2015 2:27 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Alexandre,

Estamos quase lá.

Eu usei o código sugerido por você, mas o mesmo preenche os dados dos textbox's e combobox's tudo na mesma coluna da listbox.

Eu também fiz o teste colocando-o no botão Inserir da Userform2, ficando da seguinte forma:

UserForm1.ListBox1.AddItem UserForm2.TextBox1.Text & " " & UserForm2.TextBox2.Text & " " & UserForm2.TextBox3.Text

Mas a situação persistiu, ou seja, todos os dados foram inseridos na mesma coluna da userfom1.listbox1. Vale ressaltar que a listbox em questão possui as colunas necessárias.

O que devo fazer?

 
Postado : 24/01/2015 4:57 am
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Alexandre,

Consegui adaptar o código que você sugestionou. Veja abaixo:

UserForm21.ListBox1.ColumnCount = 7

UserForm1.ListBox1.List(0, 0) = UserForm2.TextBox1.Text
UserForm1.ListBox1.List(0, 1) = UserForm2.TextBox2.Text
UserForm1.ListBox1.List(0, 3) = UserForm2.TextBox3.Text

 
Postado : 24/01/2015 5:17 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja os métodos de adicionar as colunas com exemplos.
http://software-solutions-online.com/20 ... listboxes/

Eu sinceramente não entendo oque você quer.

Att

 
Postado : 24/01/2015 6:57 am
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Alexandre,

Eu não consegui acessar esse link, pois estou na empresa e, alguns sites, são proibidos.

Volto a explicar a minha necessidade, tentarei ser mais claro.

Os textbox's e combobox da userform2, preenchem a listbox da userform1.

Para isso, eu uso o código abaixo:

UserForm1.ListBox1.List(0, 0) = UserForm2.TextBox1.Text
UserForm1.ListBox1.List(0, 1) = UserForm2.TextBox2.Text
UserForm1.ListBox1.List(0, 2) = UserForm2.TextBox3.Text

Até ai, tudo bem!

Mas, depois que eu inseri um cabeçalho na listbox, não sei por qual motivo, ocorre o seguinte erro:

 
Postado : 24/01/2015 8:46 am