Deletar Guias VBA (criando CheckBox)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Deletar Guias VBA (criando CheckBox)

Mensagem por alexandrevba em Ter Maio 27, 2014 4:19 pm

Boa tarde!!

Como listar as abas de um arquivo e deleta-las.
Código:
'Código Criado Por Antonio Marcos Oliveira
' 27/05/2014
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=11840&sid=b72550a5152e45c84f529ae785117d67
Private Sub UserForm_Initialize()
Dim Controle As Object
Dim Abas As Object
Dim DistanciaComponente As Integer
 
  For Each Abas In Worksheets
   If Abas.Name <> "Menu" Then
       DistanciaComponente = DistanciaComponente + 20:
      
       Set Controle = Controls.Add("Forms.CheckBox.1")
      
       Controle.Caption = Abas.Name
       Controle.Left = 10
       Controle.Top = DistanciaComponente
    End If
   Next Abas
End Sub
Código:
Private Sub CmdDeleteAbas_Click()
Application.DisplayAlerts = False
On Error Resume Next
Dim Controle As Object

   For Each Controle In Me.Controls
      If TypeName(Controle) = "CheckBox" Then
         If Controle.Value = True Then
            Sheets(Controle.Caption).Delete
          
         End If
      End If
   Next Controle
End Sub
Veja arquivo modelo em:
sendspace.com 1a5urq

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum