Página 1 de 1
VBA -Quebra de Caracteres do TextBox e atribuir a uma celula
Enviado: 29 Jan 2016 às 07:52
por glaubermoraes
Fala Galera!
Tenho em um TextBox numeros separados por virgulas segue exemplo abaixo:
1010,1009,1007,1048
Preciso pegar todos o texto do text e separar para colar em células diferentes, sempre serão 4 numeros e 1 espaço = total 5 caracteres.
Lembrando que irei colar em células diferentes, pensei em um laço for pegando o total de numeros no text e dividir por 5 ai a cada caracteres colaria na célula desejada.
Mas não sei como fazer.
Valeu pessoal.
Re: VBA - Pegar Todo o Texto do TextBox
Enviado: 29 Jan 2016 às 08:57
por alexandrevba
Bom dia!!
Tente algo como
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim text As String
Dim a As Integer
Dim name As Variant
text = TextBox1.Value
name = Split(text, ";")
For a = 0 To UBound(name)
Cells(1, a + 1).Value = name(a)
Next a
End Sub
Att
VBA - Pegar Todo o Texto do TextBox
Enviado: 29 Jan 2016 às 10:58
por glaubermoraes
Obrigado Alexandre, mais não funfou.
vou colocar um exemplo.
Textbox1 eu tenho "1040, 1041, 1042, 1043"
quero pegar todo os caracteres e quebrar ele em 5 pois sempre haverá um espeço depois da virgula.
exemplo
pego o 1040 e colo na celula A3 e assim em diante.
não tenho noção de como fazer isso.
Re: VBA - Pegar Todo o Texto do TextBox
Enviado: 29 Jan 2016 às 11:13
por fernandoazevedo
Amigo peguei o script do colega anterior e modifiquei verifica se é assim que o senhor quer:
Código: Selecionar todosSub Desmembrar()
Dim text As String
Dim a As Integer
Dim name As Variant
text = Worksheets(1).TextBox1.Value
name = Split(text)
For a = 0 To UBound(name)
Cells(a + 1, 1).Value = name(a)
Next a
End Sub
VBA -Quebra de Caracteres do TextBox e atribuir a uma celula
Enviado: 29 Jan 2016 às 13:28
por glaubermoraes
eu pensei em fazer com uma string, atribuia os caracteres do textbox a uma string e depois pegaria as 5 primeiras em seguida exclua as 5 primeiras, ai eu faria um for ate a string ficar vazia. Exemplo.
dim idswi as string
idswi = txtidswitchs.text ' aqui tenho o texto escrito no campo
ai nao saio disso nao sei como proseguir.
VBA -Quebra de Caracteres do TextBox e atribuir a uma celula
Enviado: 29 Jan 2016 às 14:45
por fernandoazevedo
Amigo o senhor viu o código que eu coloquei acima acredito que resolve o seu problema, se você quer limpar o objeto textbox.
Caso queira limpar Após o Loop insira.
ficando assim
Código: Selecionar todosSub Desmembrar()
Dim text As String
Dim a As Integer
Dim name As Variant
text = Worksheets(1).TextBox1.Value
name = Split(text)
For a = 0 To UBound(name)
Cells(a + 1, 1).Value = name(a)
Next a
Worksheets(1).TextBox1.Value = ""
End Sub