Notifications
Clear all

gerar planilha atravez de um botão no userform

3 Posts
2 Usuários
0 Reactions
937 Visualizações
(@rdvale)
Posts: 0
New Member
Topic starter
 

Boa noite pessoal
estou montando um sistema de treinamento, onde o usuário tem acesso a vídeo-aulas e poderá fazer uma prova no próprio sistema. Minha dúvida é a seguinte estou criando um menu de administração onde o administrador irá clicar no botão Nova prova e automático gere uma nova planilha que ele possa renomear mas não sei se é possível.
Desde ja agradeço.
Amanhã envio a minha planilha pra vcs darem uma olhada valeu!

 
Postado : 11/01/2016 6:47 pm
(@messiasmbm)
Posts: 0
New Member
 
Private Sub CommandButton1_Click()

If TextBox1 = "" Then
MsgBox "Coloque um nome para criar a planilha !"
Exit Sub
End If

On Error GoTo seu_erro
Sheets.Add
ActiveSheet.Name = TextBox1
TextBox1 = ""
Exit Sub

seu_erro:
MsgBox "Já existe uma planilha com esse nome !"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
 
Postado : 11/01/2016 10:05 pm
(@rdvale)
Posts: 0
New Member
Topic starter
 

Valeu que vc passou resolveu minha duvida e funcionou certinho obrigado mais uma vez pela atenção messiasmbm

 
Postado : 12/01/2016 11:59 am