Thread: Simple chart!!! This is killing me!

Name Total
James 1
Greg 2

Charting options, data Labels : Percentage

Name
Greg
Greg
Juke
Juke
Ron
Ron
Ron

Select the Column, Data, Subtotals. Each change in Name, Use function Count. Result:
Name
Greg Count 2
Juke Count 2
Ron Count 3

Select and do what I have described before

brad, I see why this is killing you. Maybe blink twice and the chart will appear by itself
- A small macro could do the trick. A single button in the worksheet to press.
All possible, but ...

Here some code for you. can you do the rest yourself? If not I will help you further...

Sub Find1()
  Dim Rng As Range, Ccell As Range
  Dim ResultArray() As Variant 'Nx2 array with names and totals
  Dim NameCounter As Long, Counter As Long
  Dim Found As Boolean
  
  NameCounter = 1
  Set Rng = Range(Range("A1"), Range("A65536").End(xlUp))  'to select [A1] to the last cell
  ReDim ResultArray(1 To Rng.Cells.Count, 1 To 2)

  For Each Ccell In Rng
    Found = False
    For Counter = 1 To NameCounter
      If Ccell = ResultArray(Counter, 1) Then
        ResultArray(Counter, 2) = ResultArray(Counter, 2) + 1
        Found = True
        Exit For 'No Need to continue
      End If
    Next Counter
    If Not Found Then
      NameCounter = NameCounter + 1
      ResultArray(NameCounter, 1) = Ccell
      ResultArray(NameCounter, 2) = 1
    End If
  Next
End Sub

Also, as your solution counts all of the cells up to 65K, it will be slow with multiple instances of that macro...

Is not quit true, but anyway...
The only thing I can think of when implementing:

a solution on a much bigger scale, more than just 1 column

You should consider Pivot Tables. This has the Count function in it. In case of this example drag Name in the "Row fields" and in the "Data Items"

If this did not gave you the solution, I hope someone smarter than me will give it a go.

As rwgrietveld points out the only auto solution is pivot table/graph.

Graphs do not summarize your data they only present it and it has to be numeric.

You need to calculate the totals before charting. You can use formula, subtotals or code but the crucial thing is you need to do it as the chart will not.

This is unusual exept when it is part of total macro as this button already exists (the exclamation mark

Anyway:

Private Sub CommandButton1_Click()
  Worksheets("Sheet2").PivotTables("PivotTable1").PivotCache.Refresh
End Sub