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)
