Results 1 to 7 of 7
  1. #1
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Fontana, California, USA
    Posts
    625
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Summaries (2003)

    Have attached a baby version of what I'm doing - any easy way to make this summary page out of 124 sheets?

    Thanks

    Linda

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Summaries (2003)

    That's an extremely baby version - I can't see it!

  3. #3
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Fontana, California, USA
    Posts
    625
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Summaries (2003)

    That's because I, obviously, FORGOT TO ATTACH IT! Sorry . . .

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Summaries (2003)

    Can you describe in detail what you want? Your attachment contains too little information to guess at your intentions, moreover it contains links to another workbook.

  5. #5
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Fontana, California, USA
    Posts
    625
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Summaries (2003)

    I have 124 worksheets in one workbook. I want to create a link to each workbook's account number and the result of the formula in K1 of each sheet on a summary page.

  6. #6
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Summaries (2003)

    Here is a macro you can use to create the summary:

    Sub CreateSummary()
    Dim wshData As Worksheet
    Dim wshSummary As Worksheet
    Dim lngRow As Long
    Dim strTitle As String
    Dim intPos As Integer

    Set wshSummary = Worksheets("Summary")
    wshSummary.Range("3:65536").ClearContents
    lngRow = 3
    For Each wshData In ActiveWorkbook.Worksheets
    If Not LCase(wshData.Name) = "summary" Then
    strTitle = wshData.Range("A1")
    intPos = InStr(strTitle, "-")
    wshSummary.Range("A" & lngRow) = Trim(Mid(strTitle, intPos + 1))
    wshSummary.Range("B" & lngRow) = Trim(Left(strTitle, intPos - 1))
    wshSummary.Range("C" & lngRow) = wshData.Range("A3")
    wshSummary.Range("D" & lngRow) = wshData.Range("K1")
    lngRow = lngRow + 1
    End If
    Next wshData

    Set wshData = Nothing
    Set wshSummary = Nothing
    End Sub

  7. #7
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Fontana, California, USA
    Posts
    625
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Summaries (2003)

    Thanks again - I'll give it a try.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •