Trying to set x data and y data for a chart

[Boogerbut74]

Sub graph_creator()


'Create a chart
  Set cht = ActiveSheet.ChartObjects.Add( _
    Left:=ActiveCell.Left, _
    Width:=450, _
    Top:=ActiveCell.Top, _
    Height:=250)

'Give chart x and y data
Set xRange = Range("=$D10:$D150 ")
    Set yRange = Range("=$F10:$V2360")
    ChartObjects.SeriesCollection(1).XValues = "=Raw!xRange"
    ChartObjects.SeriesCollection(1).Values = "=Raw!yRange"

'Determine the chart type
  
  cht.Chart.ChartType = xlXYScatterLines
  

End Sub

Right now my graph didn't do the x data so i tried this but it didn't work so if anyone has solutions please let me know thank you.

 

[Anthony47]

This is a working example:

Sub graph_creator()
Dim cht As Chart
'
'Create a chart
  Set cht = ActiveSheet.ChartObjects.Add( _
    Left:=ActiveCell.Left, _
    Width:=450, _
    Top:=ActiveCell.Top, _
    Height:=250).Chart
    
'Give chart x and y data
    cht.SeriesCollection.NewSeries           'Serie #1
    cht.SeriesCollection(1).XValues = Sheets("RAW").Range("D3:D10")
    cht.SeriesCollection(1).Values = Sheets("RAW").Range("E3:E10")
    cht.SeriesCollection.NewSeries          'Serie #2
    cht.SeriesCollection(2).Values = Sheets("RAW").Range("F3:F10")
'
'more series and more values here
'
'Set the chart type
  cht.ChartType = xlXYScatterLines
End Sub

Try to adapt to your situation...