Call Tracking Sheet - Electronic

Hello all,

Hopefully I can get some help with this. I am trying to turn this call tracking sheet into an electronic one. Is is possible to have check boxes in the empty cells that will allow someone to just click them as they go along and it would create a total at the bottom to avoid countless hours of counting these sheets. Or even turn "Trans CM" into a button that you can click and it would keep track of how many times that specific button was clicked. Any and all help would be much appreciated.

Thank you,
Kyle

The simplest way is to format those cells with the "Marlett" font, then just tap the "a" key as you pass cells you want to "check".

You can use a formula at the bottom to count the "a" values:


r = a big "X" mark
a = checkmark
b = checkmark

Or even turn "Trans CM" into a button that you can click and it would keep track of how many times that specific button was clicked.

This requires a VBA solution. If JBeaucaire solution is satisfactory, then use it as it is simpler and uses no VBA code.

However, if you want "click and count" functionality, then perhaps this attached file will be of interest. First, though, a few explanations about the workbook.

The data table was shifted down to make room for a couple of rows at the top in order to place totals there for viewing w/o need for scrolling.

Dynamic named ranges were created for the individual columns and the named ranges referenced in the COUNT formula.

The Worksheet_BeforeRightClick event is used to tick down each row in the column whenever you right-click on the header cell. It also uses the Marlett check JBeaucaire mentioned.

Here is the code used:

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim lrow As Long
    
    If Not Intersect(Target, Range("B4:E4")) Is Nothing Then
    
        'supress right-click context menu when in the target cells
        Cancel = True
        
        'find the last row in each column
        lrow = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
        
        'format the cell to Marlett font and place value into cell
        Cells(lrow, Target.Column).Font.Name = "Marlett"
        Cells(lrow, Target.Column) = "a"
    End If

End Sub