Deleting Duplicate items in a ListBox

[Dave Peterson]

I don't know which post you are responding to.

But it sounds like things are fixed?????

 

[CLamar]

Well, it is almost. Right now it plots the seriescollection as if they are
seperate. I need the first one to be the X-values and the next one to be the
Y values. It is about the last revision to the code you posted. This
should be the last question, so if you can help it would be very much
appreciated

 

[Dave Peterson]

You're still past my knowledge of charts and graphs....

But could you use:

.SetSourceData Source:=Sheets("Datatable").Range("f1:g" & LastCellx), _
PlotBy:=xlColumns

instead of:
' .SeriesCollection.Add _
Source:=Worksheets("datatable").Range("f2:F" & LastCellx)
' .SeriesCollection.Add _
Source:=Worksheets("datatable").Range("g2:G" & LastCelly)


If no one jumps in with a correct answer, I'm still gonna suggest that you ask
in that other .charting newsgroup.

 

[CLamar]

I figured it out yesterday. I used:

Charts.Add
ActiveChart.Name = "VRH1H4"
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = _
WS.Range(WS.Cells(2, 6), WS.Cells(LastCellVRH1H4x, 6))
ActiveChart.SeriesCollection(1).Values = _
WS.Range(WS.Cells(2, 11), WS.Cells(LastCellVRH1H4y, 11))

Thanks for all your help, I must say you were a job saver

 

[Dave Peterson]

I'm glad you got a solution.

I figured it out yesterday. I used:

Charts.Add
ActiveChart.Name = "VRH1H4"
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = _
WS.Range(WS.Cells(2, 6), WS.Cells(LastCellVRH1H4x, 6))
ActiveChart.SeriesCollection(1).Values = _
WS.Range(WS.Cells(2, 11), WS.Cells(LastCellVRH1H4y, 11))

Thanks for all your help, I must say you were a job saver