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
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
Boa tarde!!
Porque postar a mesma dúvida em tópicos diferentes?
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
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
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