Marlett Font query...(THIS TOPIC IS NOW CLOSED OUT)

[Jak]

I have a worksheet with a named range "Marlett" that occupies the following:

='1 - 25'!$E$21:$AF$45

'1 - 25' is the tab name of the sheet.

I have set the cells to Marlett font. If I enter the letter "A" in any cell in this range it changes to a tick. What I need help with is using the sheetchange event to allow a user to single left click a cell and the tick is entered instead of typing the letter "A". A double left click would blank the cell.

All help welcomed
This message was edited by Jak on 2003-01-18 04:38

 

[rikrak]

Hi Jak,

Hope this will do what you want.

<pre>
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Isect As Range

If Target.count > 1 Then Exit Sub

Set Isect = Application.Intersect(Target, Range("Marlett"))
If Not Isect Is Nothing Then Target = ""

Set Isect = Nothing

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Isect As Range

If Target.count > 1 Then Exit Sub

Set Isect = Application.Intersect(Target, Range("Marlett"))
If Not Isect Is Nothing Then Target = "A"
Set Isect = Nothing

End Sub

</pre>

 

[Jak]

Hi rikrak

I added the code provided to the workbook. I clicked a blank cell within the range and a tick appears. When I double click a cell with a tick it clears. Excellent.

Many thanks
This message was edited by Jak on 2002-10-06 06:31