Thread: survey
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
davesexcel
 
Posts: n/a
Default survey


I can only get 1 or 2 out of the checkboxes, you can still tally them up
though

Here is another option

A right click -check mark, paste this code into the worksheet module

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True

If Union(Range("$A1:$A12"), Target).Address = Range("$A1:$A12").Address
Then
If Selection = "a" Then
Selection.ClearContents

Else
With Selection.Font
.Name = "Webdings"
.Size = 10
End With
ActiveCell.FormulaR1C1 = "a"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub


now in another range you can enter a funtion like this
=COUNTA(A1:A12,"a")

Change the ranges as you require

but for this example when you right click in the range A1:A12 a check
mark appears or disappears

the counta function will count the number of checkmarks in that range,
then you can formulate the total to get a percentage


Just an option!!


--
davesexcel


------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=543903