Roger,

You might be able to tailor this to your data:

Sub NonContinuousRangeChart()

Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range

Set Rng1 = Range("A2:A4:A6:A8")
Set Rng2 = Range("C2:C4:C6:C8")
Set Rng3 = Range("E2:E4:E6:E8")

Charts.Add
ActiveChart.ChartType = xlColumnClustered

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = Rng1

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = Rng2

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Values = Rng3

End Sub

--
John


"roger" wrote:

Hi,
i want to make a plot using macro where I want my x-axis to be the
value from the same column but random rows for example

R18C3,R19C3,R21C3,R23C3,R25C3,R27C3 ( only rows are changing)

and my Y-axis should also be something like this

R18C5,R19C5,R21C5,R23C5,R25C5,R27C5 ( only rows are changing)

For one plot It is working but i do not know how i can plot for other
columns...

the code looks like this

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/30/2007 by Roger
'
' Keyboard Shortcut: Ctrl+m
'
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = _
"=('UV and UV & Ozone'!R18C3,'UV and UV & Ozone'!R19C3,'UV and
UV & Ozone'!R21C3,'UV and UV & Ozone'!R23C3,'UV and UV & Ozone'!
R25C3,'UV and UV & Ozone'!R27C3)"
ActiveChart.SeriesCollection(1).Values = _
"=('UV and UV & Ozone'!R18C37,'UV and UV & Ozone'!R19C37,'UV
and UV & Ozone'!R21C37,'UV and UV & Ozone'!R23C37,'UV and UV & Ozone'!
R25C37,'UV and UV & Ozone'!R27C37)"
ActiveChart.SeriesCollection(1).Name = "=""UV"""
ActiveChart.SeriesCollection(2).XValues = _
"=('UV and UV & Ozone'!R18C3,'UV and UV & Ozone'!R19C3,'UV and
UV & Ozone'!R21C3,'UV and UV & Ozone'!R23C3,'UV and UV & Ozone'!
R25C3,'UV and UV & Ozone'!R27C3)"
ActiveChart.SeriesCollection(2).Values = _
"=('UV and UV & Ozone'!R18C37,'UV and UV & Ozone'!R20C37,'UV
and UV & Ozone'!R22C37,'UV and UV & Ozone'!R24C37,'UV and UV & Ozone'!
R26C37,'UV and UV & Ozone'!R28C37)"
ActiveChart.SeriesCollection(2).Name = "=""UV & Ozone"""
ActiveChart.Location Whe=xlLocationAsObject, Name:="UV and UV &
Ozone"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "plot"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
"time"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "MPN"
End With
End Sub