Series Chart and Data with IF Statement

[AndyVoClosser]

Dear everyone,

I have a problem when I use the IF statement for points in a series chart to show the data of points. My Marco is below. I appreciate any comments to revise it. Thank you so much.

Sub ShowDataChart1()
Dim ws As Worksheet
Dim myChart As ChartObject
Dim ser As Series

Set ws = ActiveSheet
Set myChart = ws.ChartObjects(1)
Set ser = myChart.Chart.SeriesCollection(1)

If ser.Points(1).Select Then
Sheets("Chart Data").Activate
Range("D2:F2").Select
End If

If ser.Points(2).Select Then
Sheets("Chart Data").Activate
Range("D3:F3").Select
End If

If ser.Points(3).Select Then
Sheets("Chart Data").Activate
Range("D4:F4").Select
End If

If ser.Points(4).Select Then
Sheets("Chart Data").Activate
Range("D5:F5").Select
End If

If ser.Points(5).Select Then
Sheets("Chart Data").Activate
Range("D6:F6").Select
End If

End Sub

 

[NdNoviceHlp]

Hi AndyVoClosser. It's not clear what your trying to accomplish? Dave
ps. Please use code tags

 

[NdNoviceHlp]

This seems like the same inquiry.... Series Chart and Its Data ? Dave
ps. When you hover the mouse pointer over data points in a chart it displays the associated chart data.