Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Horário para chamar...
 
Notifications
Clear all

Horário para chamar a rotina.

 
2024 - VBA & Macros
6 Posts
4 Usuários
0 Reactions
1,109 Visualizações
RSS
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Bom caros colegas deste estimado fórum.

Estou com um problema e novamente necessito de ajuda.

Criei esta rotina e gostaria de saber se há possibilidade de a macro 1 só ser chamada se for no horário entre 8:30 ~ 9:00 da manhã ou 10:00 ~ 10:30 da manhã.
Se for fora dos horários citados acima chamar a macro 2.

Procurei a respeito na net mas não encontrei algo que resolucionasse meu problema.

Desde já agradeço a costumeira ajuda e compreensão de todos colegas deste fórum.

Abraços

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("D9")) Is Nothing Then
                Call macro1
                Call macro2
        End If
        Application.EnableEvents = True
End Sub
 
Postado : 29/01/2014 5:05 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

seria isso?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Not Intersect(Target, Range("D9")) Is Nothing Then
        If Time >= "08:30" And Time <= "09:00" Or Time >= "10:00" And Time <= "10:30" Then
            Call macro1
        Else
            Call macro2
        End If
    End If
Application.EnableEvents = True
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 29/01/2014 5:50 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Fabiosp

Bom Dia!

Aproveitando a resposta do colega gtsalikis, deixe-me acrescentar somente um detalhe: Substituição ads aspas (") nos valores das horas pelo jogo da velha (#). Do contrário, creio que o VBA não vai reconhecer o valor como hora.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Not Intersect(Target, Range("D9")) Is Nothing Then
            If Time >= #08:30# And Time <= #09:00# Or Time >= #10:00# And Time <= #10:30# Then
                Call macro1
            Else
                Call macro2
            End If
        End If
    Application.EnableEvents = True
    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 : 29/01/2014 6:13 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Tem razão, Wagner, engano meu.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 29/01/2014 6:28 am
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Prezados colegas Wagner Morel e gtsalikis bom dia.

Era isso mesmo que precisava!!
Muito obrigado pela ajuda.
Esta perfeito!!

Abraços.

 
Postado : 29/01/2014 6:39 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/01/2014 7:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico