VBA Testar existencia da planilha

2024 - VBA & Macros

Post Recente por marcosta 9 anos atrás

5 Posts

3 Usuários

0 Reactions

1,073 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-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