Salvar textbox com zero a esquerda  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Salvar textbox com zero a esquerda  [Resolvido]

Mensagempor souzadenilson » Sex Jan 12, 2018 1:58 pm

Boa tarde, estou com uma planilha que ao salvar o textbox na celula do excel o zero a esquerda desaparece,
Eu personalizei a celula do excel em formatação com "000000".
Teria como fazer este processo quando for salvar os dados, ele manter o zero a esquerda do numero
Comando Salvar
Código: Selecionar todos
Private Sub Salvar_Click()
intLinha = ThisWorkbook.Worksheets("Fornecedor").Range("A5000").End(xlUp).Offset(1, 0).Row
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 1) = CDbl(Me.Cod_Fornec.Text)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 2) = CStr(Razao_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 3) = CStr(Fantasia_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 4) = CStr(Cnpj_Cpf)
Cod_Fornec = ""
Razao_Fornecedor = ""
Fantasia_Fornecedor = ""
Cnpj_Cpf = ""
Cod_Fornec.SetFocus
End Sub



Quando digita o codigo em textbox ele coloca completa com zero a esquerda
Código: Selecionar todos
Private Sub Cod_Fornec_afterupdate()
Cod_Fornec.Text = Format(Cod_Fornec.Text, "000000")
End Sub
Você não está autorizado a ver ou baixar esse anexo.
souzadenilson
Membro
Membro
 
Mensagens: 53
Registrado em: Dom Abr 01, 2012 10:44 pm
Has thanked: 11 times
Have thanks: 0 time

{ SO_SELECT }

Re: Salvar textbox com zero a esquerda

Mensagempor xlarruda » Sex Jan 12, 2018 2:08 pm

Tenta isso:


Código: Selecionar todos
Private Sub Salvar_Click()
intLinha = ThisWorkbook.Worksheets("Fornecedor").Range("A5000").End(xlUp).Offset(1, 0).Row
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 1) = "'" & CStr(Me.Cod_Fornec.Text)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 2) = CStr(Razao_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 3) = CStr(Fantasia_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 4) = CStr(Cnpj_Cpf)
Cod_Fornec = ""
Razao_Fornecedor = ""
Fantasia_Fornecedor = ""
Cnpj_Cpf = ""
Cod_Fornec.SetFocus
End Sub


Espero que seja isso... Abrç!
Att,

xlarruda.
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 196
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 53 times
Have thanks: 56 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Bing [Bot] e 4 visitantes