Saberexcel - o site das macros

Esse exemplo de macro do Aplicativo Microsoft Excel VBA, faz uma copia de uma determinada folha de planilha e adiciona no Workbook, mas não copia os caracteres númericos.

Sub Copiar_Planilha()
Dim WsPlan As Worksheet
Dim i As Integer

If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha!", vbCritical
Exit Sub
End If

Application.ScreenUpdating = False

i = Worksheets.Count
ActiveSheet.Copy After:=Sheets(Sheets.Count)
i = i + 1

Set WsPlan = Worksheets(i)
On Error Resume Next
'usando esta linha de códigos copiará somente as fórmulas para nova planilha
WsPlan.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub


Aprenda Aplicativo Microsoft Excel VBA - SaberExcel



   Baixe o exemplo de planilha contendo a macro acima
vba worksheet adiciona nova planilha sem numeros (34.67 kB 2010-11-30 16:41:27)