Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Saulo 14 Jun 2019 às 18:09
Membro 1 Estrela
Mensagens: 17
Reputação: 1
#44746
Boa Tarde!
Tenho uma determinada planilha que possui um “botão” onde a ele está associado uma macro, ao clicar nesse “botão”, o arquivo é salvo em dois diretórios distintos, ou seja, é uma espécie de backup.
O pedido de ajuda é o seguinte: existe uma forma de se acionar a macro em questão de forma automática, sempre a um determinado horário? por exemplo sempre às 16:30Hs, eliminando o ato manual de se clicar no “botão”.
Segue abaixo macro em questão:
Public Sub SalvarPastaTrabalhoPCM()
Dim strCaminho1 As String
Dim strCaminho2 As String
Dim strNome As String
Application.DisplayAlerts = False
strCaminho1 = "C:\MODULAR\MANUTENÇÃO\01 - SISTEMAS\" '1º caminho do arquivo
strCaminho2 = "N:\01 - SISTEMAS CONTROLE DA MANUTENÇÃO\" 'Caminho Alternativo
strNome = ThisWorkbook.Name
ActiveWorkbook.SaveAs Filename:=strCaminho1 & strNome
ActiveWorkbook.SaveAs Filename:=strCaminho2 & strNome
Application.DisplayAlerts = True
End Sub

Desde já agradeço
Por osvaldomp 15 Jun 2019 às 11:38
Membro 5 Estrelas
Mensagens: 1209
Reputação: 598
#44767
Experimente: instale uma cópia do código abaixo no módulo de EstaPasta_de_trabalho, salve, feche e reabra o arquivo.

Código: Selecionar todosPrivate Sub Workbook_Open()
  Application.OnTime TimeValue("16:30:00"), "SalvarPastaTrabalhoPCM"
End Sub
Por Saulo 18 Jun 2019 às 13:38
Membro 1 Estrela
Mensagens: 17
Reputação: 1
#44860
Prezado osvaldomp 15 Jun 2019 às 10:38,
Primeiramente Muito Obrigado Por Dispor de seu Tempo Para Me Ajudar.
OK. Era Isso Mesmo, Implementei Seu Código e Funcionou Perfeitamente.
Atenciosamente