Olá boa tarde adaptei um modelo de textbox que envia os dados para o listbox ao preencher o terceiro textbox, porem começou apresentar erro ao tentar jogar os dados após a primeira linha também não tá aceitando letras e números, precisaria consertar esse codigo para colocar varias linhas uma abaixo da outra no listbox e que que aceite letras numeros ao prencher o ultimo textbox e dar Enter, alguem pode me ajudar nisso?
Segue o arquivo em anexo:
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Melhorias do textbox para o listbox
Moderador: joseA
Melhorias do textbox para o listbox
- Anexos
-
- TextBox para ListBox Dê Enter.rar
- (17.63 KiB) Baixado 334 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Melhorias do textbox para o listbox
Experimente:
Ao "chamar" a rotina "retorna..." altere Cint para CStr
Na Function "retorna..." altere o tipo esperado de integer para string
Ao "chamar" a rotina "retorna..." altere Cint para CStr
Código: Selecionar todos
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox3 <> "" Then
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
retornaUserForm1 CStr(TextBox3)
End If
End If
End Sub
Código: Selecionar todos
Function retornaUserForm1(ByVal vCodigo As String)
Dim i
i = Me.ListBox1.ListCount
Me.ListBox1.AddItem TextBox1.Text
ListBox1.List(i, 0) = TextBox1.Text
ListBox1.List(i, 1) = TextBox2.Text
ListBox1.List(i, 2) = TextBox3.Text
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Function