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,489 Visualizações
RSS
 brunsftw
(@brunsftw)
Posts: 93
Trusted 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
 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

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

 
Postado : 09/11/2015 12:38 pm
 brunsftw
(@brunsftw)
Posts: 93
Trusted 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
 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

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

 
Postado : 09/11/2015 1:28 pm
 brunsftw
(@brunsftw)
Posts: 93
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

brunsftw,

Boa tarde!

Veja se é assim.

Itens do ListBox levados para TextBox.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/11/2015 1:43 pm
pedrobb reacted
 brunsftw
(@brunsftw)
Posts: 93
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

OK.

Assim?

Itens do ListBox levados para TextBox.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 09/11/2015 2:55 pm
pedrobb reacted
 brunsftw
(@brunsftw)
Posts: 93
Trusted Member
Topic starter
 

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

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

Por gentileza, vote positivamente.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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