Este fórum está sendo desativado

[GENECI]

Bom dia.

Por favor.
Solicito a sua ajuda conforme o arquivo anexo.

Grato - GENECI.

[babdallas]

Tente isso:

Código: Selecionar todos

Sub MeuRelogio()
    If Inicio = True Then
        With wshMsg
            .Range("A1").Value = VBA.Time()
            Application.OnTime VBA.Now() + VBA.TimeValue("00:00:01"), "MeuRelogio"
            
            If VBA.CStr(VBA.Format(.Range("A1").Value, "hh:mm:ss")) = VBA.CStr(VBA.TimeValue("07:00:00")) Then
                If .Range("C1").Value2 = "DDDD" Then
                    .Range("C1").Value2 = "AAAA"
                Else
                    .Range("C1").Value2 = "CCCC"
                End If
            ElseIf VBA.CStr(VBA.Format(.Range("A1").Value, "hh:mm:ss")) = VBA.CStr(VBA.TimeValue("19:00:01")) Then
                If .Range("C1").Value2 = "AAAA" Then
                    .Range("C1").Value2 = "BBBB"
                Else
                    .Range("C1").Value2 = "DDDD"
                End If
            End If
        End With
  End If
End Sub

Sub IniciarRelogio()
    Inicio = True
    Call MeuRelogio
End Sub

Sub PararRelogio()
    Inicio = False
End Sub

[GENECI]

Bom dia. babdallas

Fiz algo de errado e não consegui o objetivo, tentei inúmeras vezes sem êxito.
Por favor, pode inserir a macro no arquivo e disponibilizar.
Certo da compreensão.

Agradeço - GENECI.

[babdallas]

Segue. Espero que seja isso.

[GENECI]

Agradecido e satisfeito.