Este fórum está sendo desativado

[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

[mprudencio]

Experimente este codigo.

Código: Selecionar todos

Sub 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

[pasedo]

Bom dia Marcelo Prudêncio, obrigado tem com tirar também o botão da planilha que foi feito o backup? grato

[mprudencio]

Coloque o botao em outra guia.