Tentando contribuir
Eu faria assim:
Incluir no form que recebe o foco um label(fica oculto) com o nome do controle e formulario que o abriu.
Exemplo o option de nome Vai.
Private Sub UserForm_Initialize()
Me.Label1.Caption = frmCADASTRO.txtdescrição.Text
Label1.Caption = frmCADASTRO.OptVai.Name
End Sub
Depois no "fechamento" desse form, retorna para o form primeiro com o controle modificado
Private Sub UserForm_Terminate()
frmCADASTRO.txtsituação.Text = "FEchei tá"
With frmCADASTRO
For Each ct In .Controls
If ct.Name = Label1.Caption Then
If ct.Value = True Then
ct.Value = False
Else
ct.Value = True
End If
End If
Next
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/04/2013 12:18 pm