Saberexcel o site das macros
Essa macro do Aplicativo microsoft Excel VBA, copia a folha de planilha ativa sem fórmulas e sem os objetos(botoes) para última folha de planilha do Livro.
Option Explicit
Sub Copiar_Planilhas()
Dim SbCelNome As String, SbObjetos As Object
Dim wshPlan As Worksheet
Dim rnCell As Range
Dim i As Integer
Application.ScreenUpdating = False
i = Worksheets.Count
ActiveSheet.Copy after:=Worksheets(i)
i = i + 1
Set wshPlan = Worksheets(i)
'Se houver célula com fórmulas na celula
On Error Resume Next
'Converte fórmulas para valores constantes
For Each rnCell In wshPlan.Cells.SpecialCells(xlFormulas)
rnCell.Value = rnCell.Value
Next rnCell
'É uma colecção compreensiva na fórmula planilha pode
'ser mais rápido com o Colar Especial.
'With wshPlan.UsedRange
' .Copy
' .PasteSpecial Paste:=xlValues
'End With
'Application.CutCopyMode = False
'Recuperando nome da folha
SbCelNome = CStr(wshPlan.Range("A2").Value)
'Remove o Formulário objeto, valores, e para compartilhar ficha
'seu nome
With wshPlan
For Each SbObjetos In .Shapes
SbObjetos.Delete
Next SbObjetos
.Name = SbCelNome
.Range("B4:B6").Value = ""
.Range("A1").Select
End With
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didaticos Saberexcel
Baixe o exemplo de planilha com a macro acima
Excel planilha vba formulas copia folha planilha sem formulas e objetos (36.71 kB)
Publicidade
Compre com segurança, garantia e ótimos preços 
