Macro Backup - Cópia

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Macro Backup - Cópia

Mensagempor ElsonDion » Qui Dez 07, 2017 9:06 am

Bom dia pessoal

Existe alguma macro que faça cópia de qualquer planilha/sistema completo para outra pasta?


Minha esposa as vezes abre o sistema dela no meu note, o problema é que ela esquece as vezes de deixar salvo.

Queria fazer a cópia quando ela abrisse, do sistema completo, macros, codigos e planilhas em outra pasta pra quando ela precisar usar, não ter que copiar de novo.

Eu executaria esta macro em todas as pastas de trabalho, eu acho. hehe :D
ElsonDion
Membro
Membro
 
Mensagens: 45
Registrado em: Seg Mai 13, 2013 3:04 pm
Localização: WITMARSUM - SC
Has thanked: 13 times
Have thanks: 2 times

{ SO_SELECT }

Re: Macro Backup - Cópia

Mensagempor MPrudencio » Qui Dez 07, 2017 9:58 am

Coloque esse codigo no evento que achar conveniente.

Eu uso no Before Clore (Antes de Fechar)

Se quiser o Backup no momento da abertura basta trocar para o evento open.(Nao recomendavel)

Código: Selecionar todos

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Backup As String
Dim WB As Workbook

On Error Resume Next

    Set WB = Workbooks("Nome do Arquivo.xlsm")
    Backup = "C:\Caminho onde sera Salvo o arquivo"

Application.DisplayAlerts = False

    WB.Save

    ChDir "C:\Nome da Pasta onde sera o Backup"

    WB.SaveAs Filename:=Backup, FileFormat:=xlOpenXMLWorkbookMacroEnabled

Application.DisplayAlerts = True

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

MPrudencio
Membro
Membro
 
Mensagens: 2760
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 71 times
Have thanks: 600 times

Re: Macro Backup - Cópia

Mensagempor ElsonDion » Qui Dez 07, 2017 10:03 am

entendi, e como eu faço para fazer a copia dos arquivos juntos?

Exemplo

( tenho uma pasta Chamada Meu conteudo )

nela encontra-se 4 arquivos,

Ao abrir uma delas, como eu faço pra copiar a pasta toda para outro local?

Ja me facilitaria muito.
ElsonDion
Membro
Membro
 
Mensagens: 45
Registrado em: Seg Mai 13, 2013 3:04 pm
Localização: WITMARSUM - SC
Has thanked: 13 times
Have thanks: 2 times

Re: Macro Backup - Cópia

Mensagempor wagner » Qui Dez 07, 2017 10:46 am

ElsonDion,

Bom dia!

Não sei se é esse o seu caso... mas, ontem respondi uma mensagem de outro usuário com dúvida smelhante. Veja se o arquivo que enviei pra ele também pode te ajudar.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4399
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1900 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: fortunaim e 3 visitantes