I wonder if the tab order code needs to be incorporated into the "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" code, but when I tried that it created an infinite loop.
Also looking for a way to pause the copy function using a button to allow data to be copied into the worksheet from another source before re-enabling. So, perhaps an "Enable" and "Disable" button.
VBA Code:
Option Explicit
Private Sub Worksheet_Activate()
With Worksheets("Clipboard")
MsgBox "Software relies heavily on the Windows clipboard." & Chr(13) & Chr(13) & "If you need to duplicate information to multiple accounts/properties, use this tool." & Chr(13) & Chr(13) & "Type the information needed, press ""Enter"" and then any cell you click on will automatically be copied to the clipboard.", vbInformation + vbOKOnly, "Automatic Clipboard"
.Range("C4").Select
End With
With ActiveWindow
.DisplayFormulas = False
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
.CommandBars("Full Screen").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Standard").Visible = False
.CommandBars("Formatting").Visible = False
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C9,E4,E7")) Is Nothing Then
Target.Copy
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tab As Variant
Dim i As Long
tab = Array("C4", "C5", "C6", "C7", "C8", "C9", "E4", "E7")
Application.ScreenUpdating = False
For i = LBound(tab) To UBound(tab)
If tab(i) = Target.Address(0, 0) Then
If i = UBound(tab) Then
Me.Range(tab(LBound(tab))).Select
Else
Me.Range(tab(i + 1)).Select
End If
End If
Next i
Application.ScreenUpdating = True
End Sub
Also looking for a way to pause the copy function using a button to allow data to be copied into the worksheet from another source before re-enabling. So, perhaps an "Enable" and "Disable" button.
Last edited by a moderator: