+ Reply to Thread
Results 1 to 3 of 3

Can I show a formula's result on a worksheet tab?

  1. #1
    JE McGimpsey
    Guest

    Re: Can I show a formula's result on a worksheet tab?

    You don't give much to go on, but here's one way:

    Assume you want to see the sum of Sheet1, cell A1 and Sheet4, cell J10
    in the tab of Sheet4. Put this in the ThisWorkbook code module:

    Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Dim dTemp As Double
    With Sheet4
    On Error Resume Next
    dTemp = Sheet1.Range("A1").Value + .Range("J10").Value
    .Name = CStr(dTemp)
    If Not .Name = dTemp Then .Name = "~~~ERROR!~~~"
    On Error GoTo 0
    End With
    End Sub

    If you're not familiar with macros, see

    http://www.mvps.org/dmcritchie/excel/getstarted.htm

    Note that you need to use the Sheets' code names (as shown in the
    Project Explorer) if you're changing the tab names of the sheets of
    interest.




    In article <ACE2DA8A-104B-4FEC-9E1F-1B49F5557A93@microsoft.com>,
    ukplay <ukplay@discussions.microsoft.com> wrote:

    > Can anyone help? I would like to be able to see a result by just glancing at
    > the tabs in a workbook - perhaps lazy by not reviewing a summary page but
    > quicker to ingest!


  2. #2
    ukplay
    Guest

    Can I show a formula's result on a worksheet tab?

    Can anyone help? I would like to be able to see a result by just glancing at
    the tabs in a workbook - perhaps lazy by not reviewing a summary page but
    quicker to ingest!

  3. #3
    JE McGimpsey
    Guest

    Re: Can I show a formula's result on a worksheet tab?

    You don't give much to go on, but here's one way:

    Assume you want to see the sum of Sheet1, cell A1 and Sheet4, cell J10
    in the tab of Sheet4. Put this in the ThisWorkbook code module:

    Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Dim dTemp As Double
    With Sheet4
    On Error Resume Next
    dTemp = Sheet1.Range("A1").Value + .Range("J10").Value
    .Name = CStr(dTemp)
    If Not .Name = dTemp Then .Name = "~~~ERROR!~~~"
    On Error GoTo 0
    End With
    End Sub

    If you're not familiar with macros, see

    http://www.mvps.org/dmcritchie/excel/getstarted.htm

    Note that you need to use the Sheets' code names (as shown in the
    Project Explorer) if you're changing the tab names of the sheets of
    interest.




    In article <ACE2DA8A-104B-4FEC-9E1F-1B49F5557A93@microsoft.com>,
    ukplay <ukplay@discussions.microsoft.com> wrote:

    > Can anyone help? I would like to be able to see a result by just glancing at
    > the tabs in a workbook - perhaps lazy by not reviewing a summary page but
    > quicker to ingest!


+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1