Centrar pantalla referente a una celda
Hola,
En un libro de múltiples hojas, estoy creando varias macros de desplazamiento por el libro tratando de fijar la pantalla en función de la celda seleccionada: Por ejemplo:
Sub VOLVERDATOS_CON()
Application.ScreenUpdating = False
Sheets("DATOS").Activate
Range("E22").SelectActiveWindow.Zoom = 180
End Sub
El problema está en que habiéndose ejecutado, la celda E22 queda fuera de la pantalla y tengo que buscarla con las barras de desplazamiento.
'ActiveWindow.SmallScroll
La pregunta es: hay algún comando que en este caso dejara la celda E22 en el centro de la pantalla? Y cambiando los valores la celda se desplazara automáticamente (subirla, bajarla, a la derecha, a la izquierda)
Espero haberme explicado de forma comprensiva.
Gracias por la atención.
1 respuesta
En el centro de la pantalla no creo que se pueda directamente, pero sí en la esquina superior izquierda:
Application.Goto Range("Hoja1!E22"), TrueSi necesitas centrar la celda en la ventana, supongo que después del Goto podrías hacer pruebas con Offset, por ejemplo:
ActiveCell.Offset(-15, -4).Select
Range("Hoja1!E22").Select
