Manter zeros a esquerdas - Textbox para planilha

Question

Olá Pessoal.

Tenho alguns textboxes em um formulário que podem ter zeros a esquerda, como a agência bancária. Quando o valor é passado para a planilha os zeros desaparecem. Já tentei um monte de coisa, como alterar o formato de número para texto, mas nada deu certo.

Como posso resolver isto?

O nome do campo é tbAgencia.

Muito obrigado!
Michel Macário

Answer 1

Michel, 

Simulei aqui e formatando a célula como texto resolveu, mesmo lançando o valor da textbox como .Value e .Text.

Em alguns casos, quando não quero formatar a célula e sei que o número estará nessa situação eu uso uma aspa simples ( ' ) antes do Valor.

cells(1,1).value = "'" & tbAgencia.Value

Até agora me ajudou.

---

Natan

Answer 2

Vlw Natan!!!

Foi a única forma que funcionou aqui!

Michel Macário

Answer 3

Normalmente uso algo como:

Range("A1").Value = CStr(TextBox1.Value)

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Esta solução não funciona aqui. 0001 é gravado como 1. Deveria alterar o formato de número tb? Porque fica como geral.

Vlw Felipe!
Michel Macário

Answer 5

Curioso, comigo deu certo.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br