ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Workbook Tabs (https://www.excelbanter.com/excel-discussion-misc-queries/1009-workbook-tabs.html)

Graham Parkinson

Workbook Tabs
 
I have set up a template workbook that I use regularly to
produce standard analysis reports. I have all the chart
titles and table titles linked to a worksheet in the
workbook. I only need to change a few cells in this
worksheet to change the chart titles and tables
automatically. I would like to be able to link the
worksheet and chart tabs to these cells as well. I have
been able to sort of do this for the worksheets, but I'm
having problems setting the same up for the chart tabs.
Can anyone suggest how I can go about this.

Thanks
Graham

JE McGimpsey

I'm not sure what you've tried, but something like this event macro
(where Chart1 is the codename for the chart sheet you want to change)
may work for you:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If Not Intersect(.Cells, Range("A1")) Is Nothing Then
On Error Resume Next
Me.Name = .Value & "_Sheet"
Chart1.Name = .Value & "_Chart"
On Error GoTo 0
End If
End With

End Sub


In article ,
"Graham Parkinson" wrote:

I have set up a template workbook that I use regularly to
produce standard analysis reports. I have all the chart
titles and table titles linked to a worksheet in the
workbook. I only need to change a few cells in this
worksheet to change the chart titles and tables
automatically. I would like to be able to link the
worksheet and chart tabs to these cells as well. I have
been able to sort of do this for the worksheets, but I'm
having problems setting the same up for the chart tabs.
Can anyone suggest how I can go about this.

Thanks
Graham


Graham Parkinson

Thanks very much, works great.
-----Original Message-----
I'm not sure what you've tried, but something like this

event macro
(where Chart1 is the codename for the chart sheet you

want to change)
may work for you:

Private Sub Worksheet_Change(ByVal Target As

Excel.Range)
With Target
If Not Intersect(.Cells, Range("A1")) Is

Nothing Then
On Error Resume Next
Me.Name = .Value & "_Sheet"
Chart1.Name = .Value & "_Chart"
On Error GoTo 0
End If
End With

End Sub


In article ,
"Graham Parkinson"

wrote:

I have set up a template workbook that I use regularly

to
produce standard analysis reports. I have all the

chart
titles and table titles linked to a worksheet in the
workbook. I only need to change a few cells in this
worksheet to change the chart titles and tables
automatically. I would like to be able to link the
worksheet and chart tabs to these cells as well. I

have
been able to sort of do this for the worksheets, but

I'm
having problems setting the same up for the chart

tabs.
Can anyone suggest how I can go about this.

Thanks
Graham

.



All times are GMT +1. The time now is 07:10 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com