Foro Excel

Buenos dí­as

Necesito su ayuda por favor para hacer que una vez que por medio del ENTER se haya recorrido desde la celda a1 hasta la celda c1, al dar ENTER en C1 vuela a la columna A pero a la fila siguiente o sea A2,

Ejemplo
a1 enter-->b1 enter-->c1 enter-->estamos en C1 damos enter y siguea -->
a2 enter-->b2 enter-->c2 enter-->estamos en C2 damos enter y siguea -->
a3 y asi hasta la ultima fila.


No se si se pueda hacer con macros o con las herramientas de excel
La parte del enter hacia la derecha ya la tengo configurada, pero me falta el salto a la siguiente fila.

Escribe en al ventana inmediato del VBE la siguiente instruccion:
Hoja1.scrollarea = "A:C"y ENTER
o bien has correr en un modulo
sub ClAUSURA()


Application.MoveAfterReturnDirection = xlToRight

HOJA1.SCROLLAREA = "A:C"

END SUB

GALI

lOS AMANTES DEL TECLADO PUEDEN LLEGARA PORPONER LO SIGUIENTE:
Herramientas>> Opciones >> MODIFICAR>>Mover seleccion despues de ENTRAR >>Derecha.
Teniendo asegurado el desplazamiento a derecha de ENTER.ç

Ubicarse en la priemra celda del RECORRIDO, seleccionar todo el rango a recorrer. Ingresar datos y ENTER, sin deseleccionar el RANGO.

Gali

Gracias galileogali UD como siempre excel-ente, la opción del VBA la voy a chequear y mandar a correr a ver que pasa, por el momento la solución cuete es la de pintar todo el espacio de recorrido y listo , muy buena opción

Gracias una vez mas por su ayuda incondicional

Hola

otra solución es la siguiente:
1 - abrir la barra de herramientas Cuadro de Controles. Pinchar el icono Propiedades.
2 - En la lí­nea Scroll Area poner $A:$C y cerrar la barra de herramientas
3 - En Heramientas--Opciones--Modificar señalar la opción Mover Selección después de Entrar y fijar Derecha y pulsar Aceptar.

Este método también limita el acceso del usuario al rango definido,
El único problema con este método, es que Excel no guarda la definición del rango al cerrar el archivo. La solución, como propone galileogali, es abrir el editor de Vba
seleccionar ThisWorkbook y poner este códico

Private Sub Workbook_Open()
Sheets("Hoja1").ScrollArea = "A:C"
End Sub

Saludos

Hola!
Una alternativa poco elegante serí­a:
1) Darle a todas las celdas la propiedad de Bloqueda y olcuta (opcional).
2) Quitar la propiedades de bloqueada y oculta, por ejemplo las columnas A, B, C.
3) Proteger la hoja, usar solo el teclado, para desplazarce.


Ver Herramientas / Opciones /Modificar.

Solo hay que probar.

Atte.