Moving automatically from one cell to another

[sfar007]

Hi,

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

Thanks for your assistance.

Regards

Stefa

 

[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 Su

 

[Bearacade]

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

Perhaps someone can shred some light on i

 

[Guest]

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

Stefa