Notifications
Clear all

Fazer backup de planilhas

6 Posts
2 Usuários
0 Reactions
1,447 Visualizações
Fernando Fernandes
(@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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2014 8:49 am
(@miranda)
Posts: 46
Eminent 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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

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

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2014 9:33 am
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2014 9:49 am
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2014 10:28 am
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2014 10:28 am