enter

Hola Max,

Prueba el siguiente codigo copiandolo en un modulo estandar (p.ej. Modulo1)
y lanzando los macros ModificarEnter o ModificarEnterNumericKeypad.

Saludos,
KL

'--Inicio Codigo
Sub SeleccionarRangos()
With ActiveCell
Select Case .Column
Case 1
.Offset(0, 3).Select
Case 4
.Offset(1, -3).Select
Case Else
.Offset(1, 0).Select
End Select
End With
End Sub

'Usa este macro si quieres usar la tecla Enter de
'la seccion numerica del teclado (a mano derecha)
Sub ModificarEnterNumericKeypad()
Application.OnKey "{ENTER}", "SeleccionarRangos"
End Sub

'Usa este macro si quieres usar la tecla Enter principal
Sub ModificarEnter()
Application.OnKey "~", "SeleccionarRangos"
End Sub

'Usa este macro para restablecer el funcionamiento
'estrandar de las teclas Enter
Sub RestablecerEnter()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub
'--Fin Codigo



"Max" wrote in message
news:

Alguien podria ayudarme con alguna macro que realize lo siguiente:

Despues que yo escriba una sifra en A1 apretar enter y cambie a
D1 para escribir la proxima cifra,luego deberia seguir con A2 D2
A3 D3 ..

Gracias si alguien puede ayudarme.

Hola KL

Perfecto los macros , pero para cambiar a otra celda tuve que pensarla un poco
pero ya todo esta solucionado queria probar como se hacia.

Gracias nuevamente. Max

"KL" escribió:

Hola Max,

Prueba el siguiente codigo copiandolo en un modulo estandar (p.ej. Modulo1)
y lanzando los macros ModificarEnter o ModificarEnterNumericKeypad.

Saludos,
KL

'--Inicio Codigo
Sub SeleccionarRangos()
With ActiveCell
Select Case .Column
Case 1
.Offset(0, 3).Select
Case 4
.Offset(1, -3).Select
Case Else
.Offset(1, 0).Select
End Select
End With
End Sub

'Usa este macro si quieres usar la tecla Enter de
'la seccion numerica del teclado (a mano derecha)
Sub ModificarEnterNumericKeypad()
Application.OnKey "{ENTER}", "SeleccionarRangos"
End Sub

'Usa este macro si quieres usar la tecla Enter principal
Sub ModificarEnter()
Application.OnKey "~", "SeleccionarRangos"
End Sub

'Usa este macro para restablecer el funcionamiento
'estrandar de las teclas Enter
Sub RestablecerEnter()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub
'--Fin Codigo



"Max" wrote in message
news:
> Alguien podria ayudarme con alguna macro que realize lo siguiente:
>
> Despues que yo escriba una sifra en A1 apretar enter y cambie a
> D1 para escribir la proxima cifra,luego deberia seguir con A2 D2
> A3 D3 ..
>
> Gracias si alguien puede ayudarme.