SI SE PUEDE

29/09/2005 - 22:45 por SE PODRA | Informe spam
Tengo un problemon tengo una hoja de excel donde necesito
que cada ves que doy enter me desplace hacia la derecha y
no hacia abajo ya lo intente con herraminetas y opciones
pero el problema es que cuando habro otra de excel hace
exactamente lo mismo lo que yo quiero es que solo lo haga
en esta hoja en particular y de visual no se absolutamente
nada y me habian dicho que con visual basic si se podia
cualquier ayuda gracias.

Pero muchas gracias.
 

Leer las respuestas

#1 Héctor Miguel
30/09/2005 - 02:09 | Informe spam
hola, 'anonimo/a' !

... una hoja... donde necesito que cada ves que doy enter me desplace hacia la derecha y no hacia abajo
... con herraminetas y opciones... el problema es que cuando abro otra de excel hace exactamente lo mismo
... quiero... que solo lo haga en esta hoja en particular y de visual no se absolutamente nada [...]



[menu] herramientas / [ficha] modificar / [seccion] configuracion -> mover seleccion... Y direccion
-> ES una carcteristica ->opcional<- de la configuracion de cada usuario/pc [y tu 'se la vas a mover'] :-(
se puede utilizar el evento '_open' para detectar Y RESTABLECER dicha caracteristica [solo por si las...] :))

te paso una forma de lograr lo que necesitas.
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

1) has un click-derecho sobre el icono de excel -> que aparece a la izquierda de la barra de menus -archivo/edicion/...-]
y selecciona la opcion de: 'ver codigo'

2) copia/pega las siguientes lineas...
en el modulo de codigo del libro [ThisWorkbook] ==Dim MoverSeleccion As Boolean
Private Sub Workbook_Open()
MoverSeleccion = Application.MoveAfterReturn
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
Application.MoveAfterReturnDirection = xlDown
Application.MoveAfterReturn = MoverSeleccion
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
Application.MoveAfterReturn = MoverSeleccion
End Sub

Preguntas similares