Help with fixing procedure. (Should be easy)

[andrew456]

Can someone please help me fix my procedure? I cannot debug because the debugger sees nothing wrong.

Sub UpdateChart2()

*

Dim oChtObj As ChartObject

*

Dim oSeries As Series

*

Dim tSeries As Series

*

Dim UserRow As Long

*

Dim AnotherRow As Long

*

*

Set oChtObj = ActiveSheet.ChartObjects(1)

*

On Error Resume Next

*

UserRow = ActiveCell.Row

*

AnotherRow = ActiveCell.Row

*

*

If UserRow < 4 Or IsEmpty(Cells(UserRow, 1)) Then

*

oChtObj.Visible = False

*

*

Else

*

With oChtObj

With .Chart

If .SeriesCollection.Count = 0 Then

Set oSeries = .SeriesCollection.NewSeries

Set tSeries = .SeriesCollection.NewSeries

*

*

Else

*

Set oSeries = .SeriesCollection(1)

Set tSeries = .SeriesCollection(2)

*

End If

*

tSeries.Values = Range(Cells(AnotherRow, 20), Cells(AnotherRow, 31))

oSeries.Values = Range(Cells(UserRow, 2), Cells(UserRow, 13))

.HasTitle = True

.ChartTitle.Text = Cells(UserRow, 1).Text

.ChartType = xlLine

*

*

End With

*

.Visible = True

*

*

End With

*

End If

*

*

*

*

*

oSeries.XValues = Worksheets("Sheet1").Range("B17:M17")

*

oSeries.Border.Weight = xlThick

oSeries.Border.LineStyle = xlContinuous

oSeries.Smooth = True

tSeries.XValues = Worksheets("Sheet1").Range("T17:AE17")

tSeries.Border.Weight = xlThick

tSeries.Border.LineStyle = xlContinuous

tSeries.Smooth = True

*

*

*

*

*

*

*

oChtObj.Visible = True

*

*

*

End Sub

*

*

The second line/series isn't showing and I do not know why. Can someone help?

 

[andrew456]

https://www.dropbox.com/s/ps01fgfl8xu83qf/Two Series Chart.xls?dl=0

Does this help?

 

[Michael M]

Andrew
Both series ARE actually there.
Note Series 98 is a flat line along the bottom of the graph !!
If you look at the data variation, Series 98 goes from 16k to 1.5m, whereas Series 99 goes from 22m to 94m. !!!!

 

[andrew456]

Okay but that's two (which strangely doesn't appear on my work computer). But the others aren't showing up. I can't figure out why.

 

[Michael M]

Your code only selects 2 series...and 2 show on the graph each time ???
I filtered for 5 users, and manually selected each one with the CTRL Key and they all appeared...given that some of the graphs are a flat line that simply look like the btotom border of the graph !!

 

[andrew456]

Strange. So why for example, Elliott works and Mary doesn't? At least it doesn't work from my end.

 

[andrew456]

Sorry. I realized now that it works. My eyes weren't working and I thought the code was broken. Thanks

 

[Michael M]

Glad it worked...