Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Validação de datas ...
 
Notifications
Clear all

Validação de datas no TextBox

 
2024 - VBA & Macros
Post Recente por JoilsonDO 10 anos atrás
5 Posts
2 Usuários
0 Reactions
997 Visualizações
RSS
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Boa tarde.
Gostaria de colocar uma validação em um TextBox, no evento Exit.

Seria assim:
Na Label13, eu tenho a data atual, que é carregada conforme a data do computador.
No Textbox5, eu tenho de preencher a data de emissão da Nf.

Gostaria de colocar uma condição para que, se a data inserida no TexTbox5 for inferior a 30 dias da data atual, aparecesse a msgbox com o alerta.

Por exemplo:
Label13 = 15/07/2014 (data atual)
TextBox5 = 10/06/2014, então deveria aparecer uma mensagem porque a diferença é mais que 30 dias.

Como poderia montar esta validação?

Obrigado.

 
Postado : 15/07/2014 1:02 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

JoilsonDO,

Boa Tarde!

Veja se é assim.

Validação de Data.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 15/07/2014 1:17 pm
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Bom dia Wagner,
Seria pedir muito se você pudesse me enviar o código aqui no forum ao invés do arquivo? Por causa do meu servidor não consigo baixar o arquivo.

Grato.

 
Postado : 16/07/2014 4:19 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok. Pois não.

Segue:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If CDate(TextBox5.Text) < Date - 30 Then
        MsgBox "A Data de Emissão da NF não pode ser inferior a 30 dias da data Atual!", vbCritical, "ERRO"
        Cancel = True
    End If
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/07/2014 4:30 am
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Wagner, muito obrigado pela atenção e pelo código.

Abraço.

 
Postado : 16/07/2014 4:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico