FUNÇÃO ESQUERDA ( DEFINIR QUANTIDADE DE CARACTER QUE SERÁ GRAVADO)

Question

Boa tarde,

Tenho um cadastro onde digito em uma Textbox determinado numero e ao gravar na planilha eu gostaria que por exemplo na coluna A1 ele gravasse o valor inteiro e na coluna B1 gravasse os 4 primeiros números do valor digitado. 

Cells(1, 1) = TXTRG
Cells(1, 2) = TXTIDENT

Alguém pode me ajudar com algum exemplo?

Desde já agradeço.

Answer 1

 Você pode utilizar a função left.

 

Cells(1, 1).Value = Me.TextBox1.Text
Cells(1, 2).Value = Left(Me.TextBox1.Text, 4)

Answer 2

Perfeito, Deus te abençoe!