Multiple range selection issue

[SPV]

I was trying to plot the Scatter graph for a specified range in
different columns. I have 3 columns with specified ranges Col 1 X axis
and the col2 and 3 plotted on Y axis . I have generated a record macro
for the same and it look like the same below.

Range("A2:A14,E2:E14,H2:H14").Select
Range("H2").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range( _
"A2:A14,E2:E14,H2:H14"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "ARM Load"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time
in Sec"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Load in
%"
End With
End Sub

I have already defined ranges for
A2:A14 => Range 1
E2:E14 => Range 2
H2:H14 => Range 3 by declaring them as range...

Now when I gave Range("Range1,Range2,Range3").Select => didn't work
for me...
I tried Range("Range1","Range2","Range3).Select also.. didn't give me
result...

Now I tried Union(Range(X_axis), Range(NULL_Thread_activity),
Range(NULL_Thread_activity)).Select

Please throw some light on how to program the same in VBA with
specified ranges and not taking explicit cell references...

Thanks in advance for helping me....


Regards,
SPV

 

[Don Guillett]

PLEASE quit multi posting. Not a good way to make friends

 

[Guest]

if you did
set Range1 = Range("A2:A14")

then it would be

Union(Range1,Range2,Range3).Select

 

[Guest]

if you did

Range1="A2:A14"

then it would be

Sub AB()
Range1 = "A2:A14"
Range2 = "E2:E14"
Range3 = "H2:H14"
Range(Range1 & "," & Range2 & "," & Range3).Select
End Sub

 

[SPV]

PLEASE quit multi posting. Not a good way to make friends

--
Don Guillett
SalesAid Software












- Show quoted text -

I have joined the group two days before and was not aware much of it's
working...
Do you mean I should not ask the same question in different Excel
groups?
I wanted some quick tips on my problem that is why posted in multiple
group...
If all the "friends" are there in multiple groups yes I should only be
doing one posting...
Please clarify...
SPV

 

[SPV]

if you did

Range1="A2:A14"

then it would be

Sub AB()
Range1 = "A2:A14"
Range2 = "E2:E14"
Range3 = "H2:H14"
Range(Range1 & "," & Range2 & "," & Range3).Select
End Sub

--
Regards,
Tom Ogilvy












- Show quoted text -

Hi Tom Ogilvy,
The range is calculated besed on some logic and I set the range like
following...

Set X_axis = ActiveSheet.Range(Cells(Row_start, 1), Cells(Row_end, 1))
Set NULL_Thread_activity = ActiveSheet.Range(Cells(Row_start,
NULL_Col), Cells(Row_end, NULL_Col))
Set Thread_activity = graph_range (graph_range was precalculated the
same way)

When I use MsgBox to display the address range it is coming correctly
if I do like this
MsgBox X_axis.Address

Hope I am clear...
Now I have two issues...
1. For plotting the graph I should first select the range ...
2.Then
ActiveChart.SetSourceData Source:=ActiveSheet.Range("X_axis,
Thread_activity, NULL_Thread_activity")

Please advice me...

 

[Don Guillett]

Your assumption is correct. Responders check most of the groups. You should
endeavor to put in the most appropriate group with a meaningful subject
line. Most TOP post.