Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CRIANDO INPUTBOX PA...
 
Notifications
Clear all

CRIANDO INPUTBOX PARA INSERIR UM NOME NA ABA

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
1,240 Visualizações
RSS
 MIOJO
(@miojo)
Posts: 7
Active Member
Topic starter
 

Boa noite, galera

Criei um vba que vai na aba " Novo " que e um modelo para ser copiado e colado criando assim outra aba, apos criei uma inputbox "Digite o nome da Planilha" que eu insiro o nome que eu desejar nessa nova aba criada, mas estou com um problema, se eu digitar um nome já existente a vba depura, tirando isso funciona perfeitamente, alguém consegue me ajudar nessa ?, abaixo segue a vba que criei.

Sub Macro4()

Dim plan As String

    Sheets("Novo").Select
    Sheets("Novo").Copy After:=Sheets(2)

    plan = InputBox("Digite o nome da planilha")
    ActiveSheet.Name = plan
    Sheets("inicio").Select
              
End Sub
 
Postado : 29/07/2017 6:27 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub Macro4V2()
 Dim plan As String, ws As Worksheet
  plan = InputBox("Digite o nome da planilha")
   For Each ws In Worksheets
    If InStr(1, ws.Name, plan) = 1 Then
     MsgBox "já existe planilha com esse nome"
     Exit Sub
    End If
   Next ws
    Sheets("Novo").Copy After:=Sheets(2)
    ActiveSheet.Name = plan
    Sheets("inicio").Select
End Sub

Osvaldo

 
Postado : 29/07/2017 9:24 pm
 MIOJO
(@miojo)
Posts: 7
Active Member
Topic starter
 

Valeuu, Funcionou perfeitamente, Obrigado.

 
Postado : 29/07/2017 10:18 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite MIOJO

Percebi que você não sabe usar a ferramenta para agradecer (pontuar) aos colaboradores que te ajudaram, e também esta marcando errado, o tópico como resolvido na tua pergunta, sendo o correto, marcar na resposta que atendeu a tua dúvida.

Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/08/2017 6:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico