Prezados, Boa Tarde
Estou com problema para Iniciar ou Parar Data e Hora através de botão usando Macro.
Se eu digito em uma célula o comando =AGORA() e rodo o código VB abaixo, ele inicia e para conforme eu quero, porém, se eu colocar o Comando =AGORA() em mais de uma célula e rodar o código VB abaixo ele vai iniciar ou parar em todas as células que tenho o código =AGORA().
O problema é que eu quero iniciar e parar o código por linhas, vou adicionar o meu arquivo em Excel em anexo para análise de vocês e ficarei grato quem puder me ajudar. Caso eu não fui bem claro, estou a disposição para tirar demais dúvidas
Código VBA:
Dim Go As Boolean
Sub INICIAR()
Go = True
RELOGIO
End Sub
Sub RELOGIO()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "RELOGIO"
End If
End Sub
Sub FINALIZAR()
Go = False
End Sub
Sub INICIAR_2()
Go = True
RELOGIO
End Sub
Sub RELOGIO_2()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "RELOGIO_2"
End If
End Sub
Sub FINALIZAR_2()
Go = False
End Sub
Postado : 14/03/2017 3:12 pm