MACRO:Find-Arrow

[32CARDS]

Example Code:
Sub Macro5()
'
' Macro5 Macro
Cells.Find(What:="here", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

'arrow key right !! NOT Cell D7

Range("D7").Select

End Sub
====================================================
The Issue:

The "Find *here*" part of the script is fine, but the "Range ("D7).Select"
has to be a "arrow key" direction from wherever the cell with "find" is located, but not specificaly cell D7.

====================================================
The question:

What is the macro code for "arrow key" left,right,up and down" ?
It then has to copy the contents of the cell, right of "find"


Answer/s:


===========================================================

Thanks in advance

 

[Colo]

Hi 32CARDS,
The OFFSET property makes it possible.
Just use

Selection.offset(0,-1).Select

instead of

Range("D7").Select

.

Left : Offset(0,-1)
Right: Offset(0,1)
Up: Offset(-1,0)
Down: Offset(1,0)

Note: 0 can be omitted, so you can just write Offset(1) when you'd like to specify Down. Offset(,1) stands for Right.