Salvar planilha (backup) com data, sempre que abrir uma nova
Enviado: 25 Fev 2019 às 15:38
Olá colegas boa tarde!
Tenho uma planilha para controle de caixa que está salva como backup e, todos os dias, abro esse backup e salvo manualmente com a data do dia através da função =hoje().
A dúvida que tenho é se há possibilidade em implementar uma função onde todas as vezes em que se abrir este arquivo de backup, pela manhã, pudesse ser criado automaticamente uma forma de salvar a mesma com a data do dia e que a mesma fosse salva em uma pasta específica tipo "PASTA MÊS TAL". E somente esse arquivo e backup teria essa funcionalidade, as planilhas que já tiverem sido salvas a partir dessa funcionalidade, caso seja necessário abrir para uma consulta, só seriam salvas caso houvesse alguma alteração de valores.
PS: Essa planilha já tem uma macro (segue abaixo o código da mesma) para preenchimento automático de células. Será que ao implementar essa nova funcionalidade, poderá haver alguma espécie de conflito?
Ah, e quando houver mudança de um mês para o outro, terei que criar manualmente uma nova pasta ou poderá ser criada via macro?
Obs.: essa planilha de testes está protegida sem senha.
Sandro.
Tenho uma planilha para controle de caixa que está salva como backup e, todos os dias, abro esse backup e salvo manualmente com a data do dia através da função =hoje().
A dúvida que tenho é se há possibilidade em implementar uma função onde todas as vezes em que se abrir este arquivo de backup, pela manhã, pudesse ser criado automaticamente uma forma de salvar a mesma com a data do dia e que a mesma fosse salva em uma pasta específica tipo "PASTA MÊS TAL". E somente esse arquivo e backup teria essa funcionalidade, as planilhas que já tiverem sido salvas a partir dessa funcionalidade, caso seja necessário abrir para uma consulta, só seriam salvas caso houvesse alguma alteração de valores.
PS: Essa planilha já tem uma macro (segue abaixo o código da mesma) para preenchimento automático de células. Será que ao implementar essa nova funcionalidade, poderá haver alguma espécie de conflito?
Ah, e quando houver mudança de um mês para o outro, terei que criar manualmente uma nova pasta ou poderá ser criada via macro?
Obs.: essa planilha de testes está protegida sem senha.
Código: Selecionar todos
Grato,Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B6:B12,B16:B18,I6:I18,R4:R14]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(, 1).Value = Target.Offset(, 1).Value + Target.Value
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
End SubSandro.