How automatically move cursor from one cell to another based on condition

**chavanalini** · 03-17-2022, 12:41 AM

Dear Team

I have an excel file for data entry with fixed 8 rows and 12 columns (D8:O15), the data entry operator will enter the data from D8 to D15 after entering the value in D15 the cursor has to go to E8. After entering the values from E8 to E15 the cursor has to go to F8 like this till O15 they need to enter the data after that they will take the printout and clear the values for next entry.

can you please help me to work on this

I tried with below code for that is working only for one column D8 to D15.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2020087
Dim tabArray As Variant
Dim i As Long
tabArray = Array("D15", "E8")
Application.ScreenUpdating = False
For i = LBound(tabArray) To UBound(tabArray)
If tabArray(i) = Target.Address(0, 0) Then
If i = UBound(tabArray) Then
Me.Range(tabArray(LBound(tabArray))).Select
Else
Me.Range(tabArray(i + 1)).Select
End If
End If
Next i
Application.ScreenUpdating = True
End Sub

Thanks in advance

**k1dr0ck** · 03-17-2022, 02:29 AM

try

Please Login or Register  to view this content.

**bebo021999** · 03-17-2022, 02:37 AM

Something like this:

PHP Code:


Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 
Application.ScreenUpdating = False 
Dim r& 
If Intersect(Target, Range("D8:O15")) Is Nothing Then Exit Sub 
    If Target.Row = 15 Then Target.Offset(-7, 1).Select' assume last row is row 15 
Application.ScreenUpdating = True 
End Sub

**Marc L** · 03-17-2022, 08:38 AM

ScreenUpdating codelines are useless like the Dim codeline as well …

If the tab key is used to valid an entry or even a mouse click on any cell :

PHP Code:


Private Sub Worksheet_Change(ByVal Target As Range) 
    With Target 
        If .CountLarge = 1 Then If Not Intersect([D8:O15], .Cells) Is Nothing Then If .Row < 15 Then .Cells(2).Select Else .Cells(-6, 2).Select 
    End With 
End Sub

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

How automatically move cursor from one cell to another based on condition

LinkBack

Thread Tools

Rate This Thread

Display

How automatically move cursor from one cell to another based on condition

Re: How automatically move cursor from one cell to another based on condition

Re: How automatically move cursor from one cell to another based on condition

Re: How automatically move cursor from one cell to another based on condition

Thread Information

Users Browsing this Thread

Similar Threads

Automatically move cursor to next unprotected cell

Get cursor to automatically move to a certain cell based on drop-down menu selection

Formatt spreadsheet to move cursor automatically to a defined cell

Move Cell cursor to second workbook based on lookup

How do I limit cell size and get the cursor to move automatically

Having the cursor automatically move to the cell to the right

Cursor auto move from one cell to another-How can I have my cursor automatically move

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions