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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 10:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com