Eu procurei a variavel indice mas nao encontrei acredito que o problema estela neste ponto.

Inclusive alterei esta linha para uma formatação que acredito resolva seu problema de formatação.

Cells(indice, data).Value = Format(data, "dd/mm/yyyy")

Prezado, bom dia.

Estou com o mesmo problema.

Testei várias coisas que encontrei na internet e não obtive êxito.
A minha planilha consiste em um controle de Ocorrências a qual emito relatório semanalmente, porém a inversão de datas fica o tempo todo.

Segue a mesma em anexo, talvez alguém possa nos ajudar.

Desculpe se estiver fazendo algo errado.

Erlher

Amigo testei seu formulario Cadastro e nao reparei nenhum problema, com relação a formatação da data.

MPrudencio

Caro MPrudencio,
Infelizmente não deu certo.
Alguma outra forma?

Prezado, bom dia.

Estou com o mesmo problema.

Testei várias coisas que encontrei na internet e não obtive êxito.
A minha planilha consiste em um controle de Ocorrências a qual emito relatório semanalmente, porém a inversão de datas fica o tempo todo.

Segue a mesma em anexo, talvez alguém possa nos ajudar.

Desculpe se estiver fazendo algo errado.

Amigo testei seu formulario Cadastro e nao reparei nenhum problema, com relação a formatação da data.

O que acontece é o seguinte, efetuo o cadastro normalmente, porém quando salva na planilha de ocorrências ele inverte o dia pelo mês e com isso não consigo emitir o relatório de ocorrência por período.

Como eu disse nao encontrei nenhum problema.

Caro MPrudencio,
Infelizmente não deu certo.
Alguma outra forma?

Como eu disse tem que corrigir a variavel indice... nao encotrei ela declarada nem carregada, qdo vc depura ela retorna vazio qdo vc coloca o cursor sobre ela.

Galera, já resolvi. No meu caso, formatei a coluna que recebe as datas, como "texto".
Obrigado a todos...

Eu consegui uma solução aqui usando o DateValue.

Se quiserem pode observar na parte do código na minha planilha referente a salvar o cadastro antes era assim

ActiveCell.Value = INSERIRCHAPA.Value
ActiveCell.Offset(0, 1).Value = INSERIRNOME.Value
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 3).Value = INSERIRDATA.Value
ActiveCell.Offset(0, 4).Value = ComboBox1.Value
ActiveCell.Offset(0, 5).Value = DATALANÇAMENTO.Value
ActiveCell.Offset(0, 6).Value = INSERIROBSERVAÇÕES.Value
E depois ficou assim:

ActiveCell.Value = INSERIRCHAPA.Value
ActiveCell.Offset(0, 1).Value = INSERIRNOME.Value
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 3).Value = DateValue(INSERIRDATA.Value)
ActiveCell.Offset(0, 4).Value = ComboBox1.Value
ActiveCell.Offset(0, 5).Value = DateValue(DATALANÇAMENTO.Value)
ActiveCell.Offset(0, 6).Value = INSERIROBSERVAÇÕES.Value

Acredito que pode funcionar para o dono do tópico também.

E desculpe por pegar carona no seu tópico.