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.

 

[Bruce75]

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

This is exactly what I need but can't seen to get it to work. I am new to VBA code. I copied this into a VBA module and tried to run it but the name doesn't show up in the list. I have the sheet saved as an .xlsm file and turned on all the macro security settings. Is there something I am missing?

 

[Bruce75]

This is exactly what I need but can't seen to get it to work. I am new to VBA code. I copied this into a VBA module and tried to run it but the name doesn't show up in the list. I have the sheet saved as an .xlsm file and turned on all the macro security settings. Is there something I am missing?

That is what I did. Opened visual basic under the development tab within the worksheet, inserted a new module 1 and copied the code into it.

 

[Belleke]

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

This code belongs in the sheet code not in a module.
Right click on the sheet tab, then paste the code in programmcode....