Abrir un Multipage según la condición de una celda

Abrir un Multipage según la condición de una celda:::
Hola, agradeceré me puedan ayudar con esto,
- Tengo un formulario "Userform1" con un multipage que tiene 9 paginas, cada una con un formulario distinto (PAGE0 = Inicio, PAGE1 = Control, PAGE2 = Productos, PAGE3 = clientes, PAGE4 = Info, etc...) y
- Tengo una hoja "Hoja1" con una lista desplegable con varias opciones:
1) INICIO
2) CONTROL
3) PRODUCTOS
4) CLIENTES
5) INFO
ETC...
Lo que necesito lograr es lo siguiente.:
Cuando seleccione "INICIO" de la "hoja1" la celda "A1" (donde esta la lista desplegable), se abra el Formulario en la page0 "Inicio"
Cuando seleccione "Productos" de la "hoja1" la celda "A1" (donde esta la lista desplegable),
se abra el Formulario en la PAGE2 "PRODUCTOS", Etc...
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 = "Productos"
UserForm1.Show
MultiPage1.Value = 2
'etc, etc, etc...
End Select
End Sub

Mil saludos y muchos puntos a quien me ayude =)

0

Añade tu respuesta

Haz clic para o