Moving automatically from one cell to another

  • Thread starter Thread starter sfar007
  • Start date Start date
S

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
 
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
 
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
 
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
 
Back
Top