Configuración de Excel para un libro
Hola: ¿Es posible configurar la tecla "Enter" de manera que para algunos libros al presionarla se dirija a la derecha y en otros, me quede por defecto la dirección hacia abajo?. O ¿Para cada caso tendré que modificar mi configuración en el cuadro Opciones?
Gracias anticipadas
Gracias anticipadas
{"Lat":2.81192842119801,"Lng":-63.2829129695892}
1 Respuesta
Respuesta de jrgces
1
Que yo sepa esas opciones se aplican a todos los libros, así que la única forma de cambiarlas automáticamente es mediante código.
Por ejemplo, para que al abrir un libro la selección se mueva hacia abajo pero al cerrarlo se restauren los valores por defecto, el código sería:
Private blMoverDespuésDeEnter As Boolean
Private lDirecciónDespuésDeEnter As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Restablecer la configuración por defecto
Application.MoveAfterReturn = blMoverDespuésDeEnter
Application.MoveAfterReturnDirection = lDirecciónDespuésDeEnter
End Sub
Private Sub Workbook_Open()
'Almacenar la configuración por defecto
blMoverDespuésDeEnter = Application.MoveAfterReturn
lDirecciónDespuésDeEnter = Application.MoveAfterReturnDirection
'para que se mueva automáticamente hacia abajo:
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlDown ' o xlUp, xlToLeft, xlToRight dependiendo de lo que se quiera
End Sub
Código que va en el módulo del libro (en ThisWorkbook).
Por ejemplo, para que al abrir un libro la selección se mueva hacia abajo pero al cerrarlo se restauren los valores por defecto, el código sería:
Private blMoverDespuésDeEnter As Boolean
Private lDirecciónDespuésDeEnter As Long
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Restablecer la configuración por defecto
Application.MoveAfterReturn = blMoverDespuésDeEnter
Application.MoveAfterReturnDirection = lDirecciónDespuésDeEnter
End Sub
Private Sub Workbook_Open()
'Almacenar la configuración por defecto
blMoverDespuésDeEnter = Application.MoveAfterReturn
lDirecciónDespuésDeEnter = Application.MoveAfterReturnDirection
'para que se mueva automáticamente hacia abajo:
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlDown ' o xlUp, xlToLeft, xlToRight dependiendo de lo que se quiera
End Sub
Código que va en el módulo del libro (en ThisWorkbook).
