Comments on: Related Sheets Stack

By: Sam

Sam — Tue, 27 Jul 2010 14:23:00 +0000

The "Previous Page" links on tag-archive pages do not work, can you please fix them? Thanks!

Example:
http://www.dailydoseofexcel.com/page/2/?category_name=vba%2Fuserforms-and-controls%2F

By: jim cone

jim cone — Fri, 24 Apr 2009 21:21:00 +0000

Further, further...
I am always a step behind. Maybe this will work:
Replace all instances of > with ">"
'
Jim Cone

By: jim cone

jim cone — Fri, 24 Apr 2009 21:13:00 +0000

Further...
I used the code tags but ">" appeared in the Scrabble function.
Replace that with the symbol for "Greater than"
'
Jim Cone

By: jim cone

jim cone — Fri, 24 Apr 2009 21:05:00 +0000

Dick,

Maybe an easier way (however it doesn't account for the sub sheets) is to use the built-in Watch Window. Double-clicking an item in the Watch window takes you there. The code does not show the watch window. Use the built-in button or the Tools | Forumula Auditing menu to do that.
Code goes in the ThisWorkbook module...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Jim Cone - Portland, Oregon USA - April 2009
Dim rng() As Range
Dim N As Long
Dim lngCount As Long
Const HOW_MANY As Long = 10

On Error Resume Next
lngCount = Application.Watches.Count - 1
On Error GoTo 0

If lngCount > (-1) Then
ReDim rng(0 To lngCount)
End If

For N = 0 To lngCount
Set rng(N) = Application.Watches.Item(N).Source
Next 'N
Application.Watches.Delete
Application.Watches.Add (Sh.Range("A1"))

If Scrabble(rng) Then
For N = 0 To UBound(rng)
Application.Watches.Add rng(N)
Next
Erase rng
End If

If Application.Watches.Count > HOW_MANY Then
Application.Watches.Item(HOW_MANY).Delete
End If
End Sub

Function Scrabble(V As Variant) As Boolean
On Error Resume Next
Scrabble = (UBound(V, 1) >= -2147483647) 'lower limit for a Long
End Function

Jim Cone

By: AlexJ

AlexJ — Fri, 24 Apr 2009 20:09:00 +0000

Have you tried using a TreeView control for this?

By: Nigel Heffernan

Nigel Heffernan — Fri, 24 Apr 2009 17:23:00 +0000

I remember spending a great deal of time trying to get the tab strip on the bottom of an Excel Window to either 'double up' into two or more rows, or 'dock' to the side, instead of hiding tabs.

I eventually ended up building a menu (NOT a ribbon!) that dropped down the sheet names.

By: dbb

dbb — Fri, 24 Apr 2009 16:33:00 +0000

I would probably just have allocated cell A1 in each sheet to hold the sheet list as a list of data validation items, populated when the sheet was selected, and going to a sheet if an item is selected. I find userforms are quite a lot of extra work.

As far as identifying parentage, I would probably name the sheets in such a way that VBA could run through all the sheets and identify their relationship to the active sheet, just from the names. This makes the code extremely simple and robust.