Select Cell based on OnKey and Autofill

[tcarter963]

I'm trying to get the cursor to move to another column when you press enter at a specific row in the sheet. I also would like to be able to move the autofill feature when you reach that same row in the spreasheet. I was able to find some code on the message board that kind of worked, but only when running in VBA, I can't get it to work when you press enter in the sheet. I haven't looked for info on autofill yet.

Here is what I have so far:

Sub aaa()
 If ActiveCell.Row = 43 Then
  Cells(11, ActiveCell.Column + 4).Select
 Else
  ActiveCell.Offset(1, 0).Select
 End If
End Sub

Sub bbb()
 Application.OnKey "{ENTER}", "aaa"
End Sub

Sub ccc()
Application.OnKey "{ENTER}"
End Sub

Private Sub Sheet1_Activate()
 Call bbb
End Sub

Private Sub Sheet1_Deactivate()
Call ccc
End Sub

Thanks

 

[tcarter963]

I was able to get everything to work fine for moving the cursor with one exception. I would like for it to move to another column based on two specific cells (E43 & I43) rather than a whole row. I've played around with this a bit and I know it has to be something simple, but just can't get it.

I haven't been able to find anything about moving the autofill feature to another column. Is this even possible to do using VBA?