Activar frames conteniendo optionbuttons para enviar a otro userform

No me quedo muy claro como indicas cual debe ser el frame visible. Comentas:

'... Para mostrar solo uno de estos frames uso otro commandbuton que hace que no hagan visibles los demás y solo quede uno que haya seleccionado, entonces ese es el CASE...'

Ese código no lo dejaste pero debiera guardar algún dato del frame que queda visible. Y ese dato debe colocarse en una variable publica. Y luego el otro botón tendrá las opciones del Select Case.

Por ej:

Dim nbreFrame As String
Private Sub CommandButton1_Click()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
nbreFrame = Frame2.Caption
End Sub
Private Sub CommandButton2_Click()
'segun el nro o nombre del frame será el codigo
Select Case nbreFrame
Case Is = "Nivel I"
Case Is = "Nivel II"
Case Is = "Nivel III"
End Select
End Sub

 Seguramente también se podrá simplificar las instrucciones dentro del Select porque veo instrucciones que parecen repetidas... pero empezá probando así.

Ya tenés mi correo. Si te parece que no quedó claro tu ejemplo o mi explicación podés enviármelo para que lo revise.

¡Gracias! Elsamatilde

Claro lo del botón efectivamente lo tenia casi así como lo dices, y no lo puse por no creer era necesario, y veo que si lo has entendido como lo expuse, en realidad se mejoro como lo has recomendado, solo que ciertos ajustes de resultados al inicializar el otro frmTexDef

Lo del Botón:

Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
CbxCompHechos.Visible = False
CbxCompConcep.Visible = False
CbxCompProces.Visible = False
CbxCompProced.Visible = False
CbxCompPrinc.Visible = False
CbxCompMetaCog.Visible = False
OptionButton7. Visible = False

Claro te envío al correo el archivo para que lo veas, y me puedas poner una manito. Te agradezco anticipadamente.

Son muchos los errores detectados. Paso a listarlos:

Estos son los ajustes a realizar:

1 -

Selecciono 'RECORDAR' se activa el frame Nivel I

Selecciono HECHOS se muestra el combo RecHechos y el primer option.

Pero me arrepiento y decido seleccionar COMPRENER... se activa el frame Nivel II ... OK

Y como me quedó HECHOS seleccionado de la primer elección ya no me muestra el primer combo ni el primer option que necesito.

Es decir que al seleccionar los controles superiores también debes volver a false los option de la lista a la izquierda.

2 -

Si por cada Option de la lista a la izquierda (HECHOS, CONCEPTOS, PROCESOS...) solo se activa un combobox dentro del frame NO es necesario que además le agregues un optionbutton para tildar. Se pregunta si el combo está visible o si tiene valor.

3-

En Private Sub CmdVRecordar_Click()  la instrucción nbreFrame debe indicar Frame1. Caption (decia 2) y esa instrucción debe estar en todos los eventos Clic de los cuadros superiores, en cada una según el nro de Frame.

Para Private Sub CmdVComprender_Click()  será:

nbreFrame = Frame2. Caption 'se guarda el nombre del frame que se muestra

4-

Esta es la parte que se te mejorará al cambiar el pto 2 donde menciono lo del exceso de option.

Mientras, así como está las primeras 2 opciones fallan porque si Optionbutton1 está seleccionado, no lo está el OB2 y en ese caso se ejecuta esta línea (***)

'1 Recordar

If OptionButton1.Value = True Then 

frmVerTaxDef.TbxDefVerb = Me.CbxRecHechos.Value

Else

MsgBox "Debe seleccionar"

End If

If OptionButton2.Value = True Then

frmVerTaxDef.TbxDefVerb = Me.CbxRecConcep.Value

Else

MsgBox "Debe seleccionar"     (***)

End If

Lo correcto sería como lo que aparece en tu código más abajo

'1 Recordar

If OptionButton1.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecHechos.Value

If OptionButton2.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecConcep.Value

If OptionButton3.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecProces.Value

If OptionButton4.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecProced.Value

If OptionButton5.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecPrinc.Value

If OptionButton6.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecMetaCog.Value

5-

Hace una lista con los nombres de los controles del 2do formulario y verificá qué campos le estás pasando... se te mezclaron algunos en los distintos Case.

Con esto debiera quedar todo resuelto. Si no es así por favor valora lo hecho hasta aquí y deja una nueva consulta iniciando el mensaje con 'Para Elsa' y allí me comentas y me envias tu último libro para verificarlo.

¡Gracias! definitivamente veo que no  funciona con el select case o sera que no puedo aplicarlo. el select que me diste fue este:

'Select Case nbreFrame
'Case Is = "Nivel I"
'Case Is = "Nivel II"
'Case Is = "Nivel III"
'End Select

lo deje así:

Dim nbreFrame As String
'PARA CARGAR LOS LABELS DEL frmVerTaxDef segun el frame que se haya seleccionado
Select Case nbreFrame
Case Is = "Nivel I"  '1 RECORDAR
frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption
frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
Case Is = "Nivel II"    '2 COMPRENDER
frmVerTaxDef.LbNiv = Frame2.Caption
frmVerTaxDef.LbNivel = CmdVComprender.Caption
Case Is = "Nivel III"   'APLICAR
frmVerTaxDef.LbNiv = Frame3.Caption
frmVerTaxDef.LbNivel = CmdVAplicar.Caption
Case Is = "Nivel IV"    'ANALIZAR
frmVerTaxDef.LbNiv = Frame4.Caption
frmVerTaxDef.LbNivel = CmdVAnalizar.Caption
Case Is = "Nivel V" 'EVALUAR
frmVerTaxDef.LbNiv = Me.Frame5.Caption
frmVerTaxDef.LbNivel = Me.CmdVEvaluar.Caption
Case Is = "Nivel VI"    'CREAR
frmVerTaxDef.LbNiv = Me.Frame6.Caption
frmVerTaxDef.LbNivel = Me.CmdVCrear.Caption
'Case Else
 'MsgBox "Debe seleccionar"
'End With
End Select

pero no funciona

Entonces use el código que mencionas, que estaba correcto pero le puse lo que estaba en la instrucción select que tenia. Es bastante largo!!!

'1 Recordar
If OptionButton1.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecHechos.Value: frmVerTaxDef.LbDim.Caption = Me.OpBnHechos.Caption: frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption: frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
If OptionButton2.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecConcep.Value: frmVerTaxDef.LbDim = OpBnConcept.Caption: frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption: frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
If OptionButton3.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecProces.Value: frmVerTaxDef.LbDim = OpBnProces.Caption: frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption: frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
If OptionButton4.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecProced.Value: frmVerTaxDef.LbDim = OpBnProced.Caption: frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption: frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
If OptionButton5.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecPrinc.Value: frmVerTaxDef.LbDim = OpBnPrinc.Caption: frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption: frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
If OptionButton6.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecMetaCog.Value: frmVerTaxDef.LbDim = OpBnMetaCog.Caption: frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption: frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption

Esto si funciono!!!!

Ahora con el ánimo de ver si hago funcionar el select, hice esto:

Dim nbreFrame As String
'PARA CARGAR LOS LABELS DEL frmVerTaxDef segun el frame que se haya seleccionado
Select Case nbreFrame
Case Case Is = "Nivel I"  '1 RECORDAR
frmVerTaxDef.LbNiv.Caption = Me.Frame1.Caption
frmVerTaxDef.LbNivel.Caption = Me.CmdVRecordar.Caption
'1 Recordar
If OptionButton1.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecHechos.Value: frmVerTaxDef.LbDim.Caption = Me.OpBnHechos.Caption
If OptionButton2.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecConcep.Value: frmVerTaxDef.LbDim = OpBnConcept.Caption
If OptionButton3.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecProces.Value: frmVerTaxDef.LbDim = OpBnProces.Caption
If OptionButton4.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecProced.Value: frmVerTaxDef.LbDim = OpBnProced.Caption
If OptionButton5.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecPrinc.Value: frmVerTaxDef.LbDim = OpBnPrinc.Caption
If OptionButton6.Value = True Then frmVerTaxDef.TbxDefVerb = Me.CbxRecMetaCog.Value: frmVerTaxDef.LbDim = OpBnMetaCog.Caption

Claro solo estoy mostrando lo del primer bloque del frame1, pero es del mismo  modo los demás frames, pero,....No funcionó

El mensaje tampoco logré hacer funcionar...

Si no hay mas sugerencias respecto al select. Te agradezco mucho el apoyo que me has dado. Subiré otro tema para poder mostrar la definición según tres criterios que son los que están en el según do userform 

Envíame el libro tal como te quedó, porque me mareaste con tantos cuadros ;)

Además habia mucho código para corregir... quizás todavía falten detalles.

Sdos!

¡Gracias! Acabo de enviártelo

Y yo acabo de enviarte las correcciones y una imagen para que veas que funciona ahora con esos cambios.

Sdos!

¡Gracias! 

Lo siento!!!

frmVerTaxDef.LbNiv = nbreFrame    ' es lo mismo que Frame1.Caption 

Esto solo funciona para el frame1

Le he puesto al frame2

frmVerTaxDef.LbNiv = Frame2.Caption

asi

Case Is = "NIVEL II"

frmVerTaxDef.LbNiv = nbreFrame 

no funciona

y este mensaje

'aquí coloca el texto que corresponda a los botones 'Hechos', conceptos, etc

no le comprendo ... los caption de los optionbuttons de es estos deben trasladarse según lo que se escoja

ya están los cambios previamente indicados, solo dale por favor click al boton azul y miralo

Muy agradecido

Te faltó colocar en la variable el nombre del Frame. Esto va, como dice la instrucción, en el CLICK de cada botón superior:

En la subrutina Cmd------_Click va el nombre que corresponda al Frame.

Con respecto al nombre de los botones en el mensaje, la instrucción original decía:

'Falta seleccionar' sin mencionar dónde falta seleccionar.

Y se me ocurrió que al usuario le sería más claro si el mensaje saliera así:

"Debe seleccionar un botón de opción de la DIMENSION DEL CONOCIMIENTO"

Sdos!

Gracias por la paciencia

Ahora funciona hasta el frame 3, no comprendo la razón por la cual solo funciona hasta el tercer botón superior. A partir del 4 ya no funciona. 

Desde el botón 1 hasta el 6 tengo lo que me indicas

y en los Case, tengo igualmente como lo indicas desde el I hasta el VI

Funciona hasta el III

Todo lo demás esta igual, que cosa le falta??

Por favor podría echarle in vistazo??

Gracias por la paciencia

Creo que te estas olvidando que el texto de los caption está en mayúsculas... revisa los 'Case' anteriores y así debes colocarlos en estos que te faltan.

Sdos!