Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
hot to get a tally of the number of times a cell is clicked
I want to click a cell as a tally record to show how many times I have
clicked each cell. This will be used in an analysis spreadsheet of no. of people enquiring about various products at our trade show. So I want to display a number tally to be shown in each cell. Currently I am writing the new number each time I enter in the cell - would be much easier to just click the cell & let it increase the number count by 1 each click. Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
hot to get a tally of the number of times a cell is clicked
Right click sheet tabview codecopy/paste this
Now when you double click either a5 or a6 1 will be added Enter zero to start over Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) If target.Address = "$A$5" Or target.Address = "$A$6" Then On Error GoTo fixit Application.EnableEvents = False If target.Value = 0 Then oldvalue = 0 target.Value = 1 * target.Value + 1 oldvalue = target.Value fixit: Application.EnableEvents = True End If Cancel = True End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Steve Jones" <Steve wrote in message ... I want to click a cell as a tally record to show how many times I have clicked each cell. This will be used in an analysis spreadsheet of no. of people enquiring about various products at our trade show. So I want to display a number tally to be shown in each cell. Currently I am writing the new number each time I enter in the cell - would be much easier to just click the cell & let it increase the number count by 1 each click. Thanks |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
hot to get a tally of the number of times a cell is clicked
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10" '<== change to suit On Error GoTo ws_exit Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target .Offset(0, 1).Value = .Offset(0, 1).Value + 1 .Offset(0, 1).Select End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Steve Jones" <Steve wrote in message ... I want to click a cell as a tally record to show how many times I have clicked each cell. This will be used in an analysis spreadsheet of no. of people enquiring about various products at our trade show. So I want to display a number tally to be shown in each cell. Currently I am writing the new number each time I enter in the cell - would be much easier to just click the cell & let it increase the number count by 1 each click. Thanks |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
hot to get a tally of the number of times a cell is clicked
..........
With Target .Offset(0, 1).Value = .Offset(0, 1).Value + 1 .Offset(0, 1).Select End With .......... Just a comment to help save some typing... With Target.Offset(0, 1) .Value = .Value + 1 .Select End With Rick |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
formula to keep a running tally of the number of times a certain w | Excel Discussion (Misc queries) | |||
How do I count the number of times a letter is used in a cell? | Excel Discussion (Misc queries) | |||
create tally sheet for positions- insert names and tally # | Excel Discussion (Misc queries) | |||
Tool bar Icons should get brighter when clicked several times | Excel Discussion (Misc queries) | |||
Count number of times a specific number is displayed in a cell ran | Excel Worksheet Functions |