Notifications
Clear all

Abrir e fechar userform com condições

3 Posts
1 Usuários
0 Reactions
944 Visualizações
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal,

O meu projeto possui cerca de 12 userform's. Algumas delas são abertas através de várias userform's diferentes.

No exemplo abaixo a userform, através de um botão, é ocultada é abre a userform2.

Image1_Click()

UserForm1.Hide

'variável para encerramento da userform2
UserForm2.TextBox1.Text = 1

UserForm2.Show

End sub

Ao dar um duplo click na userform2, a mesma é encerrada através do código abaixo:

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox1.Text = 1 Then

Unload Me

UserForm1.Show

Exit Sub

End If

If TextBox1.Text = 2 Then

Unload Me

UserForm9.Show

Exit Sub

End If

Observa que, antes de fecha-la, o código utiliza o textbox1 como critério para encerramento. Nesse exemplo, ao dar duplo click, retornaremos para a userformm1. Isso funciona perfeitamente no comando UserForm_DblClick.

A minha dificuldade estar em utilizar o botão X da userform para executar esse código.

No UserForm_QueryClose até que funciona, ou seja, ele fecha a userform2 e reabre a userform1, mas isso só por uma vez, porque se eu abrir a userform2 de novo, a mesma fica bloqueada.

O que vocês sugerem ?

 
Postado : 06/02/2015 12:25 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal,

Alguém poderia ajudar-me?

 
Postado : 07/02/2015 1:29 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal,

Alguém ao menos entendeu a necessidade relatada por mim?

 
Postado : 10/02/2015 10:31 am