Boa tarde, companheiros.
Devido ao fato de que a demanda aqui era "pra ontem", fiz uma bagunça e dei um jeito.
Agradeço a resposta do Mitsueda.
Quanto ao código, acabou ficando assim:
Private Sub cmdPlan1_Click() ' Ambiente da Planilha "Plan1"
UserForm1.Show
End Sub
Private Sub cmdFechar_Click() 'Ambiente do UserForm1
UserForm1.Hide
End Sub
Private Sub cmdZarcNao_Click()
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub cmdZarcSim_Click()
UserForm1.Hide
UserForm2.Hide
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Obrigatório Proagro Mais, de acordo com o MCR 16-10-3"
Style = vbOKCancel + vbInformation
Title = "Assistente de enquadramento"
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
MyString = "Ok"
Else
MyString = "Cancel"
UserForm1.Show
End If
End Sub
Private Sub cmdPlantioIrrigadoNao_Click() 'Ambiente do UserForm2
UserForm2.Hide
UserForm3.Show
End Sub
Private Sub cmdPlantioIrrigadoSim_Click()
UserForm2.Hide
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Obrigatório Proagro Mais, de acordo com o MCR 16-10-4-a" ' Define a mensagem.
Style = vbOKCancel + vbInformation ' Define os botões.
Title = "Assistente de enquadramento" ' Define o título.
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then ' O usuário escolheu Sim.
MyString = "Ok" ' Executa alguma ação.
Else ' O usuário escolheu Não.
MyString = "Não" ' Executa alguma ação.
UserForm2.Show
End If
End Sub
Private Sub cmdVoltarForm2_Click()
UserForm2.Hide
UserForm1.Show
End Sub
Private Sub cmdConsorcioNao_Click() 'Ambiente do UserForm3
UserForm3.Hide
UserForm4.Show
End Sub
Private Sub cmdConsorcioSim_Click()
UserForm3.Hide
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Obrigatório Proagro Mais, de acordo com o MCR 16-10-4-b" ' Define a mensagem.
Style = vbOKCancel + vbInformation ' Define os botões.
Title = "Assistente de enquadramento" ' Define o título.
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then ' O usuário escolheu Sim.
MyString = "Ok" ' Executa alguma ação.
Else ' O usuário escolheu Não.
MyString = "Cancel" ' Executa alguma ação.
UserForm3.Show
End If
End Sub
Private Sub cmdConsorcioVoltar_Click()
UserForm3.Hide
UserForm2.Show
End Sub
No final das contas não conseguir fazer o botão "Voltar" retornar ao mesmo UserForm, apenas alterando o rótulo e o conteúdo do botão "Sim". Devido à demanda, optei por criar inúmeros UserForms e colocar o botão "Voltar" pra ficar navegando entre eles.
Agradeço a ajuda e solicito à moderação que marque este tópico como resolvido.
Saudações
Postado : 11/09/2012 1:10 pm