Notifications
Clear all

Fazer backup de planilhas

6 Posts
2 Usuários
0 Reactions
1,442 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia a todos.

Algúem pode ajudar com uma macro que faça uma cópia da planilha ativa mantendo do jeito que ela foi elaborada, porém sem copiar as fórmulas?

Muito Obrigado!

Silvio Felinto.

 
Postado : 22/07/2014 8:49 am
(@miranda)
Posts: 46
Trusted Member
 

Silvio, bom dia!!
Com ajuda do pessoal do fórum, adaptei a rotina abaixo para Excel 2003 e 2007:
Ao clicar na Elipse (fica a seu critério o modo de habilitar a Macro), a rotina Salva a Pasta Atual e Salva o Backup em outro diretório, salvando-o com o Nome do Arquivo Principal e alocando a data e hora do backup. Agora, com relação a retirada das macros para a Planilha de Backup, o pessoal vai poder te ajudar.
Abçs!

Sub Elipse2_Clique()
ActiveWorkbook.Save
'Salva o arquivo atual para uma pasta de backup ea pasta padrão
'Note-se que qualquer backup é substituído
Dim MyDate
MyDate = Date 'MinhaData contém a data atual do sistema.
Dim MyTime
MyTime = Time 'Voltar hora atual do sistema.
Dim TestStr As String
TestStr = Format(MyTime, "hh.mm.ss")
Dim Test1Str As String
Test1Str = Format(MyDate, "DD-MM-YYYY")

Application.DisplayAlerts = False

ActiveWorkbook.SaveCopyAs Filename:="E:Nova pasta (2)" & Test1Str & " " & TestStr & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 
Postado : 22/07/2014 9:01 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Porque postar a mesma dúvida em tópicos diferentes? :twisted:

Att

 
Postado : 22/07/2014 9:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Alexandre!

Não sei se já foi postado este tópico com a mesma dúvida.
Pesquisei no fórum mas não encontrei.

A minha dúvida é fazer uma cópia da planilha, mantendo toda a formatação feita nela, porém convertendo o conteúdo das fórmulas em texto.

Obrigado!

Silvio Felinto

 
Postado : 22/07/2014 9:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal gostaria de agradecer todas as respostas.
Resolvi o meu problema específico com a seguinte macro:

Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "COPIA_1º_TRIM"
Sheets("1º TRIM").Select
Range("C2:H33").Select
Selection.Copy
Sheets("COPIA_1º_TRIM").Select
Range("B2:I33").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("C:H").Select
Range("B2").Activate
Columns("C:H").EntireColumn.AutoFit
Range("B15").Select
End Sub

Silvio Felinto

 
Postado : 22/07/2014 10:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Quanto a sua dúvida, veja se ajuda!
http://www.google.com.br/cse?cx=partner ... up%20excel
Att

 
Postado : 22/07/2014 10:28 am