IF and ELSEIF Statement with condition of a cell is selected

[AndyVoClosser]

Hi Community. I need you help to fix this Marco. I am trying to show data based on the condition of a cell is selected. Below is my code. Thank you so much.

Sub ShowData()

If ActvieSheet.Range("A2").Select = True Then
Sheets("Chart Data").Select
Range("B2:B6").Select

ElseIf ActvieSheet.Range("B2").Select = True Then
Sheets("Chart Data").Select
Range("D2:D6").Select


ElseIf ActvieSheet.Range("C2").Select = True Then
Sheets("Chart Data").Select
Range("E2:E6").Select
End If
End Sub

 

[Joe4]

Try changing how you are checking each one.

Instead of doing this:

If ActvieSheet.Range("A2").Select = True Then

try this method:

If Not Intersect(ActiveCell, Range("A2")) Is Nothing Then

 

[AndyVoClosser]

Try changing how you are checking each one.

Instead of doing this:

If ActvieSheet.Range("A2").Select = True Then

try this method:

If Not Intersect(ActiveCell, Range("A2")) Is Nothing Then

Thank you, it works well. I have another problem, could you help me check it. I have a series chart with 5 points. Now I want if I select points(1), it will show the data of points(1), if I select point(2), it will show the data of points(2),...., to points(5). Could you help me with this issue. I appreciate you.

 

[Joe4]

Thank you, it works well. I have another problem, could you help me check it. I have a series chart with 5 points. Now I want if I select points(1), it will show the data of points(1), if I select point(2), it will show the data of points(2),...., to points(5). Could you help me with this issue. I appreciate you.

That is a totally different question, and should be asked in a new thread of its own.
(I probably would not be able to help anyway, as I know very little about charts - I never use them!)