Página 1 de 1

[Resolvido] Carregar TextBox em horário específico.

Enviado: Qua Jul 08, 2020 10:59 am
por milton
Fala pessoal!

Alguém pode me ajudar
Preciso de um código vba da seguinte forma:
Se a Form for aberto entre 7:00 as 7:10 da manhã, carrega a TxtQtde com número 1.

Desde já agradeço!

Re: Carregar TextBox em horário específico.

Enviado: Qua Jul 08, 2020 5:11 pm
por Tov Elen Shau
Colega

Boa tarde

Faz um teste

Private Sub UserForm_Initialize()
x = Time

If x >= "7:00:00" And x <= "7:10:59" Then
TxtQtde.Text = 1
End If

End Sub

Atenciosamente

Tov Elen Shau

Re: Carregar TextBox em horário específico.

Enviado: Sex Jul 10, 2020 10:17 am
por milton
Testei e não reconhecia os minutos, usei da forma abaixo e deu certo.

If Hour(Now()) > 7 And Time < ("07:10:00") Then
TxtQtde = "1"
End If

Obrigado!!!