Acontece o seguinte você escreveu :
Application.OnTime TimeValue.Range("A3"), "Programação"
mas Range("A3") não é um objeto de time value então o correto seria :
Application.OnTime TimeValue(Range("A3"), "Execução")
O problema é que quando ele vai ler a célula A3 ele não lê 18:00:00 mas sim 0,75 que é 3/4 de um dia.
Porém se eu colocar o ' na célula o TimeValue dá erro também. Tenho que pensar um pouco.
Tenta usar este tá funcionando aqui, lembrando que A3 tem de ser string (texto) colocando o ' na frente.
Public Sub Programação()
tempo = Range("A3")
Application.OnTime TimeValue(tempo), "Execucao"
End Sub
Sub Execucao()
MsgBox "Horas da Execução da Macro"
End Sub
Se a resposta foi últil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da sua tela, isso ajuda muito. Ajuda nada, mas é mow divertido ter vários thanks kkk !!!
Postado : 02/01/2016 4:54 pm