Excel Data automática no Excel sem atualizar no dia seguinte

Sandro de Oliveira Castro · 13 de fevereiro de 2018

Boa Tarde, em minha planilha de tenho um campo data e campo dia no campo data personalizei a formatação para digitar o dia e o mês e já sair o ano, isso sem as barras, a personalização ficou assim 00"/"00"/2018", então jogo somente, exemplo 1302 e já sai 13/02/2018, a questão é da célula onde está o campo dia formatei para ser igual ao campo data só que com a formatação em dias da semana. ex. segunda-feira; terça... o problema que não está aparecendo o dia correto. Se eu mesmo digitar no campo data, a data completa ou seja com as barras e o ano aí dá certo. ex. 13/02/2018 (digitado completo pelo usuário). O que queria é justamente otimizar, sem precisar digitar as barras e o ano, no campo data deu certo no outro não. Se pegar a formatação data disponível no excel converte para o ano 1903, já tentei de várias formas, se uso a fórmula Hoje(), no dia seguinte, quando abrir a planilha atualizará, e como são lançamentos diários e distintos não pode ser atualizado, sempre tem que ficar o do dia mesmo. Tentei criar um módulo em vba
Function pegadata()
pegadata = Date
End Function

e depois na célula data colocar a função
=SE(A1<>””;pegadata();””)

Não deu certo, retornou #nome!

Caso alguém tenha a solução e possa ajudar, agradeço

Edson Luiz Branco · 14 de fevereiro de 2018

Bom dia, @Sandro de Oliveira Castro , bem vindo.

Formate a célula como você vinha fazendo, como dia da semana mas use essa fórmula (supondo suas Datas na coluna A):

=DATA(2018;DIREITA(A2;2);ESQUERDA(TEXTO(A2;"0000");2))

Se quiser em VBA:

Function PegaData(rgData As Range) As Variant
  If IsDate(rgData.Text) Then PegaData = CDate(rgData.Text) Else PegaData = ""
End Function

Sandro de Oliveira Castro · 14 de fevereiro de 2018

Obrigado pela atenção, mas não adiantou, o dia sai errado de acordo com a data. ex.: hoje é 14/02/2018 com esse procedimento do dia por extenso sai segunda e hoje é quarta. Resolvi de outro maneira, como são planilhas do mês, coloquei em células separadas o Mês e o ano, nos campos das datas coloquei a seguinte fórmula: =SE(J3="";"";DATA($C$1;$B$1;J3)), ou seja, j3 digito o dia, ex.: 14 aí no campo data ele busca a referência do mês e ano e sai a data completa 14/02/2018, conforme formatação, na outra célula, para o dia por extenso coloco = e a célula onde a data completa aparece, essa célula formatei dddd, aí deu certo.

adicionado 5 minutos depois

Como faço para encerrar o tópico ou não precisa

Edson Luiz Branco · 14 de fevereiro de 2018

28 minutos atrás, Sandro de Oliveira Castro disse:

mas não adiantou, o dia sai errado de acordo com a data. ex.: hoje é 14/02/2018 com esse procedimento do dia por extenso sai segunda e hoje é quarta.

Talvez você não tenha inserido as fórmulas corretamente. Dá certo sim, veja no anexo.

Dúvida Sandro.zip

Sandro de Oliveira Castro · 15 de fevereiro de 2018

Realmente funciona, devo ter feito algo incorreto. Obrigado, vou implementar.

Sandro de Oliveira Castro · 17 de fevereiro de 2018

Ficou perfeito obrigado

andmesquita · 26 de julho de 2019

@Edson Luiz Branco

Estou com um caso parecido, preciso que a data seja inserida a partir de uma digitação, porém todas as funções que usei ficam atualizando no dia seguinte...