Multipage de 3 paginas con 3 hojas excel

[Visor]

Estimados amigos del foro he intentado hacer funcionar 3 paginas de un objeto Multipage (Primer Parcial, segundo parcial y Resultado final) en ella se cargan los datos, pero cuando salto de pagina, y luego regreso a la anterior, esta ya no muestra los datos como se espera si no que han cambiado, ejemplo:

esto no se muestra al inicio

Se que algunas otras cosas no están funcionando bien en el formulario como que se presentan en el listbox fechas antiguas a pesar de no haberlas puesto, los porcentajes en la tercera pagina, etc. , pero lo mas importante es que al cambiar de pagina no se alteren la forma en que se debe mostrar los datos en el listbox. Otra cosa al parecer cuando un estudiante no tiene ninguna nota la macro falla al elegirlo.

Subo el archivo para que lo vean

Dropbox - Multipage 3 pag con 3 hojas de excel.xlsm

Espero me puedan colaborar en este tema.

Gracias anticipadas

[Gerson Pineda]

Visor

Multipage tiene diferentes eventos, este control lo uso regularmente y no me falla, todo depende de como usas los eventos y como se dispara cada control que tienes en cada pagina

Revisa paso a paso los eventos que utilizas, por ahi debe estar la falla, pues, un listbox no debe alterarse por cambiar de pagina, lo he comprobado con las aplicaciones que he hecho para ciertos clientes

Saludos

[Visor]

Hola Gerson Pineda, Gracias,....Cuando le borre este código

Private Sub MultiPage1_Change()

'If MultiPage1.Value = 0 Then ListBox1.RowSource = "A2:A7"

'If MultiPage1.Value = 1 Then ListBox1.RowSource = "B2:B7"


ListBox1.RowSource = ""

If CbxNomEstudiant.ListIndex = 0 Then ListBox1.RowSource = "F10:J29"

If CbxNomEstudiant.ListIndex = 1 Then ListBox1.RowSource = "F90:J109"

End Sub[/CODE]

Empezo a funcionar bien. aun así, no veo un buen funcionamiento, pues cuando quiero cambiar de hoja en el combobox que esta ligado al listbox no lo hace adecuadamente, ademas estoy obligado a colocar nota al estudiante (al menos 1 punto) para que el resultado no de cero pues en el promedio abria error en la formula).

No veo entonces utilidad en este evento

[CODE]Private Sub MultiPage1_Change() .....End Sub[/CODE]

pues sin este funciona bien,... aun no le pillo el asunto

[Gerson Pineda]

Los eventos Change son a veces complicados de controlar, mejor utiliza el evento click, este funciona de modo similar, pero espera que des click a la pestaña para correr los procesos correspondientes, eso si, este evento no se activa cuando se usa la funcion del "acelerator" del control

Private Sub MultiPage1_Click[/PHP]

Cuando uses .RowSource debes especificar la ruta completa del nombre de la hoja con su rango, de lo contrario, te mostrara lo de la hoja activa

Realiza tus pruebas

Saludos

[Visor]

No me funciona, al hacer click en el boton para mostrar el userform sale esto:

[Gerson Pineda]

Ese evento es del control Multipage (igual que el Change), búscalo en la lista desplegable del control en el entorno VBA y agregas los procesos de listbox, según la pestaña/pagina del Multipage

Saludos

[Antoni]

Tu archivo ya no se puede descargar.

[Visor]

Hola Macro Antonio, es un gusto poder recibir la predisposición de ustedes expertos, en este tema.

En realidad fui buscando los problemas como lo indica Gerson y he hecho funcionar todo pero sin necesidad de ningún código para Multipage, y es ahí cuando hago la observación, entonces en realidad no se requiere nada de código cuando se usa multipage?? como puedo simplificar el código usando multipage.

Gran parte esta funcionando bien pero de seguro hay cosas que corregir pues la reacción la noto lenta cuando hago cambio de estudiante.

Abro nuevamente el link pues debido a que estaba haciendo las correcciones, supongo no permitía descargar.

Gracias nuevamente.

Dropbox - Multipage 3 pag con 3 hojas de excel.xlsm