Selección de MULTIPAGE según condición.

Hola, agradeceré me pueda ayudar con esto,


Tengo un formulario "Userform1" con un multipage que tiene 9 paginas,
cada una con una función diferente (formulario de encuesta) en la pagina 0 del Multipage, esta la pagina de inicio, en la pagina 1 del multipage, esta la pagina de control, etc...

(PAGE0 = Inicio) - (PAGE1 = Control) - (PAGE2 = Productos) - (PAGE3 = Clientes) etc...

y...
Tengo una hoja "Hoja1" con una lista desplegable con varias opciones:
1) INICIO
2) CONTROL
3) PRODUCTOS
4) CLIENTES
Etc...


Lo que necesito lograr es lo siguiente.:
Cuando seleccione "INICIO" en la "hoja1" la celda "A1" (donde esta la lista desplegable),
se abra el Formulario en la PAGE0 "Inicio" del multipage.


Cuando seleccione "Control" de la "hoja1" la celda "A1" (donde esta la lista desplegable),
se abra el Formulario en la PAGE1 "PRODUCTOS", Etc...

lo mismo para cada items.


adjunto el código que estoy tratando de modificar:


Private Sub Worksheet_Change(ByVal Target As Range)
'se ejecuta si ha cambiado la celda A1
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target.Value
Case Is = "INICIO"
UserForm1.Show
MultiPage1.Value = 0
Case Is = "CONTROL"
UserForm1.Show
MultiPage1.Value = 1
Case Is = "PRODUCTOS"
UserForm1.Show
MultiPage1.Value = 2

ETC...

End Select
End Sub


Mil saludos =)

Añade tu respuesta

Haz clic para o