I am a school teacher and use my interactive whiteboard a lot, which is away
from my keyboard. I have a spreadsheet which I log behavioural issues in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!

Hi... Thanks very much...

I went into Excel, right clicked the tab, went to view code, and then pasted
the text you gave me into Sheet 1s code (General) (Declarations).

The top line went red "Private Sub Worksheet_BeforeDoubleClick(ByVal Target
As Range, Cancel As
Boolean)".

I then tried to double click a cell... but it just went into enter text mode.

Any ideas?

Thanks.



"Jim Thomlinson" wrote:

There is no on click event in Excel (there is for embeded buttons but not for
cells). There is selection change, but that will not fire if you click the
same cell twice in a row. How about double click? Place this code directly
into the sheet (right click the approporiate tab and select view code. Paste
the following

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select

End Sub
--
HTH...

Jim Thomlinson


"PG Oriel" wrote:

I am a school teacher and use my interactive whiteboard a lot, which is away
from my keyboard. I have a spreadsheet which I log behavioural issues in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!

Hi... all ok now.

Made it so the top bit wasn't red and it all works brilliantly.

Thanks!!

"Jim Thomlinson" wrote:

There is no on click event in Excel (there is for embeded buttons but not for
cells). There is selection change, but that will not fire if you click the
same cell twice in a row. How about double click? Place this code directly
into the sheet (right click the approporiate tab and select view code. Paste
the following

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select

End Sub
--
HTH...

Jim Thomlinson


"PG Oriel" wrote:

I am a school teacher and use my interactive whiteboard a lot, which is away
from my keyboard. I have a spreadsheet which I log behavioural issues in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!

Hello again...

Now I have that in the code, is there a way to, again, use a double click to
turn blank cells into the day's date. I just want this to work for the top
row of the sheet... and all else to follow the x,xx,15 clicks.

Thanks.



"Jim Thomlinson" wrote:

There is no on click event in Excel (there is for embeded buttons but not for
cells). There is selection change, but that will not fire if you click the
same cell twice in a row. How about double click? Place this code directly
into the sheet (right click the approporiate tab and select view code. Paste
the following

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select

End Sub
--
HTH...

Jim Thomlinson


"PG Oriel" wrote:

I am a school teacher and use my interactive whiteboard a lot, which is away
from my keyboard. I have a spreadsheet which I log behavioural issues in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!

That is a victim of line wrap. Has has to be on one line or have a line
break like this _.

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)

HTH
Regards,
Howard

"PG Oriel" <PG wrote in message
...
I am a school teacher and use my interactive whiteboard a lot, which is
away
from my keyboard. I have a spreadsheet which I log behavioural issues in
with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my
warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then
if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!

Here you go...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target.Row = 1 Then
Target.Value = Date
Else
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
Case 15
Target.Value = "I'm calling your mom"
End Select
End If
End Sub
--
HTH...

Jim Thomlinson


"PG Oriel" wrote:

Hello again...

Now I have that in the code, is there a way to, again, use a double click to
turn blank cells into the day's date. I just want this to work for the top
row of the sheet... and all else to follow the x,xx,15 clicks.

Thanks.



"Jim Thomlinson" wrote:

There is no on click event in Excel (there is for embeded buttons but not for
cells). There is selection change, but that will not fire if you click the
same cell twice in a row. How about double click? Place this code directly
into the sheet (right click the approporiate tab and select view code. Paste
the following

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select

End Sub
--
HTH...

Jim Thomlinson


"PG Oriel" wrote:

I am a school teacher and use my interactive whiteboard a lot, which is away
from my keyboard. I have a spreadsheet which I log behavioural issues in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!

Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
if Target.row < 1 then
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select
Else
Target.Value = Date
Target.Numberformat = "mm/dd/yyyy"
End if
End Sub

--
Regards,
Tom Ogilvy


"PG Oriel" wrote in message
...
Hello again...

Now I have that in the code, is there a way to, again, use a double click
to
turn blank cells into the day's date. I just want this to work for the top
row of the sheet... and all else to follow the x,xx,15 clicks.

Thanks.



"Jim Thomlinson" wrote:

There is no on click event in Excel (there is for embeded buttons but
not for
cells). There is selection change, but that will not fire if you click
the
same cell twice in a row. How about double click? Place this code
directly
into the sheet (right click the approporiate tab and select view code.
Paste
the following

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
Select Case Target.Value
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select

End Sub
--
HTH...

Jim Thomlinson


"PG Oriel" wrote:

I am a school teacher and use my interactive whiteboard a lot, which
is away
from my keyboard. I have a spreadsheet which I log behavioural issues
in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my
warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x,
then if
I click a second time to change it to a xx, and then on 3rd click to
15.

I can do it using buttons, but is there any way to do it using a
clicking
sequence ona cell only??? Thanks!!!