Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Transferir dados li...
 
Notifications
Clear all

Transferir dados listbox para textbox

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
10 Posts
3 Usuários
2 Reactions
2,478 Visualizações
RSS
 brunsftw
(@brunsftw)
Posts: 93
Estimable Member
Topic starter
 

Boa tarde!
Preciso de um botão que trasfira para um textbox os dados selecionados de um listbox.
Achei esse código em um fórum que funciona perfeitamente como eu preciso, mas ele funciona em um arquivo em access.

Option Compare Database

Private Sub btAdd_Click()

Call BoundData

End Sub

Sub BoundData()

    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!frmListBox
    Set ctl = frm!CaixaDeListagem
    
Me.CaixaDeTexto = Null

    For Each varItm In ctl.ItemsSelected 'eis o salvador da Pátria. Mais informações coloque o cursor no meio da palavra ItemsSelected e aperte F1.
    
    If IsNull(Me.CaixaDeTexto) Or Me.CaixaDeTexto.Value = "" Then
         Me.CaixaDeTexto = ctl.ItemData(varItm)
         
       Else
       
         Me.CaixaDeTexto = Me.CaixaDeTexto & ", " & ctl.ItemData(varItm)
       End If
                
    Next varItm
    
End Sub
 
Postado : 09/11/2015 11:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja:
http://cse.google.com.br/cse?cx=partner ... %20textbox

Poste seu arquivo modelo compactado!!

Seria para passar todos os dados do Listbox para dentro de um TextBox?

Ou passar apenas o valor ativo (selecionado) do Listbox para dentro de um TextBox?

Att

 
Postado : 09/11/2015 12:38 pm
 brunsftw
(@brunsftw)
Posts: 93
Estimable Member
Topic starter
 

Oi, Alexandre!
Eu gostaria que somente fosse para o textbox os valores selecionados.

teste.rar
 
Postado : 09/11/2015 1:24 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

De qual o nome do userForm, nome do textBox, nome Listbox, você está se referindo ?

Você tem 4 UserForm etc...

Att

 
Postado : 09/11/2015 1:28 pm
 brunsftw
(@brunsftw)
Posts: 93
Estimable Member
Topic starter
 

Não entendi muito bem sua pergunta, mas vou tentar responder mesmo assim.
Quando você chama o formulário (userform1) tem um botão pra preencher a lista com os dados para o ListBox1. Quando os dados da lista forem selecionados, eu gostaria que os dados fossem transferidos para o textbox (TextBox1) abertando o botão confirmar.

 
Postado : 09/11/2015 1:38 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

brunsftw,

Boa tarde!

Veja se é assim.

Itens do ListBox levados para TextBox.zip
 
Postado : 09/11/2015 1:43 pm
pedrobb reacted
 brunsftw
(@brunsftw)
Posts: 93
Estimable Member
Topic starter
 

Boa tarde, Wagner.
Obrigado pela ajuda. É quase isso.
Eu vou colocar em anexo meu arquivo em access. Acho que fica melhor para visualizar.
Só preciso dessa mesma lógica em excel haha

listbox multipla seleção.zip
 
Postado : 09/11/2015 1:53 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

OK.

Assim?

Itens do ListBox levados para TextBox.zip
 
Postado : 09/11/2015 2:55 pm
pedrobb reacted
 brunsftw
(@brunsftw)
Posts: 93
Estimable Member
Topic starter
 

Sim!!!!!
Obrigado, Wagner!
Me ajudou muito.

 
Postado : 09/11/2015 4:22 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Por gentileza, vote positivamente.

 
Postado : 09/11/2015 7:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico