none
Emitir MsgboX RRS feed

  • Pergunta

  • Ola bom dia,

    Como implementar esta macro caso o usuário não digita nada ou click em cancelar, Emitir uma MsgBoX e encerrar o procedimento?

    Sub CriarAba()
        Sheets(3).Name = InputBox("Digite o nome da nova Planilha:")
        Plan6.Copy Before:=Sheets(3)
        'If Sheets(3).Name = "" Then
     'Else
        'MsgBox "Cancelando Procedimento"
       ' End
     'End If
    End Sub
    

    Obrigado.

    domingo, 2 de novembro de 2014 14:14

Respostas

  • Sub Botão1_Clique()
    
    Dim Nome As String
    
        Nome = InputBox("Digite o nome da nova Planilha:")
        
        If Nome = "" Then
        
         MsgBox "Por favor, digite um nome valido para a planilha"
        
             
         End
         
         Else
     Sheets(3).Name = Nome
     Plan1.Copy Before:=Sheets(3)
     
        MsgBox "Planilha criada com sucesso!"
       
        End
         
    
    End If
    End Sub

    • Marcado como Resposta miguelinho70 segunda-feira, 3 de novembro de 2014 12:26
    segunda-feira, 3 de novembro de 2014 12:20

Todas as Respostas

  • Sub CriarAba()
        
        Plan_Name = InputBox("Digite o nome da nova Planilha:")
        
        If StrPtr(Plan_Name) = 0 Then
            MsgBox "Cancelando Procedimento"
            Exit Sub
        End If
        
        Sheets(3).Name = Plan_Name
        Plan1.Copy Before:=Sheets(2)
        
    End Sub


    Rafael Kamimura

    segunda-feira, 3 de novembro de 2014 11:44
  • Sub Botão1_Clique()
    
    Dim Nome As String
    
        Nome = InputBox("Digite o nome da nova Planilha:")
        
        If Nome = "" Then
        
         MsgBox "Por favor, digite um nome valido para a planilha"
        
             
         End
         
         Else
     Sheets(3).Name = Nome
     Plan1.Copy Before:=Sheets(3)
     
        MsgBox "Planilha criada com sucesso!"
       
        End
         
    
    End If
    End Sub

    • Marcado como Resposta miguelinho70 segunda-feira, 3 de novembro de 2014 12:26
    segunda-feira, 3 de novembro de 2014 12:20
  • Certíssimo fcvelho

    Obrigado.

    segunda-feira, 3 de novembro de 2014 12:27