RETURN TO 1ST CELL OF ACTIVE ROW

[annadinesh]

Dear Team

I have datas from Coloumn A to O and I want if I reach a cell on coloumn O by pressing tab or Left Key Button then the 1st cell of the active row should activate and the same should continue to every row


regards


Dinesh Saha

 

[rollis13]

Have a try with what I came up with. The macro must be pasted in the sheet's module.

Option Explicit
'change the values below to define the range in which the MACRO should operate
Const FRow     As Long = 2                        'first line - equivalent to line 2
Const LRow     As Long = 1000                     'last line - equivalent to line 1000
Const FCol     As Long = 1                        'first column - equivalent to column A
Const LCol     As Long = 15                       'last column - equivalent to column O
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRow  As Long
    Dim myCol  As Long
    myRow = Target.Row
    myCol = Target.Column
    If myRow >= FRow And myRow <= LRow And myCol >= FCol And myCol <= LCol Then
        If myCol = LCol Then Cells(myRow + 1, FCol).Select Else Cells(myRow, myCol + 1).Select
        If myRow = LRow And myCol = LCol Then Cells(FRow, FCol).Select
    End If
End Sub

 

[annadinesh]

Have a try with what I came up with. The macro must be pasted in the sheet's module.

Option Explicit
'change the values below to define the range in which the MACRO should operate
Const FRow     As Long = 2                        'first line - equivalent to line 2
Const LRow     As Long = 1000                     'last line - equivalent to line 1000
Const FCol     As Long = 1                        'first column - equivalent to column A
Const LCol     As Long = 15                       'last column - equivalent to column O
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRow  As Long
    Dim myCol  As Long
    myRow = Target.Row
    myCol = Target.Column
    If myRow >= FRow And myRow <= LRow And myCol >= FCol And myCol <= LCol Then
        If myCol = LCol Then Cells(myRow + 1, FCol).Select Else Cells(myRow, myCol + 1).Select
        If myRow = LRow And myCol = LCol Then Cells(FRow, FCol).Select
    End If
End Sub

THANKS

 

[rollis13]

Glad having been of some help.