Excel Como inserir barras automáticas em DATA no TEXTBOX?

[Dirceu Seregatti Soares]

Boa Tarde a Todos !!!

Pessoal, necessito da ajuda de vocês.

Peguei na Net, um código para inserir as barras no campo de data automaticamente, em uma textbox.

Para o usuário não ter que ficar digitando as " / "

Acontece que essa rotina esta entendendo os dias de 01 a 12 como meses, e retornando para a tabela do Excel como data americana (mm/dd/aaaa)

Quero que a data fique no formato brasileiro  dd/mm/aaaa.

Então se digito na Textbox 01/12/2015 ela manda para Excel como 12/01/2015

 

Como posso resolver isso ?

 

Código que estou usando hoje:
 

 

Private Sub TextBox1_Change()
    'Formata : dd/mm/aaaa
    If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then
        TextBox1.Text = TextBox1.Text & "/"
        SendKeys "{End}", True
    End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limita a Qde de caracteres
   TextBox1.MaxLength = 10
 
    'para permitir que apenas números sejam digitados
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If

 
End Sub

Teste2.xlsm

Teste2.xlsm

[edsonj]

Dirceu, não está aparecendo, ao abrir a planilha, o form para inserir as informações.

 

[Dirceu Seregatti Soares]

8 minutos atrás, edsonj disse:

Dirceu, não está aparecendo, ao abrir a planilha, o form para inserir as informações.

 

Boa Tarde !!

 

Segue em anexo, agora já aparecendo a Form.

Teste2.xlsm

[Visitante]

Tem formatar a data, dessa forma

 

ActiveCell.Value = Format(TextBox1.Value, "MM/DD/YYYY")

 

[Dirceu Seregatti Soares]

Em 29/12/2015 às 16:33, Alpheratz disse:

Tem formatar a data, dessa forma

 

ActiveCell.Value = Format(TextBox1.Value, "MM/DD/YYYY")

 

Alpheratz,

 

Eu acrescento essa parte em meu codigo ?

 

Ficaria da forma abaixo :

 

 

 

 

 

Private Sub TextBox1_Change()     'Formata : dd/mm/aaaa

 

ActiveCell.Value = Format(TextBox1.Value, "MM/DD/YYYY")

   

 If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then
        TextBox1.Text = TextBox1.Text & "/"
        SendKeys "{End}", True
    End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limita a Qde de caracteres
   TextBox1.MaxLength = 10
 
    'para permitir que apenas números sejam digitados
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If
 
End Sub

 

[Visitante]

É no código do CommandButton1_Click, logo depois do loop, ficando assim:

 

'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = Format(TextBox1.Value, "MM/DD/YYYY")
ActiveCell.Offset(0, 1).Value = TextBox1.Value

'Limpar as caixas de texto
TextBox1.Value = Empty

 

 

Etc.

 

 

 

Você também pode tentar usar a instrução cdate

 

ActiveCell.Value = CDate(TextBox1.Value)

 

Acho que é até melhor usar essa forma, se der certo

[Dirceu Seregatti Soares]

Alpheratz

 

Muito obrigado pela ajuda, fiz o teste aqui na planilha simples e deu certo.

 

Agora vou testar na planilha mestre que estou montando.

 

Obrigado.