ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   check box counter (https://www.excelbanter.com/excel-discussion-misc-queries/183197-check-box-counter.html)

rexmann

check box counter
 
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

Mike H

check box counter
 
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
"rexmann" wrote:

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


FSt1

check box counter
 
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

"rexmann" wrote:

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



All times are GMT +1. The time now is 11:22 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com