Chart with dynamic x-axis names

J

Jon

All,
This is a repost. I put it in excel.charts earlier and wasn't getting
much of a response. Let's see how it goes here....

I am creating a chart which is based on multiple columns worth of data.
The problem is that the amount of rows changes and I have to be able to
handle that programmaticaly. In other words, if the amount of rows was
constant somewhere in my sub I would have something like:

..Chart.SetSourceData Source:=Sheets("NameGoesHere").Range("A2:A5, F2:H5")

'where the Range A2:A5 contains names that goes to label the X-axis.
'And F2:H5 represents the data for each name in A2:A5. No problem.

However, I need that range to vary. I was hoping something like this would
work:

.Chart.ChartWizard
Source:=Worksheets(xlSheet(I).Name).Range(xlSheet(I).Cells(2,
1):xlSheet(I).Cells(z, 1), xlSheet(I).Cells(2, 6):xlSheet(I).Cells(z, 8))

'where z is an integer which calculated the number of rows needed. Problem.
'Didn't work

As you can see I tried to mimic the form used for static data but failed
miserably. Any help would be greatly appreciated. Clear as mud? Thanks in
advance.
 
J

Jon

article Thank you, but I am using VB to code this. I read that previously,
but I can't just enter formulas in the spreadsheet. A macro will be used,
and everytime it is run it will wipe the page. Of course, I may just be
missing the big picture here...
 
J

Jon

Thank you, but I am using VB to code this. I read that article previously,
but I can't just enter formulas in the spreadsheet. A macro will be used,
and everytime it is run it will wipe the page. Of course, I may just be
missing the big picture here...
 
J

Jon

For all who are interested here is a snippet that provides the solution (I
have no hair now...). UNION was the key.

With ch

..Chart.ChartWizard Source:=Union( _
Worksheets(xlSheet(i).Name).Range(xlSheet(i).Cells(2, 1),
xlSheet(i).Cells(z, 1)), _
Worksheets(xlSheet(i).Name).Range(xlSheet(i).Cells(2, 6),
xlSheet(i).Cells(z, 8))), _
Title:=xlSheet(i).Name, _
PlotBy:=xlColumns, _
CategoryLabels:=1
End With

Thanks to all who thought about it.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Charting with dynamic data 5
Naming non-contigent cells with vba 5
create chart with column axis 10
how to add error bars into bar chart 1
dynamically increase x axis 5
Create if partial match then copy and paste data from one cell to another 1
Chart Macro?!! Help Please 2
Automatic conditional formatting from a list 0

Top