Este fórum está sendo desativado

[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.

[alexandrevba]

Bom dia!!

Tente algo como

Código: Selecionar todos

Private 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

[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.

[fernandoazevedo]

Amigo peguei o script do colega anterior e modifiquei verifica se é assim que o senhor quer:

Código: Selecionar todos

Sub 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

[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.

[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 todos

Sub 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