Please HELP!!!! before I throw the computer out the window

[bstraw]

Hello all, New to this site but it looks like someone may be able to help, and I am so frustrated now I really need help. OK here is the question. I am making an xy scatter graph. I have 3000+ data points to get the line that I need. Now I want to add a symbol to one of the 3000+data points so it shows up, and also add a label to it. For simplicity sake lets say I have data in two columns, A and B, with 200 rows. I insert a xy scatter and it gives me a nice straight line. Now I want to select the data in Row 184 to show up as a point on the nice line in the graph, can this be done? AHHHHH please help
Thanks in advance

 

[gsbelbin]

Hi
I understand your frustration. Have you tried the solution given by rorya? I've tried it and it does exactly what I think you want. The only difference I made was to have the chart on a separate sheet. I changed the line

With Me.ChartObjects(1).Chart.SeriesCollection(1)

to

With Charts("Chart1").SeriesCollection(1)

This code sets the marker for the cell you want to one colour and all the others to a different colour, plus it adds the text "It's me!"

If you need any other pointers to implement this let us know.

Gordon

 

[bstraw]

Thanks for all of the help everyone but it is still not working any other ideas or does anyone know of a place where I can past the entire worksheet to show what my sheet is doing?

 

[RoryA]

You can try one of the free filehosting sites such as box.net or rapidupload.

 

[bstraw]

OK, I know this is not the safest way to do this but I am running out of time and options. I am putting up one of my gmail accounts and password so you all can download the sheet I am talking about. Directions:

removed by Admin

Does this help? I am getting VERY desperate here

There is so much data to create the line on the graph. I have 10-12 data points that I would like to put on there with a symbol and then label them. If I show data points it is just a black blob. I want to be able to click on a cell and it show that individual data point on the line no others, then I can go and edit that data point. Does that make sense?

 

[RoryA]

I can't access gmail from work but if you haven't had an answer by the time I get home, I will take a look. It would have been safer to PM those involved rather than posting it openly though, or to use a free hosting site.

 

[Joe4]

bstraw,

Please do not post your username/password that information on a public forum like that. It is not a good idea, and could cause you a lot of problems. I have removed that information.

As Rory said, it is best to use Private Messaging (PM) to those involved.

 

[bstraw]

Sorry Joe, I am just frustrated, can you please edit/remove that post? I cannot do it now, time limit up? Again sorry about that. I will go to gmail and change the password.

 

[Joe4]

Sorry Joe, I am just frustrated, can you please edit/remove that post? I cannot do it now, time limit up? Again sorry about that. I will go to gmail and change the password.

No worries. I already removed the sensitive information from the post. There are a lot of hackers and spammers out there on the 'net, and we are just trying to make sure that you don't fall victim to any of them.

 

[RoryA]

This tweak to the code works for me with your workbook:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim n As Long
    ' adjust range to be monitored
    If Not Intersect(Target, Me.Range("A2:B" & Cells(Rows.Count, "B").End(xlUp).Row)) Is Nothing Then
        ' assumes one data series
        With Me.ChartObjects(1).Chart.SeriesCollection(1)
            With Application
                .ScreenUpdating = False
                .EnableEvents = False
                .Calculation = xlCalculationManual
            End With
            For n = 1 To .Points.Count
                With .Points(n)
                    If n = Target.Row - 1 Then
                        .HasDataLabel = True
                        .DataLabel.Text = "it's me!"
                        .MarkerBackgroundColorIndex = 3
                    Else
                        If .HasDataLabel Then .HasDataLabel = False
                        If .MarkerStyle <> xlMarkerStyleNone Then .MarkerStyle = xlMarkerStyleNone
                    End If
                End With
            Next n
            With Application
                .Calculation = xlCalculationAutomatic
                .EnableEvents = True
                .ScreenUpdating = True
            End With
        End With
    End If
End Sub