Preciso De Uma Macro Automática

[Guest - Fernanda -]

Eu criei uma macro e precisaria que ela rodasse em um determinado horário todo dia... Sem que eu precisasse estar perto do computador.

Tentei até o agendador do windows... mas não acho aonde tá minha macro dentro do computador! Alguém sabe como eu posso automatizar essa macro??? Qualquer forma está bom!!!!

Estou em desespero... é urgente pois os dados que preciso estão lincados num programa automático e preciso pegar os dados sempre às 17horas, nem um minuto a mais nem a menos... é desesperador!!!!

Muito obrigado pela atenção de vocês!

[Lisandro Oliveira]

Eu criei uma macro e precisaria que ela rodasse em um determinado horário todo dia... Sem que eu precisasse estar perto do computador.

Tentei até o agendador do windows... mas não acho aonde tá minha macro dentro do computador! Alguém sabe como eu posso automatizar essa macro??? Qualquer forma está bom!!!!

Estou em desespero...    é urgente pois os dados que preciso estão lincados num programa automático e preciso pegar os dados sempre às 17horas, nem um minuto a mais nem a menos... é desesperador!!!!

Muito obrigado pela atenção de vocês!

Olá fernanda faça assim:

Na sua planilha:

Vá em ferramentas/macro/editor do visual basic, clique 2x em EstaPasta_de_trabalho, na parte de cima escolha Workbook e do lado tem que estar Open, ai você cola esse codigo lá

Dim a As Date

a = Format(Time(), "hh:mm")

If a = "17:00:00" Then

'Aqui você cola a sua macro

End If

Pronto, agora deixe a planilha lá no agendador de tarefas para abrir as 17:00

beleza????

[Guest - FERNANDA -]

Oi Lisandro,

Obrigado pela atenção... mas isso não deu certo...

Porque a macro não roda automaticamente nem ao abrir do documento nem quando chega o horário...

Como eu faço para ela se chamar? no horário de preferencia com a planilha aberta... porque eu prefiro deixá-la aberta porque ela é cheia de macros... e não acabaria de abrir, pois minhas macros não tem assinatura....

Obrigadão de qualquer forma,

BJS

[Guest olliver.master]

O código abaixo deve ajudar.

Dim HoraAtualização As Date

Dim HoraArea As Range

Sub Horario()

Call Application.OnTime(Now + TimeValue("00:00:01"), "Atualizar")

End Sub

Sub Atualizar()

HoraAtualização = CDate("17:00")

Set HoraArea = Range("A1")

With HoraArea

.Value = Time

If CDate(.Value) = HoraAtualização Then

'--->

'Cole a macro aqui

'<---

End If

End With

Call Horario

End Sub

[Nanda Vommaro]

Deu certo!!! Valeu mesmo, Oliver!!!

[Rubens Oberg]

Olá Nanda! 

Você colou esse código em EstaPastaDeTrabalho ou no módulo?