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 com Saberexcel
|