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,482 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

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

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