Bom dia!!

Use a pesquisa do fórum.

Exemplo para ser usado na planilha

Sub MudarFormatoDataPara()
'Essa rotina muda o formato de data para "dd-mmm-yyyy"
    Dim NomeVariant As Long
     
    With ThisWorkbook.Sheets(1)
         
        NomeVariant = .Cells(Rows.Count, 2).End(xlUp).Row
        With .Range("B1").Resize(endrowofcol2)
             
            .NumberFormat = "dd-mmm-yyyy"
        End With
    End With
End Sub

No teste que fiz, gravou corretamente as datas; não seria a configuração do seu sistema? pois o excel "tenta" adaptar os valores recebidos à configuração global do sistema operacional

reinaldo tambem ja me chamaram a atencao disso mas de tudo o que eu vi todas as configuracoes estao correctas com a minha regiao(portugal).

onde mais posso ver sobre essas configuracoes?

Mdorey,
Bom dia !

Você já testou o código do nosso colega Alexandre ?

já tentei o codigo em todo o sitiu e nada faz

a nao ser que eu esteja a colar mal

Na realidade ainda não entendi o porque em meu note funciona sem problemas,mas fiz uma alteração, veja se assim funciona

Boa noite reinaldo,

Infelizmente o file que deixou ai tambem nao esta a correr bem na minha maquina

eu selecionei nas datas 01/07/2012 e 04/07/2012 e deu como 07/01/2012 e 07/04/2012

Depois selecionei no mes de janeiro o dia 1 e no mes de abril o dia 4 e apareceu como 01/07/2012 e 04/07/2012

no entanto tive a ver varias hipoteses e cheguei a conclusao que isso so acontece com datas em que os dias são inferiores a 12(com o 12 inclusive) se eu selecionar o dia 13/07/2012 ja roda bem :S

Normalmente essas inversões são entre valores que se "confundem" com meses (1 a 12), pois o excel "tenta" adequar os valores recebidos às configurações do sistema, mas como vc já disse anteriormente, as configurações estão OK.

Entendo que ao clicar no dia (no calendario que se abre ao clicar nos 3 pontinhos), pelo menos no campo texto Data Check - in/out os valores data são "inseridos" corretamente, e o problema esta ao gravar esses valores na planilha. Então segue mais uma tentativa

boa tarde Reinaldo,

Desculpa so responder agora mas com o fim de semana foi complicado

No entanto ja fiz uma tentativa com a modificação que me enviou e ta correndo um erro...

quando selecciono uma data ele aparece o erro:

Run Time Error '13'
Tipe mismatch

DoRey,

comigo não aprenta erro algum, então só posso utilizar o "achometro" , talvez vc não tenha habilitado alguma biblioteca.
abra o editor VBE (Alt+F11) no menu superior clique em Ferramentas--> Referencias, veja se alguma aparece com (Ausente) na frente do nome. ou se as indicações do arquivo anexo (imagem) estão habilitadas;

Reinaldo,

Tive a ver e todos os campos tao seleccionados como na imagem que voce deixou ai :S

Do Rey, não entendi tb o erro apresentado, pois testei em outros equipamentos e não apresenta erro.
Andei pesquisando, e não encontrei nada que possa esclarecer o que ocorre;
mas vamos a mais uma tentativa.

Boa tarde Reinaldo,

Tive a testar varias vezes e de varias maneiras diferentes e conclui que o problema ta quando se seleciona as datas com o CommandButton com os "..." porque se eu inserir a data com os numeros ele vai correcto para a planilha...

Eu estou com o mesmo problema, ou bem similar.

Estou utilizando o seguinte comando:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then
        Cells(Target.Row, 11).Value = Date & " " & Time
    End If
End Sub

E a data apresentada que deveria seguir o padrão dd/mm/aaaa hh:mm apresenta mm/dd/aaaa hh:mm.

O problema diso é que o excel lê a informação como se fosse dd/mm/aaaa hh:mm.
Ex: 02/08/2012 16:46 é apresentado como "08/02/2012 16:46" quando aplicado um filtro ele lê o "02" como fevereiro.

O mais estranho é que eu estava usando esse mesmo código e ele me apresentava a data corretamente.

Já tentei usar o código do alexandrevba, porém não deu certo.

Alguém tem alguma idéia de como resolver isso?