none
Adicionar Sheet via VBA RRS feed

  • Pergunta

  • Tenho o codigo abaixo que consegui com um user daqui, mas apresenta erro no botão cancelar.

    ADD SHEET

    Sub CriarPlanilha()
        Dim ws As Worksheet
        Dim sPlanilha As String
        
        sPlanilha = InputBox("Digite o nome de uma nova Planilha a ser criada:", , "Plan1")
        
        On Error Resume Next
        Set ws = Sheets(sPlanilha)
        On Error GoTo 0
        If ws Is Nothing Then
            Set ws = Sheets.Add
            ws.Name = sPlanilha
           Else
            MsgBox "Já existe uma Planilha com esse nome!", vbCritical
        End If
        
    End Sub

    Del sheet

    Sub ApagarPlanilha()
        Dim ws As Worksheet
        Dim sPlanilha As String
        
        sPlanilha = InputBox("Digite o nome da Planilha a ser excluída:", , "Plan1")
        
        On Error Resume Next
        Set ws = Sheets(sPlanilha)
        On Error GoTo 0
        If ws Is Nothing Then
            MsgBox "Não existe uma Planilha com esse nome!", vbCritical
        Else
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
       
    End Sub

    sexta-feira, 23 de novembro de 2012 11:59

Respostas

Todas as Respostas