Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1
Default I have an index sheet of over 200 worksheet tabs...

I have a formula on each worksheet that gives me a count number that I need
to show on my index sheet. That formula is on every tab at C2. I need each
tabs number in C2 to show up next to the corresponding tab name on the index
sheet. The index sheet tab names are hyperlinked. I can change that if I
need too.

Thank you,
Kat
  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 13
Default I have an index sheet of over 200 worksheet tabs...


LdyWldKat schrieb:

I have a formula on each worksheet that gives me a count number that I need
to show on my index sheet. That formula is on every tab at C2. I need each
tabs number in C2 to show up next to the corresponding tab name on the index
sheet. The index sheet tab names are hyperlinked. I can change that if I
need too.

Thank you,
Kat


If you construct your index sheet manually you can just reference the
count field of each referenced tab sheet next to the hyperlink,
something like

=Sheet2!C2

If that's not your problem, give an example.

Regards,

Hans

  #3   Report Post  
Posted to microsoft.public.excel.misc
CLR CLR is offline
external usenet poster
 
Posts: 1,998
Default I have an index sheet of over 200 worksheet tabs...

This might help, copied down,

=INDIRECT(A1&"!$C$2")

Vaya con Dios,
Chuck, CABGx3




"LdyWldKat" wrote:

I have a formula on each worksheet that gives me a count number that I need
to show on my index sheet. That formula is on every tab at C2. I need each
tabs number in C2 to show up next to the corresponding tab name on the index
sheet. The index sheet tab names are hyperlinked. I can change that if I
need too.

Thank you,
Kat

  #4   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 709
Default I have an index sheet of over 200 worksheet tabs...

Kat, I don't remember where I got this code from. But it should do what you
want, modified it to fit your needs

Sub WorksheetNamesWithHyperLink()
'will add a sheet called worksheetNamesTable
'put all the worksheet names in column A, with hyperlinks
'and put the valve of C2 in all sheets in column B
Dim iRow As Integer, iColumn As Integer
Dim i As Integer, x As Integer, iWorksheets As Integer
Dim objOutputArea As Object
Dim StrTableName As String, StrWorkSheetName As String

StrTableName = "WorksheetNamesTable"

'Check for duplicate Worksheet name
i = ActiveWorkbook.Sheets.Count
For x = 1 To i
If Windows.Count = 0 Then Exit Sub
If UCase(Worksheets(x).Name) = UCase(StrTableName) Then
Worksheets(x).Activate
If Err.Number = 9 Then
Exit For
End If
Application.DisplayAlerts = False 'turn warning messages
off
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True 'turn warning messages
on
'Exit Sub
End If
Next

'Add new worksheet at end of workbook
' where results will be located
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)

'Name the new worksheet and set up Titles
ActiveWorkbook.ActiveSheet.Name = StrTableName
ActiveWorkbook.ActiveSheet.Range("A1").Value = "Worksheet Names"
ActiveWorkbook.ActiveSheet.Range("B1").Value = "Value in Cell C2"

'Count number of worksheets in workbook
iWorksheets = ActiveWorkbook.Sheets.Count

'Initialize row and column counts for putting info into StrTableName
sheet
iRow = 1
iColumn = 0

Set objOutputArea = ActiveWorkbook.Sheets(StrTableName).Range("A1")

'Check Sheet names
For x = 1 To iWorksheets
Sheets(x).Activate
StrWorkSheetName = ActiveSheet.Name
'put information into StrTableName worksheet
With objOutputArea
.Offset(iRow, iColumn) = " " & StrWorkSheetName
.Offset(iRow, iColumn + 1) = "=" & StrWorkSheetName & "!C2"

'create hyperlink
ActiveSheet.Hyperlinks.Add anchor:=objOutputArea.Offset(iRow,
iColumn), _
Address:="", _
SubAddress:=Chr(39) & StrWorkSheetName & Chr(39) & "!A1"
iRow = iRow + 1
End With
Next x

'format StrTableName worksheet
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1,B1").Font.Bold = True
Columns("A:B").EntireColumn.AutoFit

End Sub




"LdyWldKat" wrote in message
...
I have a formula on each worksheet that gives me a count number that I need
to show on my index sheet. That formula is on every tab at C2. I need
each
tabs number in C2 to show up next to the corresponding tab name on the
index
sheet. The index sheet tab names are hyperlinked. I can change that if I
need too.

Thank you,
Kat



  #5   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1,173
Default I have an index sheet of over 200 worksheet tabs...

Does this help? (Bottom of page)

http://www.nickhodge.co.uk/vba/codeexamples.htm

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England

HIS
www.nickhodge.co.uk

"LdyWldKat" wrote in message
...
I have a formula on each worksheet that gives me a count number that I need
to show on my index sheet. That formula is on every tab at C2. I need
each
tabs number in C2 to show up next to the corresponding tab name on the
index
sheet. The index sheet tab names are hyperlinked. I can change that if I
need too.

Thank you,
Kat



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
My sheet tabs disappeared with entered data. Can it be restored? Irene V in NJ Excel Discussion (Misc queries) 8 September 12th 06 05:43 PM
How:Add New Worksheet that copies the cell of the previous sheet JLM Excel Worksheet Functions 1 August 24th 06 08:04 PM
How can I find/unhide hidden excel sheet tabs on a worksheet? magician Excel Worksheet Functions 1 May 2nd 06 11:13 AM
Does excel recognise names rather than cells? Sue Excel Worksheet Functions 9 May 22nd 05 04:51 AM
Sheet tabs disappear sometimes in Internet Explorer Jan Nordgreen Excel Discussion (Misc queries) 0 December 6th 04 01:34 AM


All times are GMT +1. The time now is 08:23 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"