help with excel - auto enter data into a cell

robnye

can anyone help.

I am creating a spreadsheet and would like it to automatically enter a tick into a cell when i click on the cell

how can i do this?

Chippy_Minton

You can do it with a double-click. First format the cell(s) as the Windings 2 font - with this, typing a capital P displays a tick.

Then right-click the sheet tab - View Code and paste in:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target = "P" Then
            Target = vbNullString
        ElseIf Target = vbNullString Then
            Target = "P"
        End If
    End If
End Sub

For the above code, cells A1 to A10 have been formatted as Windings 2.

You can also do it with a right-click. Change the subroutine name to:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

robnye

took a couple of mins to get my head around it, but brilliant it works.....