View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Nick Hodge Nick Hodge is offline
external usenet poster
 
Posts: 1,173
Default macro help for a beginner

Danz

Does exactly what you want, (Currently works on column A), providing you
have 'Wingdings' font installed. It may be better to use a 'double-click'
event as this one is detecting a selection change. If you click twice to
'toggle' the tick on and off, you do not change selection and it does not
fire. To implement this code go to

http://www.nickhodge.co.uk/vba/vbaim....htm#EventCode

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
If IsEmpty(Target.Value) Then
With Target
.Font.Name = "Wingdings"
.Value = Chr(252)
End With
Else
Target.Value = ""
End If
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Danz" wrote in message
...

hi all, first time ive been here so please bear with me. the problem i
have is that i know nothing about writing macro's (all i know is how to
open VB Editor,lol) i have been given the task of trying to work out a
macro for a spreadsheet we use, basically what it needs to do (if it
can be done) is this : we have a coloum that needs to have a 'tick'
icon in the cell, however if we can we would like this to happen by
just being able to click on the cell and the icon appears and then if
we click on the same cell the icon will be removed, this same action
needs to happen on each cell in that coloumn so we can go down to any
cell and put a tick in it just by clicking the box like a checklist. I
hope this explains it ok if not then please tell me what info would be
useful and i will try my best. Any advice on how i do this is greatly
appreciated, thanks in advance.


--
Danz
------------------------------------------------------------------------
Danz's Profile:
http://www.excelforum.com/member.php...o&userid=16448
View this thread: http://www.excelforum.com/showthread...hreadid=278087