Macro de desplazamiento e ingreso de Campo

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
yo te sugiero que utilices la grabadora de macros para que veas cual es el
código que graba Excel y así aprendas como hacerlo.

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

El domingo, 1 de marzo de 2015, 10:35:34 (UTC+1), raulchan escribió:

¡ Hola !

Escribo desde Chile

Pregunta, deseo crear una macro para desde una ubicacion "cualquiera"
mover 5 celda a la derecha, ingresar la palabra OK y dar enter para bajar a la
linea siguiente.

Como escribo la macro de este desplazamiento.


Muchas gracias si pueden comentar.

Saludos

Buenos días raulchan,

Suponiendo que tu rango tenga desde la columna A a la H y la accion que desencadene el evento sea el cambio de una celda en la columna C (no una cualquiera):

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C:C")) Is Nothing Then
Target.Offset(0, 5) = "OK"
Target.Offset(1, -2).Select
End If

End Sub

Recuerda que esto es código para la hoja que contiene el rango (boton derecho sobre el nombre de la hoja y "Ver Codigo")
Si no es exactamente lo que quieres siempre lo puedes adaptar..
saludos