real simple question one for scrolling left or right

[APPPRO]

I need the proper syntax for just moving from one cell to another in a specific direction.

for ex:
after entering in C10 I want the indicator to go to C11 or vice versa.

 

[Mark W.]

See the Tools | Options... menu command's Edit tab. Notice the "Move selection after Enter option".

 

[APPPRO]

For a Macro please

 

[Mark O'Brien]

Use the offset command in VBA:

e.g.
</pre>
Activecell.Offset(1,0).Select 'Go right
Activecell.Offset(-1,0).Select 'Go left</pre>

What is it that you are trying to do? You rarely have to select cells in VBA. There may be a more efficient way of carrying out your task.

HTH

 

[APPPRO]

Dear Mark,

It's all part of the same problem that you responded to under my other post. Basicly what I am trying to do is create my own template that aren't templates. I want to use an elaborate form to gather information from the user and other excel different databases then enter that consolidated information to a new database. problem is that I have multiple rows of data that I want to enter at one time. AND i want it to create a Index# - ROW() number for each entry. I have come up with the following macro that does it fine ,but it seems cumbersum to me.

Range("I2:BF9").Copy
Sheets("db").Select
Range("I16").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("H2:H10").Copy
Range("H16").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("ENTRY").Select
End Sub

Since the Index# MUST be a formula and not a paste value I have to move over one column to the left After I value paste all the other information - then copy the row() formula to the newly entered cells.

I hope this explains it. I'm more confused now then ever!

Andy

 

[APPPRO]

And Mark - I put your Active cell macro into the routine and it doesn't work. What did I do wrong now????

ENTER_TO_DB_THREE Macro
' Macro recorded 10/16/02 by ANDREW P. POLSKY
'

'
Range("I2:BF9").Copy
Sheets("db").Select
Range("I16").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(-1, 0).Select 'Go left
Range("H2:H10").Copy
ActiveCell.Paste
Application.CutCopyMode = False
Sheets("ENTRY").Select
End Sub