Extrair valor de um Textbox

2024 - VBA & Macros

Post Recente por Alvaro 7 anos atrás

5 Posts

2 Usuários

0 Reactions

1,119 Visualizações

RSS

Alvaro

(@alvaro)

Posts: 78

Trusted Member

Topic starter

Boa tarde pessoal, tudo bem com vocês?
Bom a minha dúvida hoje é a seguinte:

Em um TextBox eu tenho o seguinte valor: 001-2017-07
Eu queria saber se tem como com uma macro extrair esse valor da seguinte forma:
Em um Label01, iria o valor: 001
Em um Label02, iria o valor: 2017
Em um Label03, iria o valor: 07

Desde já, muito obrigado!!
Ótima sexta-feira para vocês e um ótimo final de semana.

Postado : 28/07/2017 2:34 pm

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Boa tarde.
Supondo que os Labels ficaram com os nomes padrão (Label1,Label2,Label3) e o textbox também ( Textbox1), teste o seguinte dentro do evento click de um botão no userform:

Dim stxt() As String

stxt = VBA.Split(Me.TextBox1.Text, "-")

For a = LBound(stxt) To UBound(stxt)

Me.Controls("Label" & a + 1).Caption = stxt(a)

Next a

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 28/07/2017 3:07 pm

Alvaro

(@alvaro)

Posts: 78

Trusted Member

Topic starter

Ola Wzxnet7, muito obrigado por sua atenção. Mas eu não consegui adaptar a macro para minha situação.
Na verdade onde eu coloquei Textbox1, seria Label7.
E

Label1 seria Label 28
Label2 seria Label 29
Label3 seria Label 30

Me perdoa por não ter colocado os dados antes, eu achei que não teria problemas rsrs

Muitissimo obrigado por sua atenção meu amigo.

Postado : 28/07/2017 4:01 pm

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Boa noite.
Tente o seguinte, se não conseguir, poste seu arquivo modelo.

Dim stxt() As String

stxt = VBA.Split(Me.TextBox1.Text, "-")

For a = LBound(stxt) To UBound(stxt)

Me.Controls("Label" & a + 28).Caption = stxt(a)

Next a

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 28/07/2017 5:08 pm