eventos - mover selección luego del enter

Estimados Magos de Excel,
Estuve viendo los eventos para hacer lo siguiente, pero no logro hacerlo
funcionar.
Tengo que crear una lista de muchas filas donde la columna A iría el

de funcionario y en la B el nombre del funcionario.
Lo que quiero hacer es que si estoy en la columna e ingreso un dato y le

enter el cursor se desplace hacia la derecha para que quede en el campo

voy a ingresar el nombre. Por ejemplo si estoy en la celda A2 y le doy

el cursor pase a la celda B2. Luego, si ingreso el nombre en la celda B2,

cursor pase a la celda A3 pronto para ingresar otro registro.
Trabajé con la sentencia Application.MoveAfterReturnDirection = xltoRight

un if, pero no me funciona. ¿ alguien me puede ayudar ? un millón de

de antemano
charles

No hace falta programar nada para esto que quieres. De hecho es el método
indicado para la carga de datos tipo Encuestas.

Hacer lo siguiente:
1- Herramientas-Opciones-Modificar-Mover selección después de ENTRAR
cambiarla a DERECHA
2- Seleccionar toda la region de datos a cargar, por ejemplo en tu caso
sería A2:B15 si 15 fuera la cantidad de registros que vas a cargar.
3- Luego directamente cargas los datos y presionas ENTER y listo!
4- Si me equivoco en la carga no hago clic en ningún lado porque sino se
pierde la selección global del listado, haces entonces SHIFT+ENTER (siempre
SHIFT hace lo inverso)

Saludos.
Adriano


"Charles" escribió en el mensaje
news:
> Estimados Magos de Excel,
> Estuve viendo los eventos para hacer lo siguiente, pero no logro hacerlo
> funcionar.
> Tengo que crear una lista de muchas filas donde la columna A iría el
número
> de funcionario y en la B el nombre del funcionario.
> Lo que quiero hacer es que si estoy en la columna e ingreso un dato y le
doy
> enter el cursor se desplace hacia la derecha para que quede en el campo
donde
> voy a ingresar el nombre. Por ejemplo si estoy en la celda A2 y le doy
enter
> el cursor pase a la celda B2. Luego, si ingreso el nombre en la celda B2,
el
> cursor pase a la celda A3 pronto para ingresar otro registro.
> Trabajé con la sentencia Application.MoveAfterReturnDirection = xltoRight
en
> un if, pero no me funciona. ¿ alguien me puede ayudar ? un millón de
gracias
> de antemano
> charles
>