Change Chart data range

Hi Guys,

I have Column A full of date data.
Column B to T has other data.
I would like to graph Column B vs Column A, and then be able to change the graph data to Column C vs Column A (with a macro), then to Column D vs Column A, and so on. and hopefully have a second macro to change DvsA to CvsA and then BvsA etc.

Ideally I would like a macro that would work for any selected graph/chart, where it'll change the selected data one column to the left or to the right.

Thanks.

Originally Posted by ArdusPetus

Could you please send a sample workbook ?

Thanks,
--
LR

Hi,

A macro that will convert data in "Chart1" to be the same data as in "Chart2" (if that macro is ran once). If that macro is ran twice, converts the data in "Chart1" reflects data from "column C". If that macro is ran again convert the data to "column D". And so on.

Similarly, a second macro that will convert the data from D->C->B, etc

Ideally both macros should be written in a way that they can be changed to manipulate "Chart2" instead of "Chart1"

The number of rows may vary from project to project, so the macros need to use the current number of rows from the current chart to figure out the new data range.
I'm looking to have a tool that I can use on multiple projects in the future to help quickly analyzing and comparing results graphically.

Any help would be appreciated.

Here a possibility
Chart1 is prepared with column "B" and each time the macro is used (Control + r) next column is selected.
If it is OK next macro will select previous column

Public WkCol As String

Sub Auto_open()
    WkCol = "B"
    UpdateChart1 (WkCol)
End Sub
 
 
Sub ChangeChart1()
    WkCol = Split(Cells(1, Cells(1, WkCol).Column + 1).Address, "$")(1)
    UpdateChart1 (WkCol)

End Sub

 

Sub UpdateChart1(NwCol As String)
Const Fom = "SERIES(Sheet1!$#$1,Sheet1!$A$2:$A$µ,Sheet1!$#$2:$#$µ,1)"
Dim LR As Long
    LR = Cells(Rows.Count, 1).End(3).Row
    
    T = Replace(Fom, "µ", LR)
    T = Replace(T, "#", NwCol)
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Formula = "=" & T
    ActiveSheet.Cells(1, WkCol).Select
End Sub

An update

Public WkCol As String

Sub Auto_open()
    WkCol = "B"
    UpdateChart1 (WkCol)
End Sub
 
 
Sub ChangeChart1()
    If (Cells(1, Columns.Count).End(xlToLeft).Column <> Cells(1, WkCol).Column) Then _
        WkCol = Split(Cells(1, Cells(1, WkCol).Column + 1).Address, "$")(1)
    UpdateChart1 (WkCol)

End Sub
Sub ChangeChart2()
    If (WkCol <> "B") Then _
        WkCol = Split(Cells(1, Cells(1, WkCol).Column - 1).Address, "$")(1)
    UpdateChart1 (WkCol)

End Sub


 

Sub UpdateChart1(NwCol As String)
Const Fom = "SERIES(Sheet1!$#$1,Sheet1!$A$2:$A$µ,Sheet1!$#$2:$#$µ,1)"
Dim LR As Long
    LR = Cells(Rows.Count, 1).End(3).Row
    
    T = Replace(Fom, "µ", LR)
    T = Replace(T, "#", NwCol)
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Formula = "=" & T
    ActiveSheet.Cells(1, WkCol).Select
End Sub

PCI,

What you've done so far is pretty awesome.
I'm hoping to get something I can use on many different projects.


However I've got a few more requests.

• Make Program work for both Chart 1 on both Sheet1 and Sheet2 (independently, using their respective data. Ideally this should work for any number of many sheets, where the data may be located in many different places).
• I've turned the Auto_open() off so you can see what I'm talking about.
• (This is a bit off topic) On module2 I have a function that changes the axis of charts based on cell values (this allows for quickly editing charts). I'm curious to see if you can get the data to read the ranges corresponding to that data? Eg, Data3 will use values from Column D to set the data ranges.
• The program you've made stops when you reach column T, the data might vary in number of columns, can you account for this? (I've included my Functions_Module, you could call upon BlanksToSkip, this might help find the end of the data?)

I really love what you've done so far, and I'm hoping you can make it a little bit more dynamic, so it can be used for many different situations with minimal editing.
Thanks man. I'm going to send you a lot of reputation.