This is the code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'simple example of
' dynamically positioning chart and
' assigning values to a single series chart
'you must have a defined range of series names
' and a defined range for the columns containing the Values...
SKIP, You said something about updating the VBA for me. Have you done that? You're probably like me - I didn't work over the holidays!
Thanks again for all your help. Really wish I had your knowledge and experience. Bill
My goal is to have 2 excel tables. One for Stock quotes and one for crypto. I sent you the Crypto one.
We want to graph the values by date. When we select a stock or crypto symbol, We want to pop up a chart showing the prices by date.
It would be ideal to show dates instead of points (1 2 3 4...
The code stops on the 2nd line starting with: "If Not Intersect(Target, Union(Me.Range("SeriesNames"), Me.Range("SeriesYValues"))) Is Nothing Then"
I changed Active Cell to Target
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Union(Me.Range("SeriesNames"), Me.Range("SeriesYValues"))) Is Nothing Then
With Me.ChartObjects(1).Chart.SeriesCollection(1)
.Name = "=" & Intersect(ActiveCell.EntireRow...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.