check box counter

R

rexmann

Hi All

I have a mamoth job of data entry and need to enter results with a yes/no
answer. Is there a way of setting up excel so you click in the cell and it
puts a tick or cross (or number)?

I am using Excel 2003 professional

Cheers Rexmann
 
M

Mike H

You don't give too much information but this will put a tick in A1 _ A100
whenever 1 of those cells is selected

Right click your sheet tab, view code and paste it in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Target.Font.Name = "WingDings 2"
Target.Value = "P"
End If
End Sub

Mike
 
F

FSt1

hi
how about a double click on the cell.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim r As Range
Set r = Range("B1:B10") 'change to suit
If Target.Column <> r.Column Then Exit Sub
With r.Font
.Name = "Marlett"
End With
ActiveCell.FormulaR1C1 = "'a"
End Sub

regards
FSt1
 
Top