Usuário com melhor resposta
Emitir MsgboX

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.
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
Todas as 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
-