Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Excluir Plani...
 
Notifications
Clear all

Macro Excluir Planilhas

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
2,239 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, Boa Tarde

Tentei montar um macro que faz o seguinte:
Excluir todas as planilhas que são geradas numa tabela dinamica que contenham o nome: "Plan1"; "Plan2";"Plan3";....
vejam a macro que montei

On Error GoTo excluir:
Sheets("Plan1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Plan2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Plan3").Select
ActiveWindow.SelectedSheets.Delete
excluir:
Sheets("MENU_GERAL").Visible = True
Sheets("MENU_GERAL").Select

Até ai OK, se tiver as todas as tres planilhas ela realiza a macro.

Oproblema é que: se tiver Somente as ''Plan2" e a ''Plan3" a macro ja salta para o final, porque deu erro porque não existe a "Plan1". Sendo que ela nem tentou excluir a 2 e a 3.

Resumindo: Precisava de uma macro que excluia de "Plan1" até "Plan4". Se não tiver a 1, ela tente a dois, caso tambem não tenha a 2, ele exlua a 3 e verifique se a 4 existe se existir tambem a exclua.

ai depois dele verificar uma por uma vai para o comando final.

Isso é possivel?

Obrigado

 
Postado : 29/07/2011 2:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Julio, tente :

Sub DeletaSheets()
Dim ws As Worksheet

    For Each ws In Worksheets
      
      Application.DisplayAlerts = False
      
      Select Case ws.Name
     
           Case "Plan1"
               ws.Delete
           
           Case "Plan2"
               ws.Delete
           
           Case "Plan3"
               ws.Delete
           
           Case "Plan4"
               ws.Delete
           
       End Select
    
    Next
    Application.DisplayAlerts = True
End Sub

[]s

 
Postado : 29/07/2011 7:22 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro, ficou estupendo.

Fino d+++!!!

Valeu, obrigado

 
Postado : 02/08/2011 2:42 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico