Set focus after tabbing through textboxes and checkboxes on sheet

thequickness

New Member
Joined
Jul 17, 2019
Messages
10
I have a sheet (not userform) with many ActiveX textboxes and checkboxes. It's used as a checklist for equipment inspections that gets printed out.

Tabbing through the textboxes and checkboxes is hard coded on Sheet1 with:

Code:
Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
       CheckBox2.Activate
   End If
End Sub
My issue is when I get to row 30 or so, it keeps tabbing, but the screen view doesn't move with the tabbing. I've tried CheckBox2.SetFocus but I get errors.

Code:
Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
       CheckBox2.Activate
   End If
   CheckBox2.SetFocus
End Sub
tx
 

Some videos you may like

Excel Facts

Which lookup functions find a value equal or greater than the lookup value?
MATCH uses -1 to find larger value (lookup table must be sorted ZA). XLOOKUP uses 1 to find values greater and does not need to be sorted.

Domenic

MrExcel MVP
Joined
Mar 10, 2004
Messages
19,204
Try...

Code:
Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
       With CheckBox2
            .Activate
            ActiveWindow.ScrollRow = .TopLeftCell.Row
       End With
   End If
End Sub
Hope this helps!
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,101,817
Messages
5,483,080
Members
407,378
Latest member
swanbrown

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top