Notifications

Clear all

Executar se Hora >= X e <= Y

2024 - VBA & Macros

Post Recente por carlosrgs 8 anos atrás

3 Posts

2 Usuários

0 Reactions

748 Visualizações

RSS

carlosrgs

(@carlosrgs)

Posts: 631

Prominent Member

Topic starter

Boa tarde a todos.

Preciso de ajuda referente a uma macro que tem que ser executada em determinado horário.

Exemplo:

Quando abre o arquivo executa a Macro e fecha o arquivo.

Mas eu quero que feche se o arquivo for aberto entre (Hora X = 12:05) e (Hora Y = 12:15).

Complicando um pouco, pretendo deixar para o usuário final determinar esses horários amarrando os valores em células.

Plan1 na célula A1 estará digitado 12:05
Plan1 na célula A2 estará digitado 12:15

No arquivo em exemplo tem uma MsgBox que logo após exibida fecha o arquivo, como se fosse a macro que irá rodar.

Obrigado!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

Postado : 17/04/2017 11:40 am

Syrax

(@syrax)

Posts: 160

Estimable Member

Veja se isso te ajuda

Não baixei o arquivo ainda

Sub abrir()
Dim i As String
i = Format(Now, "hh:mm")
If i >= Format(Sheets("Plan1").Range("A1").Value, "hh:mm") And i <= Format(Sheets("Plan1").Range("A2").Value, "hh:mm") Then
 ' EXECUTA MACRO
Else
 ' FECHA O ARQUIVO
End If
End Sub

supondo que as horas estejam no formato "hh:mm"
a primeira condição verificar se "AGORA" É MAIOR OU IGUAL O PRIMEIRO VALOR E AGORA É MENOR OU IGUAL O SEGUNDO VALOR

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 17/04/2017 12:44 pm