Change cursor to another column after find value

[dingdang]

I have xls sheet with huge data wherein I am finding some value ( ctr F ) in column E and if value found, inputing sr. no against that value in column I, for that i have to move cursor to I column every time ( right arrow ) which is very time consuming.


is there any option/macro to move cursor automatically to I column after finding the value in E


for exp. if value find in E11 cursor should move to I11.

pls help

 

[lhkittle]

Maybe something as simple as this.

Paste in the sheet module you are conducting the Find.

Option Explicit

[pre]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Column = 5 Then ActiveCell.Offset(0, 4).Select
End Sub

[/pre]
Regards,

Howard

 

[NARAYANK991]

Hi ,


Try this :

[pre]

Public Sub Shift_Cursor_to_Column_I()
Application.Goto ActiveCell.Offset(0, Range("$I:$I").Column - ActiveCell.Column), Scroll:=True
End Sub

[/pre]
Narayan

 

[dingdang]

Dear lhkittle.


Thanks a lot its work perfectly.