Excel vba worksheet copia plan x vezes deleta preservando desejada

Ter, 30 de Novembro de 2010 09:54 Expedito Marcondes
Imprimir

Saberexcel - site das macros excel

Esta macro do Aplicativo Microsoft Excel VBA, copia a planilha (Plan1) trinta vezes e adiciona as cópias ao livro. A macro abaixo é mais para o teste, pois deleta todas as folhas de planilha preservando a folha de planilha desejada.

Sub Copia_Planilha()
For x = 1 To 30
ActiveWorkbook.Sheets.Add
Sheets("Plan1").Cells.Copy
ActiveSheet.Paste
ActiveWorkbook.Sheets("Plan1").Select
Next x
End Sub

Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir

For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
    Plan.Delete
End If
Next

Application.DisplayAlerts = True
End Sub

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



   Baixe o exemplo de planilha contendo as macros acima
 vba worksheet copia plan x vezes deleta preservando desejada (18.4 kB 2010-11-30 11:00:02)

 

Tags:
Última atualização em Dom, 04 de Setembro de 2011 09:06