Home Excel - Dicas Microsoft Excel VBA Excel VBA - Formulas e Funcoes Excel planilha vba formulas copia folha planilha sem formulas e objetos

Excel planilha vba formulas copia folha planilha sem formulas e objetos

E-mail Imprimir PDF

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

Eletrônicos - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 18:52  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA