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.

Preguntas similare

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
Respuesta Responder a este mensaje
#2 ??????????
30/09/2005 - 03:21 | Informe spam
Muchas gracias
pero tuve un pequeño problema ya se desplasa hacia la
derecha pero cuando lo guardo y le voy cerrar manda un
mensaje que dide error al compilar y me pone en amarillo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
por que y que puedo hacer por tu ayuda muchas gracias
.
Respuesta Responder a este mensaje
#3 Héctor Miguel
30/09/2005 - 04:20 | Informe spam
hola, 'anonimo/a' !

... ya se desplasa hacia la derecha pero cuando lo guardo y le voy cerrar manda un mensaje
... error al compilar y me pone en amarillo Private Sub Workbook_BeforeClose(Cancel As Boolean)
por que y que puedo hacer...



por que ? [no tengo idea] :-( lo probe antes de sugerirlo :)
que hacer? -en realidad- no es 'necesario/imprescindible/...'
-> considerando 'el orden' en el que ocurren los eventos...
es suficiente con 'dejar' -solo- el evento '_windowdeactivate'
-> asumiendo que es 'lo unico' que manejas en el evento '_beforeclose'...
prueba a borrar -completo- el private sub wotkbook_beforeclose -?-

comentas?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida