Seleccionar hoja y activarla

8 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Seleccionar hoja y activarla

Buenas tardes:

Tengo un formulario donde incruste un cuadro de página múltiple, y cada página tiene un botón, mediante los cuales voy a la hoja seleccionada, por ejemplo si elijo ir a boletos emitidos me sitúa en la hoja BOLETOS, en la siguiente página del formulario elijo ir a recibos cierra el formulario y seleccionar la hoja RECIBOS, lo mimo con regresos, hasta ahí todo bien, funciona, solo que al estar en la hoja es como si no estaría activada no me permite escribir nada, solo si hago un cambio de hoja de calculo de forma manual, recién activa la hoja.

Cual seria la solución por favor, de que al elegir la hoja mediante el formulario pueda escribir en la misma, sin la necesidad de como les indique cambiar de hoja que hago manualmente que active la hoja y trabajar en ella.

Muchas gracias

Jesús

AdjuntoTamaño
File cajaejem.rar399.5 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Utilizas código como:Sheets(

Utilizas código como:

Sheets("TKT").Select

 

Mejor prueba con 

Sheets("TKT").Activate

 

Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
No actua

Negativo de la misma manera que select, actua activate

Es como si seguiria en la otra hoja y no en la que seleccione

saludos

Jesús

Jesus Martinez Plantarosa

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
No sé qué puede ocurrirte. A

No sé qué puede ocurrirte. A mí me funciona correctamente.

Prueba a poner el Unload.me después del resto:

sheets("LOQUESEA").activate
Range("A1").select
Unload.me


Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Hago todo

Negativo tampoco lo activa, es como si en forma paralela estaria escribiendo, y no me permite escribir en la hoja seleccionada.

 

Jesus Martinez Plantarosa

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Lo siento, no te puedo ayudar

Lo siento, no te puedo ayudar porque a mí tu código tal cual lo subiste me funciona correctamente. ¿Quizás sea por la versión de Excel?

Ojalá Paco o alguien más sepa qué decir.

Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
gracias

Gracias

Jesus Martinez Plantarosa

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 4 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
por alusiones

Sólo se me ocurre que puede ser un problema con que Windows no devuelve el foco a Excel, o no del todo

me ha ocurrido en alguna ocasión cuando paso de Excel o Access a Word y luego vuelvo al programa principal, pero el word no se puede editar hasta que no haces clic en otra aplicación y vuelves a entrar

No me ocurre con todas las versiones de Excel, así que puede ser algún problema de alguna versión en concreto (y por eso a Cron le funciona pero a Jesús no)

Para volver a traer el foco del sistema a Excel, utiliza AppActivate. como el argumento es el nombre de la ventana, tómalo con Application.Caption.

En resumen, prueba con esto a ver

AppActivate Application.Caption

También te comento que con algunas versiones de Windows (no sé si será una combinación de versión de Office y versión de Windows) esto produce un error 5 en tiempo de ejecución.

Prueba a ver si te funciona y nos cuentas.

 

------
Ya sé Excel, pero necesito más.