Página 1 de 1

Data errada ao preencher formulário

Enviado: 13 Fev 2023 às 15:10
por GangStar
Olá, pessoal! Como estão?

Estou com um problema de data em uma planilha.

Faço o preenchimento da data através de um userform, mas quando vejo nos registros o ANO está como 1900 e o mês não confere.

Como é um pequeno Dashboard, atrapalha a visualização dos dados.

Vou deixar a planilha em anexo, se alguém puder me ajudar ficarei agradecido.

Como testar:

No canto esquerdo superior, tem um botão chamado: LANÇAR

Clique nele, escolha uma opção e abaixo insira um valor.

Depois vai em dados, na ultima linha e confira como saiu o Mês e o Ano.

Desde já, muito obrigado!

Re: Data errada ao preencher formulário

Enviado: 13 Fev 2023 às 21:32
por osvaldomp
GangStar escreveu: 13 Fev 2023 às 15:10 ... mas quando vejo nos registros o ANO está como 1900 e o mês não confere.
Mude o cálculo do arquivo de Manual para Automático.
1. a data aqui aparece na célula como mm/dd/aaaa ~~~> altere a formatação da coluna A para ~~~> Data ~~~> *14/03/2012

2. Private Sub UserForm_Initialize()
' txtData.Text = Format(Now(), "dd/mm/yyyy")
Como você utiliza somente a data, então pode utilizar Date ao invés de Now ~~~> txtData.Text = Date

3. '.Cells(lLinha, 1) = CDate(Format(frmCliente.txtData.Value, "dd,mm,yyyy"))
alternativa ~~~> .Cells(lLinha, 1) = DateValue(frmCliente.txtData.Value)


sugestão - ao postar arquivos com códigos que alteram a formatação do Excel, desative os códigos a fim de evitar transtornos a quem baixar o arquivo.

Re: Data errada ao preencher formulário

Enviado: 14 Fev 2023 às 09:37
por GangStar
@osvaldomp, ficou perfeito aqui! Muito obrigado pela ajuda. Meu nível de conhecimento é bem iniciante, não sabia desse calculo automático. Mais uma vez, valeu demais!