Range

[Guest]

Hi I want to write the Range for a chart dynamically. My code now is:

Range(rng1.Address, rng1.Offset(i, j).Address).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Indata").Range("rng1.Address :
rng1.Offset(i, 0).Address , rng2.Address:rng2.Offset(i,0).Address"),
PlotBy:=xlColumns

but is assume that it is the .Range(......) that is wrong. I get error
'1004' and the text 'the method Range in the object Global failed. referring
to the first Range(..). but i have also had trouble with the second one. How
do you write it the way it should? Pls any help wanted!

 

[Bob Phillips]

Try

Range(rng1, rng1.Offset(i, j)).Select


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[Guest]

Thanks but problem is that I want to specify a range that consists e.g. of
several data sets that are not connected. For example the coulumn A and the D
may be needed in the chart along with data from the column F. How do you
solve this? It seems like a fairly easy problem (i.e. defining a range that
is 'split up') but my computer just gives me error. My code is now:

ActiveChart.SetSourceData Source:=Sheets("Indata").Range(rng1.Address,
rng1.Offset(i, 0).Address), PlotBy:=xlColumns

It is .Range(....) that gives me trouble. I just want to define a Range that
is 'split up' which is doable (when recording a macro). Please have tried all
I can think of but it still does not work!!! Help!!!


"Bob Phillips" skrev:

 

[Bob Phillips]

Try this then

Union(rng1, rng1.Offset(i, j)).Select

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[Guest]

yes thank you but that does not give the possibility to refer to multiple
ranges. i just want to know how this is done without refering directly to
cells. When refering directly is no problem but the same syntax does not work
when refering indirectly as I want to. E.g. my code is:

ActiveChart.SetSourceData
Source:=Sheets("Indata").Range("rng1.Address:rng1.Offset(1, 0).Address,
rng2.Address:rng2.Offset(3,0).Address"), PlotBy:=xlColumns

and it does not work. If you know how to write this I would be very grateful!



"Bob Phillips" skrev:

 

[Bob Phillips]

You must be looking at something different than me, the union manages
multiple ranges, and the example shows two.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)