Changing active cell appearance and automatic navigation of worksheets

tb_OF21

New Member
Joined
Oct 1, 2021
Messages
5
Office Version
  1. 365
Platform
  1. Windows
Hi, I have two questions about ease of navigation in a workbook with tables on several sheets.

1. Is it possible to change the appearance of the active cell - users are reporting that they find it difficult when moving between worksheets to spot which cell is active from the green border, and would prefer that the cell was filled or had a red border?

2. If using tables across worksheets with a common unique identifier at the start of each table, is it possible to set the workbook up to automatically navigate to the corresponding row when you switch sheets. IE, if I am entering contact details for user SST111 on the first worksheet and then move to the next worksheet to enter feedback data for SST111 (and there is only one row for each unique ref) can I set it up that it will move straight to that row when switching sheets based on the row I was entering info on on the last sheet? (does that even make sense?)

Thanks
T
 

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"
Here is one I use:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  10/1/2021  9:17:48 AM  EDT
If Target.Cells.CountLarge > 1 Then Exit Sub
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Selection.Interior.ColorIndex = 4
End Sub
 
Upvote 0
Here is one I use:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  10/1/2021  9:17:48 AM  EDT
If Target.Cells.CountLarge > 1 Then Exit Sub
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Selection.Interior.ColorIndex = 4
End Sub
Thanks - do I need to change anything in this specific to my workbook? I've entered it as it is but it is coming up 'runtime error: 1004'
Sorry - complete code novice here :)
 
Upvote 0
Thanks - do I need to change anything in this specific to my workbook? I've entered it as it is but it is coming up 'runtime error: 1004'
Sorry - complete code novice here :)
Show me all the code in your sheet
Did you install it how I explained ?
 
Upvote 0

Forum statistics

Threads
1,214,833
Messages
6,121,861
Members
449,052
Latest member
Fuddy_Duddy

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top