?Tally chart using buttons???

1 2 3 4
5 9 10 11
12 6 8 7

This is the order of your buttons - it would be better if they were in numerical order - since this is just an example, will your real spreadsheet have the "buttons" in order??

(Also, these are all standard controls - and, as such, are limited to just the click event).

Hi smithymcsmithy,

It doesn't matter since I'm keying on the "Caption" - see if this is what you want:McSmith.xls

For some reason your "Animal" got placed as "Animal " - I fixed it with this:

Private Sub Rectangle9_Click(): Dim S As String
'ActiveCell = "Animal"
ActiveSheet.Shapes("Rectangle 9").Select
Selection.Characters.Text = "Animal"
S = Selection.Characters.Text
TallyButton (S)
End Sub

McSmith.xls

Hi smithymcsmithy,

I've been playing with some "button" effects - see if you like it:

Sub TallyButton(Cap As String)
Dim D As Date, ws As Worksheet, A As Range, T As Single
Dim i As Integer, j As Integer: D = Date: T = Timer
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
Delay:
If Timer - T > 0.5 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 4
Selection.ShapeRange.Fill.BackColor.SchemeColor = 23
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 1
Selection.HorizontalAlignment = xlLeft
Selection.VerticalAlignment = xlTop
Else:
GoTo Delay
End If
Set ws = ThisWorkbook.Worksheets("Sheet2")
Set A = ws.Range("A4:A15")
j = A.Find(Cap).Row
Do: i = i + 1: Loop Until ws.Cells(2, i) = D
ws.Cells(j, i) = ws.Cells(j, i) + 1: i = 0
End Sub

Hi smithymcsmithy,

Just copy paste the code into the module over the old code - but I changed it again - try this: McSmith.xls

Change it in the code like I did with "Button" #10:

Private Sub Rectangle1_Click(): Dim S As String
'ActiveCell = "Red"
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Characters.Text = "Aquamarine"
S = Selection.Characters.Text
TallyButton (S)
End Sub

Hi smithymcsmithy,

Don't do it that way - after you've entered:

Selection.Characters.Text = "Aquamarine"

in the right place, just keep hitting "F8" (the function button F8 on your keyboard)

this will single step through the program and, hopefully, highlight the problem code.

I can't say why you're having trouble as it works clean on my system.

I just realized - "Aquamarine" has to be an entry in Column "A" - that's the way it's programmed! Want to reprogram it??

Good and you're welcome!