Notifications
Clear all

Salvar Datas de userform

9 Posts
3 Usuários
0 Reactions
2,120 Visualizações
(@wellington_parreiras)
Posts: 33
Trusted Member
Topic starter
 

Bom dia pessoal.
Estou criando um um arquivo onde uso um UserForm para inserir os dados, porem um dos textbox é referente a uma data e quando eu dou o comando para salvar as informações, elas ficam salvas como texto na planilha do excel e não como datas.
Como devo fazer para salvar as datas como datas e o numéros como numeros e assim por diante?

Muito obrigado a todos.

Wellington

 
Postado : 02/11/2012 6:14 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Use nossa base de dados "Pesquisa
viewtopic.php?f=10&t=1463&hilit=salvar+datas+em+formul%C3%A1rio

ou...
...Poste seu arquivo compactado!!

Att

 
Postado : 02/11/2012 6:20 am
(@wellington_parreiras)
Posts: 33
Trusted Member
Topic starter
 

O textbox fica com a formatação evidenciada, porem quando as informações são salvas na planilas elas não ficam com a formatação ja estabelecida nas celulas.

 
Postado : 02/11/2012 8:02 am
(@charlie-81)
Posts: 290
Reputable Member
 

Veja se atende...

 
Postado : 02/11/2012 9:00 am
(@wellington_parreiras)
Posts: 33
Trusted Member
Topic starter
 

verifique que voce alterou a configuração que eu havia feito para o nteste, mas se voce verificar as informações salves na planilha do excel ainda continuam armazenadas como texto.
ainda não consegui resolver este problema.

 
Postado : 02/11/2012 9:13 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

Private Sub DATA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DATA = Format(DATA, "dd.mm.yyyy")
Cancel = False
End Sub

Private Sub NTESTE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
NTESTE = Format(NTESTE, "000")
Cancel = False
End Sub

Private Sub ok_Click()
Sheets("Plan1").Select
Range("B3").Select
linha = 0
Selection.End(xlDown).Select
linha = ActiveCell.Row + 1
Cells(linha, 2).Select
Cells(linha, 2) = Val(NTESTE)
Cells(linha, 3) = DATA
Cells(linha, 5) = Val(NOTA)
Range("B3").Select
limpar
NTESTE.SetFocus
End Sub

Nota: as formatações das celulas na planilha devem seguir o mesmo criterio

 
Postado : 02/11/2012 12:23 pm
(@wellington_parreiras)
Posts: 33
Trusted Member
Topic starter
 

Reinaldo, muito obrigado pela disponibilidade em ajudar.
Fiz as adequações necessárias conforme informado por você, porem nos campos numero do teste e nota, esta funcionando perfeitamente no campo data, ele esta salvando na planilha do excel 01.01.1900.
A célula da planilha do excel não esta reconhecendo a data digita??!!.
Veja anexo ajustado.
Desde já agradeço a colaboração
Wellington

 
Postado : 02/11/2012 12:53 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Os dados que vc destacou já estavam cadastrados, esses devem ser corrigidos manualmente, somente os novos registros e que devem ser "introduzidos" de forma correta.
O campo data deve ser digitado no form com barras, (2/11/2012), pois se utilizar o ponto, não sera entendido como um valor data, mas a formatação altera as barras para ponto

 
Postado : 02/11/2012 1:17 pm
(@wellington_parreiras)
Posts: 33
Trusted Member
Topic starter
 

Reinaldo, muito obrigado.
Testei e agora esta funcionando perfeito.

valeu mesmo

 
Postado : 02/11/2012 5:12 pm