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: 44
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: 2452
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 66 times
Have thanks: 516 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: 44
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 últil para você, por gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. No canto superior.

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


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Bing [Bot], Google [Bot] e 3 visitantes