Usuário com melhor resposta
Formulário

Pergunta
-
Pessoal, boa tarde.
Existe a possibilidade de abrir o mesmo formulário duas vezes? Ou seja, minimizar um formulário (1), de cadastro por exemplo, e abrir outro formulário (2). E depois de preencher o formulário (2) e fechá-lo, maximizar o formulário (1) e continuar o preenchimento?
Respostas
-
Você pode esconder um UserForm e exibir o outro e vice-versa, conforme exemplo:
'Código do Form 1 Private Sub UserForm_Click() Me.Hide UserForm2.Show End Sub 'Código do Form 2 Private Sub UserForm_Click() Me.Hide UserForm1.Show End Sub
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 4 de julho de 2016 14:38
-
Num módulo ordinário, coloque o código:
Sub Main() Dim frmA As UserForm1 Set frmA = New UserForm1 frmA.Show End Sub
No módulo de UserForm1, crie um botão de comando e coloque o códigoi:
Private Sub CommandButton1_Click() Dim frmB As UserForm1 Set frmB = New UserForm1 frmB.Show End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br
- Editado Felipe Costa GualbertoMVP, Moderator terça-feira, 24 de novembro de 2015 18:27
- Sugerido como Resposta André Santo quinta-feira, 10 de dezembro de 2015 18:30
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 4 de julho de 2016 14:38
Todas as Respostas
-
Você pode esconder um UserForm e exibir o outro e vice-versa, conforme exemplo:
'Código do Form 1 Private Sub UserForm_Click() Me.Hide UserForm2.Show End Sub 'Código do Form 2 Private Sub UserForm_Click() Me.Hide UserForm1.Show End Sub
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 4 de julho de 2016 14:38
-
-
Num módulo ordinário, coloque o código:
Sub Main() Dim frmA As UserForm1 Set frmA = New UserForm1 frmA.Show End Sub
No módulo de UserForm1, crie um botão de comando e coloque o códigoi:
Private Sub CommandButton1_Click() Dim frmB As UserForm1 Set frmB = New UserForm1 frmB.Show End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br
- Editado Felipe Costa GualbertoMVP, Moderator terça-feira, 24 de novembro de 2015 18:27
- Sugerido como Resposta André Santo quinta-feira, 10 de dezembro de 2015 18:30
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator segunda-feira, 4 de julho de 2016 14:38