Moving automatically from one cell to another

[sfar007]

Hi,

I would like to know if there is a function that enables the automatic movement from one cell to another. For example, i have a function in B1 that works on the value of A1. After inserting the value in A1, I want to move automatically from A1 to C1 or to any other cell.

Thanks for your assistance.

Regards

Stefan

[Bearacade]

Try this, it isn't perfect...

Sub auto_open()

ThisWorkbook.Worksheets("Sheet1").OnEntry = "DidCellsChange"

End Sub


Sub DidCellsChange()
Dim KeyCells As String

KeyCells = "A1"

If Not Application.Intersect(ActiveCell, Range(KeyCells)) _
Is Nothing Then KeyCellsChanged

End Sub

Sub KeyCellsChanged()

Range("C1").Select

End Sub

[Bearacade]

The problem with that macro is that it selects the cell before the Enter or Tab, so it actually go to 1 offset of the cell you want them to go (in this case, if they tab, it goes to D1, if they Enter, it goes to C2).

Perhaps someone can shred some light on it

[excelent]

Put in sheet's kodewindow

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell = Range("a2") Then ActiveCell.Offset(-1, 2).Select
End Sub

[Bearacade]

Nice and clean, Nice =)

[sfar007]

thanks for your help

Stefan