I'm glad you got a solution.



CLamar wrote:

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" wrote:

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 wrote:

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" wrote:

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

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



CLamar wrote:

I really appreciate the help, now i all i have to do is assign the first
SeriesCollection to X and the second to Y

"CLamar" wrote:

I have a Listbox in Excel and I am trying to loop through and delete the
duplicate entries. How can I do this using VBA

Thanks

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson