Página 1 de 1
Gerar um Backup simples
Enviado: 02 Nov 2018 às 17:14
por pasedo
Boa tarde pessoal, fiz esta planilha para gerar um backup em uma pasta no disco D:\ com o nome da celula A1 sem as macros da planilha original, se possivel com o nome da aba da planilha de backup e quando esta for gerada a original seja apagada os dados a partir da célula b9 pra baixo deixando os dados somente na de backup. Espero que tenham me entendido Grato pela ajuda
Re: Gerar um Backup simples
Enviado: 02 Nov 2018 às 20:42
por mprudencio
Experimente este codigo.
Código: Selecionar todosSub BackupSemMacros()
Dim W As Worksheet
Dim Caminho As String
Dim Nome As String
Set W = Sheets("Plan1")
Nome = W.Range("A1").Value
Caminho = "D:\Sua Pasta" 'Informe o caminho onde o arquivo sera Salvo
W.Copy
W.Range("B9:P" & Rows.Count).ClearContents
ChDir Caminho
ActiveWorkbook.SaveAs Filename:=Caminho & Nome, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End Sub
Gerar um Backup simples
Enviado: 03 Nov 2018 às 08:29
por pasedo
Bom dia Marcelo Prudêncio, obrigado tem com tirar também o botão da planilha que foi feito o backup? grato
Gerar um Backup simples
Enviado: 04 Nov 2018 às 09:43
por mprudencio
Coloque o botao em outra guia.