Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA Testar existenc...
 
Notifications
Clear all

VBA Testar existencia da planilha

 
2024 - VBA & Macros
Post Recente por marcosta 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,062 Visualizações
RSS
 marcosta
(@marcosta)
Posts: 13
Active Member
Topic starter
 

Boa Noite,

Preciso criar um código para testar a existencia de uma Sheet:

Se existir a sheet (plan1)
então
deletar Sheet (plan1)
fim
se não
fim

Portanto se plan1 existir eu quero deletar, se não existir não quero fazer nada.

Obrigado pela atenção.

 
Postado : 07/11/2015 3:29 pm
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

Pode ser assim:

Public Sub DeletarPlan()

    Const cPLAN As String = "Plan1"
    
    Dim wkb As Workbook
    Dim wks As Worksheet
    
    Application.DisplayAlerts = False
    
    Set wkb = ThisWorkbook
    
    For Each wks In wkb.Worksheets
        If wks.Name = cPLAN Then
            wks.Delete
        End If
    Next wks

    Set wks = Nothing
    Set wkb = Nothing
    
    Application.DisplayAlerts = True

End Sub
 
Postado : 07/11/2015 3:45 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

marcosta,

Boa Tarde!

Veja e é assim.

ExcluirPlan1.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/11/2015 3:45 pm
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

Ou assim:

Public Sub DeletarPlan_01()

    Const cPLAN As String = "Plan1"
    
    Dim wkb As Workbook
    
    Application.DisplayAlerts = False
    
    Set wkb = ThisWorkbook
    
    On Error Resume Next
    wkb.Worksheets(cPLAN).Delete
    
    Set wkb = Nothing
    
    Application.DisplayAlerts = True

End Sub
 
Postado : 07/11/2015 3:46 pm
 marcosta
(@marcosta)
Posts: 13
Active Member
Topic starter
 

Nelson,

Funcionou perfeitamente,

Obrigado.

 
Postado : 07/11/2015 3:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico