Ir mediante botón de formulario a la hoja seleccionada y activarla
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 ctrl+regpag o ctrl+avpag, ojo que no quisiera mediante macro hacer lo que hago manualmente, si no que active la hoja y trabajar en ella.
Muchas gracias
Jesús
PD. Si a alguien le interesa, le puedo mandar el archivo.
2 Respuestas
No puedo estar seguro de que es exactamente lo que falla sin ver el código y el archivo, o tener algunos detalles más que no has dado...
Prueba esto... (si ninguno funciona comparte el archivo para poder descargarlo y ver si se ubica el error)
1) Puede ser que el botón ActiveX que muestra el formulario se haya quedado con el enfoque (después de mostrar el formulario)... verifícalo, si es así, cambia la propiedad TakeFocusOnClick del botón a False
2) Quizás en alguna parte de tu macro cambias el enfoque hacia otra ventana... prueba poner el siguiente código en el formulario, después de la instrucción que activa la hoja:
AppActivate Replace(Application. Caption, " - Excel", "")
Comentas como te fue
Saludos,
Jaime
Buenas noches este es el codigo
Private Sub CommandButton3_Click()
Unload Me
Sheets("BOLETOS").Visible = True
'Sheets("BOLETOS").Range("H1").Select
'Workbooks("Caja TT.xlsm").Worksheets("BOLETOS").Activate
'ActiveSheet.Range("A1").Select
Sheets("BOLETOS").Select
Range("A1").Select
End Sub
saludos
Jesus
Implementa en el código las dos sugerencias que te indique.
Además pon el comando Unload al final de la subrutina.
De continuar el problema, enviame el archivo
Como estás, estos ejemplos quizás te orienten
Visita http://programarexcel.com descarga cientos de ejemplos de macros gratis
suscribe a https://www.youtube.com/channel/UCTKYXi9ljxxOAXXKgwWDDpQ y recibe actualizaciones de los nuevos ejemplos que se presenten