software

Hi can anyone explain (if possible) how to set up a tick box?

I would like to left cliick on the mouse in a cell (to put tick in) and then
use this tick in a IF statement on another.

Thnaks again Matt

Hi!

Here's some code by Bob Phillips and tweaked by Dave Peterson that does what
you want:

This procedure let's you click on a cell in a range (defined in the code)
and places a quot;checkmarkquot; in
that cell.Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myHeight As Double
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
With Target
If .Value = quot;aquot; Then
.Value = quot;quot;
Else
myHeight = .EntireRow.RowHeight
.Value = quot;aquot;
.Font.Name = quot;Marlettquot;
.EntireRow.RowHeight = myHeight
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub
This is sheet code.
Right click the sheet tab and paste into the window that opens.

Then, to use the checkmark in an IF formula you simply need to test the cell
to see if it's empty or not.

Biff

quot;Tiddlerquot; gt; wrote in message
...
gt; Hi can anyone explain (if possible) how to set up a tick box?
gt;
gt; I would like to left cliick on the mouse in a cell (to put tick in) and
gt; then
gt; use this tick in a IF statement on another.
gt;
gt; Thnaks again Matt
Slight typo:

gt;This is sheet code.
gt;Right click the sheet tab and paste into the window that opens.

Should be:

Right click the sheet tab and select View Code. Then paste the code into the
window that opens.

Biff

quot;Biffquot; gt; wrote in message
...
gt; Hi!
gt;
gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that does
gt; what you want:
gt;
gt; This procedure let's you click on a cell in a range (defined in the code)
gt; and places a quot;checkmarkquot; in
gt; that cell.
gt;
gt;
gt; Option Explicit
gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt; Dim myHeight As Double
gt; Application.EnableEvents = False
gt; On Error GoTo sub_exit
gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; With Target
gt; If .Value = quot;aquot; Then
gt; .Value = quot;quot;
gt; Else
gt; myHeight = .EntireRow.RowHeight
gt; .Value = quot;aquot;
gt; .Font.Name = quot;Marlettquot;
gt; .EntireRow.RowHeight = myHeight
gt; End If
gt; End With
gt; End If
gt; sub_exit:
gt; Application.EnableEvents = True
gt; End Sub
gt;
gt;
gt;
gt; This is sheet code.
gt; Right click the sheet tab and paste into the window that opens.
gt;
gt; Then, to use the checkmark in an IF formula you simply need to test the
gt; cell to see if it's empty or not.
gt;
gt; Biff
gt;
gt; quot;Tiddlerquot; gt; wrote in message
gt; ...
gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt;gt;
gt;gt; I would like to left cliick on the mouse in a cell (to put tick in) and
gt;gt; then
gt;gt; use this tick in a IF statement on another.
gt;gt;
gt;gt; Thnaks again Matt
gt;
gt;
Thanks I think? Which section of code refers to quot;tick boxquot; location and once
I have pasted into sheet tab do I just close the window or save somehow?

Sorry but I 'm fairly new to excel and probably in way to deep thanks for
your help
Matt

quot;Biffquot; wrote:

gt; Slight typo:
gt;
gt; gt;This is sheet code.
gt; gt;Right click the sheet tab and paste into the window that opens.
gt;
gt; Should be:
gt;
gt; Right click the sheet tab and select View Code. Then paste the code into the
gt; window that opens.
gt;
gt; Biff
gt;
gt; quot;Biffquot; gt; wrote in message
gt; ...
gt; gt; Hi!
gt; gt;
gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that does
gt; gt; what you want:
gt; gt;
gt; gt; This procedure let's you click on a cell in a range (defined in the code)
gt; gt; and places a quot;checkmarkquot; in
gt; gt; that cell.
gt; gt;
gt; gt;
gt; gt; Option Explicit
gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt; gt; Dim myHeight As Double
gt; gt; Application.EnableEvents = False
gt; gt; On Error GoTo sub_exit
gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; gt; With Target
gt; gt; If .Value = quot;aquot; Then
gt; gt; .Value = quot;quot;
gt; gt; Else
gt; gt; myHeight = .EntireRow.RowHeight
gt; gt; .Value = quot;aquot;
gt; gt; .Font.Name = quot;Marlettquot;
gt; gt; .EntireRow.RowHeight = myHeight
gt; gt; End If
gt; gt; End With
gt; gt; End If
gt; gt; sub_exit:
gt; gt; Application.EnableEvents = True
gt; gt; End Sub
gt; gt;
gt; gt;
gt; gt;
gt; gt; This is sheet code.
gt; gt; Right click the sheet tab and paste into the window that opens.
gt; gt;
gt; gt; Then, to use the checkmark in an IF formula you simply need to test the
gt; gt; cell to see if it's empty or not.
gt; gt;
gt; gt; Biff
gt; gt;
gt; gt; quot;Tiddlerquot; gt; wrote in message
gt; gt; ...
gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt; gt;gt;
gt; gt;gt; I would like to left cliick on the mouse in a cell (to put tick in) and
gt; gt;gt; then
gt; gt;gt; use this tick in a IF statement on another.
gt; gt;gt;
gt; gt;gt; Thnaks again Matt
gt; gt;
gt; gt;
gt;
gt;
gt;

gt;Which section of code refers to quot;tick boxquot; location

This line:

If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then

Just change quot;A1:A100quot; to whatever range you want.

gt;I have pasted into sheet tab do I just close the window or save somehow?

After you paste the code you just close the VBE (click the quot;Xquot;)

Now, when you select a cell in the defined range a checkmark will appear.
Select that cell again and the checkmark will be removed.

To use that in an IF formula you might do something like this (based on the
cell having the checkmark):

=IF(LEN(A1),do_something,do_something_else)

Biff

quot;Tiddlerquot; gt; wrote in message
...
gt; Thanks I think? Which section of code refers to quot;tick boxquot; location and
gt; once
gt; I have pasted into sheet tab do I just close the window or save somehow?
gt;
gt; Sorry but I 'm fairly new to excel and probably in way to deep thanks for
gt; your help
gt; Matt
gt;
gt; quot;Biffquot; wrote:
gt;
gt;gt; Slight typo:
gt;gt;
gt;gt; gt;This is sheet code.
gt;gt; gt;Right click the sheet tab and paste into the window that opens.
gt;gt;
gt;gt; Should be:
gt;gt;
gt;gt; Right click the sheet tab and select View Code. Then paste the code into
gt;gt; the
gt;gt; window that opens.
gt;gt;
gt;gt; Biff
gt;gt;
gt;gt; quot;Biffquot; gt; wrote in message
gt;gt; ...
gt;gt; gt; Hi!
gt;gt; gt;
gt;gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that does
gt;gt; gt; what you want:
gt;gt; gt;
gt;gt; gt; This procedure let's you click on a cell in a range (defined in the
gt;gt; gt; code)
gt;gt; gt; and places a quot;checkmarkquot; in
gt;gt; gt; that cell.
gt;gt; gt;
gt;gt; gt;
gt;gt; gt; Option Explicit
gt;gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt;gt; gt; Dim myHeight As Double
gt;gt; gt; Application.EnableEvents = False
gt;gt; gt; On Error GoTo sub_exit
gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt;gt; gt; With Target
gt;gt; gt; If .Value = quot;aquot; Then
gt;gt; gt; .Value = quot;quot;
gt;gt; gt; Else
gt;gt; gt; myHeight = .EntireRow.RowHeight
gt;gt; gt; .Value = quot;aquot;
gt;gt; gt; .Font.Name = quot;Marlettquot;
gt;gt; gt; .EntireRow.RowHeight = myHeight
gt;gt; gt; End If
gt;gt; gt; End With
gt;gt; gt; End If
gt;gt; gt; sub_exit:
gt;gt; gt; Application.EnableEvents = True
gt;gt; gt; End Sub
gt;gt; gt;
gt;gt; gt;
gt;gt; gt;
gt;gt; gt; This is sheet code.
gt;gt; gt; Right click the sheet tab and paste into the window that opens.
gt;gt; gt;
gt;gt; gt; Then, to use the checkmark in an IF formula you simply need to test the
gt;gt; gt; cell to see if it's empty or not.
gt;gt; gt;
gt;gt; gt; Biff
gt;gt; gt;
gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt;gt; gt; ...
gt;gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt;gt; gt;gt;
gt;gt; gt;gt; I would like to left cliick on the mouse in a cell (to put tick in)
gt;gt; gt;gt; and
gt;gt; gt;gt; then
gt;gt; gt;gt; use this tick in a IF statement on another.
gt;gt; gt;gt;
gt;gt; gt;gt; Thnaks again Matt
gt;gt; gt;
gt;gt; gt;
gt;gt;
gt;gt;
gt;gt;
EXCELLENT i GOT IT WORKING IN COLUMN N BUT WOULD LIKE TO NARROW THAT DOWN TO
N11-N14.
CAN NARROW DOWN TO N14 bUT N1-10 CAN STILL BE TICKED
(opps sorry about caps)

Also is it possable to allow only one tick at a time

Thanks So far keep it coming
Matt

quot;Biffquot; wrote:

gt; gt;Which section of code refers to quot;tick boxquot; location
gt;
gt; This line:
gt;
gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt;
gt; Just change quot;A1:A100quot; to whatever range you want.
gt;
gt; gt;I have pasted into sheet tab do I just close the window or save somehow?
gt;
gt; After you paste the code you just close the VBE (click the quot;Xquot;)
gt;
gt; Now, when you select a cell in the defined range a checkmark will appear.
gt; Select that cell again and the checkmark will be removed.
gt;
gt; To use that in an IF formula you might do something like this (based on the
gt; cell having the checkmark):
gt;
gt; =IF(LEN(A1),do_something,do_something_else)
gt;
gt; Biff
gt;
gt; quot;Tiddlerquot; gt; wrote in message
gt; ...
gt; gt; Thanks I think? Which section of code refers to quot;tick boxquot; location and
gt; gt; once
gt; gt; I have pasted into sheet tab do I just close the window or save somehow?
gt; gt;
gt; gt; Sorry but I 'm fairly new to excel and probably in way to deep thanks for
gt; gt; your help
gt; gt; Matt
gt; gt;
gt; gt; quot;Biffquot; wrote:
gt; gt;
gt; gt;gt; Slight typo:
gt; gt;gt;
gt; gt;gt; gt;This is sheet code.
gt; gt;gt; gt;Right click the sheet tab and paste into the window that opens.
gt; gt;gt;
gt; gt;gt; Should be:
gt; gt;gt;
gt; gt;gt; Right click the sheet tab and select View Code. Then paste the code into
gt; gt;gt; the
gt; gt;gt; window that opens.
gt; gt;gt;
gt; gt;gt; Biff
gt; gt;gt;
gt; gt;gt; quot;Biffquot; gt; wrote in message
gt; gt;gt; ...
gt; gt;gt; gt; Hi!
gt; gt;gt; gt;
gt; gt;gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that does
gt; gt;gt; gt; what you want:
gt; gt;gt; gt;
gt; gt;gt; gt; This procedure let's you click on a cell in a range (defined in the
gt; gt;gt; gt; code)
gt; gt;gt; gt; and places a quot;checkmarkquot; in
gt; gt;gt; gt; that cell.
gt; gt;gt; gt;
gt; gt;gt; gt;
gt; gt;gt; gt; Option Explicit
gt; gt;gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt; gt;gt; gt; Dim myHeight As Double
gt; gt;gt; gt; Application.EnableEvents = False
gt; gt;gt; gt; On Error GoTo sub_exit
gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; gt;gt; gt; With Target
gt; gt;gt; gt; If .Value = quot;aquot; Then
gt; gt;gt; gt; .Value = quot;quot;
gt; gt;gt; gt; Else
gt; gt;gt; gt; myHeight = .EntireRow.RowHeight
gt; gt;gt; gt; .Value = quot;aquot;
gt; gt;gt; gt; .Font.Name = quot;Marlettquot;
gt; gt;gt; gt; .EntireRow.RowHeight = myHeight
gt; gt;gt; gt; End If
gt; gt;gt; gt; End With
gt; gt;gt; gt; End If
gt; gt;gt; gt; sub_exit:
gt; gt;gt; gt; Application.EnableEvents = True
gt; gt;gt; gt; End Sub
gt; gt;gt; gt;
gt; gt;gt; gt;
gt; gt;gt; gt;
gt; gt;gt; gt; This is sheet code.
gt; gt;gt; gt; Right click the sheet tab and paste into the window that opens.
gt; gt;gt; gt;
gt; gt;gt; gt; Then, to use the checkmark in an IF formula you simply need to test the
gt; gt;gt; gt; cell to see if it's empty or not.
gt; gt;gt; gt;
gt; gt;gt; gt; Biff
gt; gt;gt; gt;
gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt; gt;gt; gt; ...
gt; gt;gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt; gt;gt; gt;gt;
gt; gt;gt; gt;gt; I would like to left cliick on the mouse in a cell (to put tick in)
gt; gt;gt; gt;gt; and
gt; gt;gt; gt;gt; then
gt; gt;gt; gt;gt; use this tick in a IF statement on another.
gt; gt;gt; gt;gt;
gt; gt;gt; gt;gt; Thnaks again Matt
gt; gt;gt; gt;
gt; gt;gt; gt;
gt; gt;gt;
gt; gt;gt;
gt; gt;gt;
gt;
gt;
gt;

Ok was being silly have narrowed the range and all is fine, would still like
a way to only tick one box at a time though.
thanks

quot;Tiddlerquot; wrote:

gt; EXCELLENT i GOT IT WORKING IN COLUMN N BUT WOULD LIKE TO NARROW THAT DOWN TO
gt; N11-N14.
gt; CAN NARROW DOWN TO N14 bUT N1-10 CAN STILL BE TICKED
gt; (opps sorry about caps)
gt;
gt; Also is it possable to allow only one tick at a time
gt;
gt; Thanks So far keep it coming
gt; Matt
gt;
gt; quot;Biffquot; wrote:
gt;
gt; gt; gt;Which section of code refers to quot;tick boxquot; location
gt; gt;
gt; gt; This line:
gt; gt;
gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; gt;
gt; gt; Just change quot;A1:A100quot; to whatever range you want.
gt; gt;
gt; gt; gt;I have pasted into sheet tab do I just close the window or save somehow?
gt; gt;
gt; gt; After you paste the code you just close the VBE (click the quot;Xquot;)
gt; gt;
gt; gt; Now, when you select a cell in the defined range a checkmark will appear.
gt; gt; Select that cell again and the checkmark will be removed.
gt; gt;
gt; gt; To use that in an IF formula you might do something like this (based on the
gt; gt; cell having the checkmark):
gt; gt;
gt; gt; =IF(LEN(A1),do_something,do_something_else)
gt; gt;
gt; gt; Biff
gt; gt;
gt; gt; quot;Tiddlerquot; gt; wrote in message
gt; gt; ...
gt; gt; gt; Thanks I think? Which section of code refers to quot;tick boxquot; location and
gt; gt; gt; once
gt; gt; gt; I have pasted into sheet tab do I just close the window or save somehow?
gt; gt; gt;
gt; gt; gt; Sorry but I 'm fairly new to excel and probably in way to deep thanks for
gt; gt; gt; your help
gt; gt; gt; Matt
gt; gt; gt;
gt; gt; gt; quot;Biffquot; wrote:
gt; gt; gt;
gt; gt; gt;gt; Slight typo:
gt; gt; gt;gt;
gt; gt; gt;gt; gt;This is sheet code.
gt; gt; gt;gt; gt;Right click the sheet tab and paste into the window that opens.
gt; gt; gt;gt;
gt; gt; gt;gt; Should be:
gt; gt; gt;gt;
gt; gt; gt;gt; Right click the sheet tab and select View Code. Then paste the code into
gt; gt; gt;gt; the
gt; gt; gt;gt; window that opens.
gt; gt; gt;gt;
gt; gt; gt;gt; Biff
gt; gt; gt;gt;
gt; gt; gt;gt; quot;Biffquot; gt; wrote in message
gt; gt; gt;gt; ...
gt; gt; gt;gt; gt; Hi!
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that does
gt; gt; gt;gt; gt; what you want:
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; This procedure let's you click on a cell in a range (defined in the
gt; gt; gt;gt; gt; code)
gt; gt; gt;gt; gt; and places a quot;checkmarkquot; in
gt; gt; gt;gt; gt; that cell.
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; Option Explicit
gt; gt; gt;gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt; gt; gt;gt; gt; Dim myHeight As Double
gt; gt; gt;gt; gt; Application.EnableEvents = False
gt; gt; gt;gt; gt; On Error GoTo sub_exit
gt; gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; gt; gt;gt; gt; With Target
gt; gt; gt;gt; gt; If .Value = quot;aquot; Then
gt; gt; gt;gt; gt; .Value = quot;quot;
gt; gt; gt;gt; gt; Else
gt; gt; gt;gt; gt; myHeight = .EntireRow.RowHeight
gt; gt; gt;gt; gt; .Value = quot;aquot;
gt; gt; gt;gt; gt; .Font.Name = quot;Marlettquot;
gt; gt; gt;gt; gt; .EntireRow.RowHeight = myHeight
gt; gt; gt;gt; gt; End If
gt; gt; gt;gt; gt; End With
gt; gt; gt;gt; gt; End If
gt; gt; gt;gt; gt; sub_exit:
gt; gt; gt;gt; gt; Application.EnableEvents = True
gt; gt; gt;gt; gt; End Sub
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; This is sheet code.
gt; gt; gt;gt; gt; Right click the sheet tab and paste into the window that opens.
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; Then, to use the checkmark in an IF formula you simply need to test the
gt; gt; gt;gt; gt; cell to see if it's empty or not.
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; Biff
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt; gt; gt;gt; gt; ...
gt; gt; gt;gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt; gt; gt;gt; gt;gt;
gt; gt; gt;gt; gt;gt; I would like to left cliick on the mouse in a cell (to put tick in)
gt; gt; gt;gt; gt;gt; and
gt; gt; gt;gt; gt;gt; then
gt; gt; gt;gt; gt;gt; use this tick in a IF statement on another.
gt; gt; gt;gt; gt;gt;
gt; gt; gt;gt; gt;gt; Thnaks again Matt
gt; gt; gt;gt; gt;
gt; gt; gt;gt; gt;
gt; gt; gt;gt;
gt; gt; gt;gt;
gt; gt; gt;gt;
gt; gt;
gt; gt;
gt; gt;

gt;would still like a way to only tick one box at a time though.

Ok, that greatly complicates things!

If that is your goal, to only be able to select one quot;checkboxquot; (cell with a
tick mark) in the range N11:N14, then I would use option buttons. Only one
option button can be selected at any time. To do this is completely
different from what you have done so far.

The first thing you would want to do is to delete that sheet code.

Right click the sheet tab and select View Code.
In the VBE, goto Editgt;Select All
Then Editgt;Clear
Then close the VBE

Now, setup the option buttons:

Back in the Excel worksheet:

Right click any toolbar
Select Forms
The Forms toolbar should appear
The option button is the one with the black dot in the middle of a quot;circlequot;
Click on that then move your cursor to cell N11
Left click and the option button is quot;droppedquot; in that location
Now, adjust the size and placement to get it exactly where you want it

Repeat the process for cells N12, N13 and N14.

Now, if you want to use the status of which option button is selected as a
condition in a formula:

You have to link the option buttons to a cell:

Right click any option button
Select Format Control
In the Cell Link box enter a cell location. Whenever an option button is
selected, the linked cell will tell you which button is selected. It will
display the number of which button is selected.

Then you can base your formula on the value of that linked cell.

If you get quot;lostquot; and would like me to do this for you just let me know how
to contact you.

Biff

quot;Tiddlerquot; gt; wrote in message
...
gt; Ok was being silly have narrowed the range and all is fine, would still
gt; like
gt; a way to only tick one box at a time though.
gt; thanks
gt;
gt; quot;Tiddlerquot; wrote:
gt;
gt;gt; EXCELLENT i GOT IT WORKING IN COLUMN N BUT WOULD LIKE TO NARROW THAT DOWN
gt;gt; TO
gt;gt; N11-N14.
gt;gt; CAN NARROW DOWN TO N14 bUT N1-10 CAN STILL BE TICKED
gt;gt; (opps sorry about caps)
gt;gt;
gt;gt; Also is it possable to allow only one tick at a time
gt;gt;
gt;gt; Thanks So far keep it coming
gt;gt; Matt
gt;gt;
gt;gt; quot;Biffquot; wrote:
gt;gt;
gt;gt; gt; gt;Which section of code refers to quot;tick boxquot; location
gt;gt; gt;
gt;gt; gt; This line:
gt;gt; gt;
gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt;gt; gt;
gt;gt; gt; Just change quot;A1:A100quot; to whatever range you want.
gt;gt; gt;
gt;gt; gt; gt;I have pasted into sheet tab do I just close the window or save
gt;gt; gt; gt;somehow?
gt;gt; gt;
gt;gt; gt; After you paste the code you just close the VBE (click the quot;Xquot;)
gt;gt; gt;
gt;gt; gt; Now, when you select a cell in the defined range a checkmark will
gt;gt; gt; appear.
gt;gt; gt; Select that cell again and the checkmark will be removed.
gt;gt; gt;
gt;gt; gt; To use that in an IF formula you might do something like this (based on
gt;gt; gt; the
gt;gt; gt; cell having the checkmark):
gt;gt; gt;
gt;gt; gt; =IF(LEN(A1),do_something,do_something_else)
gt;gt; gt;
gt;gt; gt; Biff
gt;gt; gt;
gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt;gt; gt; ...
gt;gt; gt; gt; Thanks I think? Which section of code refers to quot;tick boxquot; location
gt;gt; gt; gt; and
gt;gt; gt; gt; once
gt;gt; gt; gt; I have pasted into sheet tab do I just close the window or save
gt;gt; gt; gt; somehow?
gt;gt; gt; gt;
gt;gt; gt; gt; Sorry but I 'm fairly new to excel and probably in way to deep thanks
gt;gt; gt; gt; for
gt;gt; gt; gt; your help
gt;gt; gt; gt; Matt
gt;gt; gt; gt;
gt;gt; gt; gt; quot;Biffquot; wrote:
gt;gt; gt; gt;
gt;gt; gt; gt;gt; Slight typo:
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt; gt;This is sheet code.
gt;gt; gt; gt;gt; gt;Right click the sheet tab and paste into the window that opens.
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt; Should be:
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt; Right click the sheet tab and select View Code. Then paste the code
gt;gt; gt; gt;gt; into
gt;gt; gt; gt;gt; the
gt;gt; gt; gt;gt; window that opens.
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt; Biff
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt; quot;Biffquot; gt; wrote in message
gt;gt; gt; gt;gt; ...
gt;gt; gt; gt;gt; gt; Hi!
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that
gt;gt; gt; gt;gt; gt; does
gt;gt; gt; gt;gt; gt; what you want:
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; This procedure let's you click on a cell in a range (defined in
gt;gt; gt; gt;gt; gt; the
gt;gt; gt; gt;gt; gt; code)
gt;gt; gt; gt;gt; gt; and places a quot;checkmarkquot; in
gt;gt; gt; gt;gt; gt; that cell.
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; Option Explicit
gt;gt; gt; gt;gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt;gt; gt; gt;gt; gt; Dim myHeight As Double
gt;gt; gt; gt;gt; gt; Application.EnableEvents = False
gt;gt; gt; gt;gt; gt; On Error GoTo sub_exit
gt;gt; gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt;gt; gt; gt;gt; gt; With Target
gt;gt; gt; gt;gt; gt; If .Value = quot;aquot; Then
gt;gt; gt; gt;gt; gt; .Value = quot;quot;
gt;gt; gt; gt;gt; gt; Else
gt;gt; gt; gt;gt; gt; myHeight = .EntireRow.RowHeight
gt;gt; gt; gt;gt; gt; .Value = quot;aquot;
gt;gt; gt; gt;gt; gt; .Font.Name = quot;Marlettquot;
gt;gt; gt; gt;gt; gt; .EntireRow.RowHeight = myHeight
gt;gt; gt; gt;gt; gt; End If
gt;gt; gt; gt;gt; gt; End With
gt;gt; gt; gt;gt; gt; End If
gt;gt; gt; gt;gt; gt; sub_exit:
gt;gt; gt; gt;gt; gt; Application.EnableEvents = True
gt;gt; gt; gt;gt; gt; End Sub
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; This is sheet code.
gt;gt; gt; gt;gt; gt; Right click the sheet tab and paste into the window that opens.
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; Then, to use the checkmark in an IF formula you simply need to
gt;gt; gt; gt;gt; gt; test the
gt;gt; gt; gt;gt; gt; cell to see if it's empty or not.
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; Biff
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt;gt; gt; gt;gt; gt; ...
gt;gt; gt; gt;gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt;gt; gt; gt;gt; gt;gt;
gt;gt; gt; gt;gt; gt;gt; I would like to left cliick on the mouse in a cell (to put tick
gt;gt; gt; gt;gt; gt;gt; in)
gt;gt; gt; gt;gt; gt;gt; and
gt;gt; gt; gt;gt; gt;gt; then
gt;gt; gt; gt;gt; gt;gt; use this tick in a IF statement on another.
gt;gt; gt; gt;gt; gt;gt;
gt;gt; gt; gt;gt; gt;gt; Thnaks again Matt
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt; gt;
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt;
gt;gt; gt; gt;gt;
gt;gt; gt;
gt;gt; gt;
gt;gt; gt;
All sorted ou tnow thanks for the help!

One Last Question

I wish to Protect My work as it has taken a lot of effort to get it just
right.
Over the 2 padges of my spread sheet there is only maybe 12 cell that have
veriable data (i.e user entry)

How can I protect all but these cells including the option buttons?

Also it is possable to disable the save option? on just this document???

Many thanks agian Matt
quot;Biffquot; wrote:

gt; gt;would still like a way to only tick one box at a time though.
gt;
gt; Ok, that greatly complicates things!
gt;
gt; If that is your goal, to only be able to select one quot;checkboxquot; (cell with a
gt; tick mark) in the range N11:N14, then I would use option buttons. Only one
gt; option button can be selected at any time. To do this is completely
gt; different from what you have done so far.
gt;
gt; The first thing you would want to do is to delete that sheet code.
gt;
gt; Right click the sheet tab and select View Code.
gt; In the VBE, goto Editgt;Select All
gt; Then Editgt;Clear
gt; Then close the VBE
gt;
gt; Now, setup the option buttons:
gt;
gt; Back in the Excel worksheet:
gt;
gt; Right click any toolbar
gt; Select Forms
gt; The Forms toolbar should appear
gt; The option button is the one with the black dot in the middle of a quot;circlequot;
gt; Click on that then move your cursor to cell N11
gt; Left click and the option button is quot;droppedquot; in that location
gt; Now, adjust the size and placement to get it exactly where you want it
gt;
gt; Repeat the process for cells N12, N13 and N14.
gt;
gt; Now, if you want to use the status of which option button is selected as a
gt; condition in a formula:
gt;
gt; You have to link the option buttons to a cell:
gt;
gt; Right click any option button
gt; Select Format Control
gt; In the Cell Link box enter a cell location. Whenever an option button is
gt; selected, the linked cell will tell you which button is selected. It will
gt; display the number of which button is selected.
gt;
gt; Then you can base your formula on the value of that linked cell.
gt;
gt; If you get quot;lostquot; and would like me to do this for you just let me know how
gt; to contact you.
gt;
gt; Biff
gt;
gt; quot;Tiddlerquot; gt; wrote in message
gt; ...
gt; gt; Ok was being silly have narrowed the range and all is fine, would still
gt; gt; like
gt; gt; a way to only tick one box at a time though.
gt; gt; thanks
gt; gt;
gt; gt; quot;Tiddlerquot; wrote:
gt; gt;
gt; gt;gt; EXCELLENT i GOT IT WORKING IN COLUMN N BUT WOULD LIKE TO NARROW THAT DOWN
gt; gt;gt; TO
gt; gt;gt; N11-N14.
gt; gt;gt; CAN NARROW DOWN TO N14 bUT N1-10 CAN STILL BE TICKED
gt; gt;gt; (opps sorry about caps)
gt; gt;gt;
gt; gt;gt; Also is it possable to allow only one tick at a time
gt; gt;gt;
gt; gt;gt; Thanks So far keep it coming
gt; gt;gt; Matt
gt; gt;gt;
gt; gt;gt; quot;Biffquot; wrote:
gt; gt;gt;
gt; gt;gt; gt; gt;Which section of code refers to quot;tick boxquot; location
gt; gt;gt; gt;
gt; gt;gt; gt; This line:
gt; gt;gt; gt;
gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; gt;gt; gt;
gt; gt;gt; gt; Just change quot;A1:A100quot; to whatever range you want.
gt; gt;gt; gt;
gt; gt;gt; gt; gt;I have pasted into sheet tab do I just close the window or save
gt; gt;gt; gt; gt;somehow?
gt; gt;gt; gt;
gt; gt;gt; gt; After you paste the code you just close the VBE (click the quot;Xquot;)
gt; gt;gt; gt;
gt; gt;gt; gt; Now, when you select a cell in the defined range a checkmark will
gt; gt;gt; gt; appear.
gt; gt;gt; gt; Select that cell again and the checkmark will be removed.
gt; gt;gt; gt;
gt; gt;gt; gt; To use that in an IF formula you might do something like this (based on
gt; gt;gt; gt; the
gt; gt;gt; gt; cell having the checkmark):
gt; gt;gt; gt;
gt; gt;gt; gt; =IF(LEN(A1),do_something,do_something_else)
gt; gt;gt; gt;
gt; gt;gt; gt; Biff
gt; gt;gt; gt;
gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt; gt;gt; gt; ...
gt; gt;gt; gt; gt; Thanks I think? Which section of code refers to quot;tick boxquot; location
gt; gt;gt; gt; gt; and
gt; gt;gt; gt; gt; once
gt; gt;gt; gt; gt; I have pasted into sheet tab do I just close the window or save
gt; gt;gt; gt; gt; somehow?
gt; gt;gt; gt; gt;
gt; gt;gt; gt; gt; Sorry but I 'm fairly new to excel and probably in way to deep thanks
gt; gt;gt; gt; gt; for
gt; gt;gt; gt; gt; your help
gt; gt;gt; gt; gt; Matt
gt; gt;gt; gt; gt;
gt; gt;gt; gt; gt; quot;Biffquot; wrote:
gt; gt;gt; gt; gt;
gt; gt;gt; gt; gt;gt; Slight typo:
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt; gt;This is sheet code.
gt; gt;gt; gt; gt;gt; gt;Right click the sheet tab and paste into the window that opens.
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt; Should be:
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt; Right click the sheet tab and select View Code. Then paste the code
gt; gt;gt; gt; gt;gt; into
gt; gt;gt; gt; gt;gt; the
gt; gt;gt; gt; gt;gt; window that opens.
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt; Biff
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt; quot;Biffquot; gt; wrote in message
gt; gt;gt; gt; gt;gt; ...
gt; gt;gt; gt; gt;gt; gt; Hi!
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson that
gt; gt;gt; gt; gt;gt; gt; does
gt; gt;gt; gt; gt;gt; gt; what you want:
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; This procedure let's you click on a cell in a range (defined in
gt; gt;gt; gt; gt;gt; gt; the
gt; gt;gt; gt; gt;gt; gt; code)
gt; gt;gt; gt; gt;gt; gt; and places a quot;checkmarkquot; in
gt; gt;gt; gt; gt;gt; gt; that cell.
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; Option Explicit
gt; gt;gt; gt; gt;gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt; gt;gt; gt; gt;gt; gt; Dim myHeight As Double
gt; gt;gt; gt; gt;gt; gt; Application.EnableEvents = False
gt; gt;gt; gt; gt;gt; gt; On Error GoTo sub_exit
gt; gt;gt; gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt; gt;gt; gt; gt;gt; gt; With Target
gt; gt;gt; gt; gt;gt; gt; If .Value = quot;aquot; Then
gt; gt;gt; gt; gt;gt; gt; .Value = quot;quot;
gt; gt;gt; gt; gt;gt; gt; Else
gt; gt;gt; gt; gt;gt; gt; myHeight = .EntireRow.RowHeight
gt; gt;gt; gt; gt;gt; gt; .Value = quot;aquot;
gt; gt;gt; gt; gt;gt; gt; .Font.Name = quot;Marlettquot;
gt; gt;gt; gt; gt;gt; gt; .EntireRow.RowHeight = myHeight
gt; gt;gt; gt; gt;gt; gt; End If
gt; gt;gt; gt; gt;gt; gt; End With
gt; gt;gt; gt; gt;gt; gt; End If
gt; gt;gt; gt; gt;gt; gt; sub_exit:
gt; gt;gt; gt; gt;gt; gt; Application.EnableEvents = True
gt; gt;gt; gt; gt;gt; gt; End Sub
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; This is sheet code.
gt; gt;gt; gt; gt;gt; gt; Right click the sheet tab and paste into the window that opens.
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; Then, to use the checkmark in an IF formula you simply need to
gt; gt;gt; gt; gt;gt; gt; test the
gt; gt;gt; gt; gt;gt; gt; cell to see if it's empty or not.
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; Biff
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt; gt;gt; gt; gt;gt; gt; ...
gt; gt;gt; gt; gt;gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt; gt;gt; gt; gt;gt; gt;gt;
gt; gt;gt; gt; gt;gt; gt;gt; I would like to left cliick on the mouse in a cell (to put tick
gt; gt;gt; gt; gt;gt; gt;gt; in)
gt; gt;gt; gt; gt;gt; gt;gt; and
gt; gt;gt; gt; gt;gt; gt;gt; then
gt; gt;gt; gt; gt;gt; gt;gt; use this tick in a IF statement on another.
gt; gt;gt; gt; gt;gt; gt;gt;
gt; gt;gt; gt; gt;gt; gt;gt; Thnaks again Matt
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt; gt;
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt; gt;gt;
gt; gt;gt; gt;
gt; gt;gt; gt;
gt; gt;gt; gt;
gt;
gt;
gt;

Hi!

If you used the option buttons:

Right click each button
Select Format Control
Protection tab
Make sure Locked is selected

Now, to protect the worksheet:

Select the entire sheet
Goto Formatgt;Cells
Protection tab
Make sure Locked is selected
OK

Now, select the cells that you want the users to be able to enter data in
*AND* the linked cell for the option buttons.
Goto Formatgt;Cells
Protection tab
Uncheck Locked
OK

Goto Toolsgt;Protectiongt;Protect Sheet

Depending on which version of Excel you are using, there will be various
options for setting protection. Choose the ones you want.

gt; Also it is possable to disable the save option? on just this document???

That would require more VBA programming. I don't know how to do that
specifically so you should ask that question in a new post.

Biff

quot;Tiddlerquot; gt; wrote in message
...
gt; All sorted ou tnow thanks for the help!
gt;
gt; One Last Question
gt;
gt; I wish to Protect My work as it has taken a lot of effort to get it just
gt; right.
gt; Over the 2 padges of my spread sheet there is only maybe 12 cell that have
gt; veriable data (i.e user entry)
gt;
gt; How can I protect all but these cells including the option buttons?
gt;
gt; Also it is possable to disable the save option? on just this document???
gt;
gt; Many thanks agian Matt
gt; quot;Biffquot; wrote:
gt;
gt;gt; gt;would still like a way to only tick one box at a time though.
gt;gt;
gt;gt; Ok, that greatly complicates things!
gt;gt;
gt;gt; If that is your goal, to only be able to select one quot;checkboxquot; (cell with
gt;gt; a
gt;gt; tick mark) in the range N11:N14, then I would use option buttons. Only
gt;gt; one
gt;gt; option button can be selected at any time. To do this is completely
gt;gt; different from what you have done so far.
gt;gt;
gt;gt; The first thing you would want to do is to delete that sheet code.
gt;gt;
gt;gt; Right click the sheet tab and select View Code.
gt;gt; In the VBE, goto Editgt;Select All
gt;gt; Then Editgt;Clear
gt;gt; Then close the VBE
gt;gt;
gt;gt; Now, setup the option buttons:
gt;gt;
gt;gt; Back in the Excel worksheet:
gt;gt;
gt;gt; Right click any toolbar
gt;gt; Select Forms
gt;gt; The Forms toolbar should appear
gt;gt; The option button is the one with the black dot in the middle of a
gt;gt; quot;circlequot;
gt;gt; Click on that then move your cursor to cell N11
gt;gt; Left click and the option button is quot;droppedquot; in that location
gt;gt; Now, adjust the size and placement to get it exactly where you want it
gt;gt;
gt;gt; Repeat the process for cells N12, N13 and N14.
gt;gt;
gt;gt; Now, if you want to use the status of which option button is selected as
gt;gt; a
gt;gt; condition in a formula:
gt;gt;
gt;gt; You have to link the option buttons to a cell:
gt;gt;
gt;gt; Right click any option button
gt;gt; Select Format Control
gt;gt; In the Cell Link box enter a cell location. Whenever an option button is
gt;gt; selected, the linked cell will tell you which button is selected. It will
gt;gt; display the number of which button is selected.
gt;gt;
gt;gt; Then you can base your formula on the value of that linked cell.
gt;gt;
gt;gt; If you get quot;lostquot; and would like me to do this for you just let me know
gt;gt; how
gt;gt; to contact you.
gt;gt;
gt;gt; Biff
gt;gt;
gt;gt; quot;Tiddlerquot; gt; wrote in message
gt;gt; ...
gt;gt; gt; Ok was being silly have narrowed the range and all is fine, would still
gt;gt; gt; like
gt;gt; gt; a way to only tick one box at a time though.
gt;gt; gt; thanks
gt;gt; gt;
gt;gt; gt; quot;Tiddlerquot; wrote:
gt;gt; gt;
gt;gt; gt;gt; EXCELLENT i GOT IT WORKING IN COLUMN N BUT WOULD LIKE TO NARROW THAT
gt;gt; gt;gt; DOWN
gt;gt; gt;gt; TO
gt;gt; gt;gt; N11-N14.
gt;gt; gt;gt; CAN NARROW DOWN TO N14 bUT N1-10 CAN STILL BE TICKED
gt;gt; gt;gt; (opps sorry about caps)
gt;gt; gt;gt;
gt;gt; gt;gt; Also is it possable to allow only one tick at a time
gt;gt; gt;gt;
gt;gt; gt;gt; Thanks So far keep it coming
gt;gt; gt;gt; Matt
gt;gt; gt;gt;
gt;gt; gt;gt; quot;Biffquot; wrote:
gt;gt; gt;gt;
gt;gt; gt;gt; gt; gt;Which section of code refers to quot;tick boxquot; location
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; This line:
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; Just change quot;A1:A100quot; to whatever range you want.
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;I have pasted into sheet tab do I just close the window or save
gt;gt; gt;gt; gt; gt;somehow?
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; After you paste the code you just close the VBE (click the quot;Xquot;)
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; Now, when you select a cell in the defined range a checkmark will
gt;gt; gt;gt; gt; appear.
gt;gt; gt;gt; gt; Select that cell again and the checkmark will be removed.
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; To use that in an IF formula you might do something like this (based
gt;gt; gt;gt; gt; on
gt;gt; gt;gt; gt; the
gt;gt; gt;gt; gt; cell having the checkmark):
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; =IF(LEN(A1),do_something,do_something_else)
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; Biff
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt;gt; gt;gt; gt; ...
gt;gt; gt;gt; gt; gt; Thanks I think? Which section of code refers to quot;tick boxquot;
gt;gt; gt;gt; gt; gt; location
gt;gt; gt;gt; gt; gt; and
gt;gt; gt;gt; gt; gt; once
gt;gt; gt;gt; gt; gt; I have pasted into sheet tab do I just close the window or save
gt;gt; gt;gt; gt; gt; somehow?
gt;gt; gt;gt; gt; gt;
gt;gt; gt;gt; gt; gt; Sorry but I 'm fairly new to excel and probably in way to deep
gt;gt; gt;gt; gt; gt; thanks
gt;gt; gt;gt; gt; gt; for
gt;gt; gt;gt; gt; gt; your help
gt;gt; gt;gt; gt; gt; Matt
gt;gt; gt;gt; gt; gt;
gt;gt; gt;gt; gt; gt; quot;Biffquot; wrote:
gt;gt; gt;gt; gt; gt;
gt;gt; gt;gt; gt; gt;gt; Slight typo:
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; gt;This is sheet code.
gt;gt; gt;gt; gt; gt;gt; gt;Right click the sheet tab and paste into the window that opens.
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; Should be:
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; Right click the sheet tab and select View Code. Then paste the
gt;gt; gt;gt; gt; gt;gt; code
gt;gt; gt;gt; gt; gt;gt; into
gt;gt; gt;gt; gt; gt;gt; the
gt;gt; gt;gt; gt; gt;gt; window that opens.
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; Biff
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; quot;Biffquot; gt; wrote in message
gt;gt; gt;gt; gt; gt;gt; ...
gt;gt; gt;gt; gt; gt;gt; gt; Hi!
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; Here's some code by Bob Phillips and tweaked by Dave Peterson
gt;gt; gt;gt; gt; gt;gt; gt; that
gt;gt; gt;gt; gt; gt;gt; gt; does
gt;gt; gt;gt; gt; gt;gt; gt; what you want:
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; This procedure let's you click on a cell in a range (defined in
gt;gt; gt;gt; gt; gt;gt; gt; the
gt;gt; gt;gt; gt; gt;gt; gt; code)
gt;gt; gt;gt; gt; gt;gt; gt; and places a quot;checkmarkquot; in
gt;gt; gt;gt; gt; gt;gt; gt; that cell.
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; Option Explicit
gt;gt; gt;gt; gt; gt;gt; gt; Private Sub Worksheet_SelectionChange(ByVal Target As Range)
gt;gt; gt;gt; gt; gt;gt; gt; Dim myHeight As Double
gt;gt; gt;gt; gt; gt;gt; gt; Application.EnableEvents = False
gt;gt; gt;gt; gt; gt;gt; gt; On Error GoTo sub_exit
gt;gt; gt;gt; gt; gt;gt; gt; If Not Intersect(Target, Range(quot;A1:A100quot;)) Is Nothing Then
gt;gt; gt;gt; gt; gt;gt; gt; With Target
gt;gt; gt;gt; gt; gt;gt; gt; If .Value = quot;aquot; Then
gt;gt; gt;gt; gt; gt;gt; gt; .Value = quot;quot;
gt;gt; gt;gt; gt; gt;gt; gt; Else
gt;gt; gt;gt; gt; gt;gt; gt; myHeight = .EntireRow.RowHeight
gt;gt; gt;gt; gt; gt;gt; gt; .Value = quot;aquot;
gt;gt; gt;gt; gt; gt;gt; gt; .Font.Name = quot;Marlettquot;
gt;gt; gt;gt; gt; gt;gt; gt; .EntireRow.RowHeight = myHeight
gt;gt; gt;gt; gt; gt;gt; gt; End If
gt;gt; gt;gt; gt; gt;gt; gt; End With
gt;gt; gt;gt; gt; gt;gt; gt; End If
gt;gt; gt;gt; gt; gt;gt; gt; sub_exit:
gt;gt; gt;gt; gt; gt;gt; gt; Application.EnableEvents = True
gt;gt; gt;gt; gt; gt;gt; gt; End Sub
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; This is sheet code.
gt;gt; gt;gt; gt; gt;gt; gt; Right click the sheet tab and paste into the window that opens.
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; Then, to use the checkmark in an IF formula you simply need to
gt;gt; gt;gt; gt; gt;gt; gt; test the
gt;gt; gt;gt; gt; gt;gt; gt; cell to see if it's empty or not.
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; Biff
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt; quot;Tiddlerquot; gt; wrote in message
gt;gt; gt;gt; gt; gt;gt; gt; ...
gt;gt; gt;gt; gt; gt;gt; gt;gt; Hi can anyone explain (if possible) how to set up a tick box?
gt;gt; gt;gt; gt; gt;gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; gt;gt; I would like to left cliick on the mouse in a cell (to put
gt;gt; gt;gt; gt; gt;gt; gt;gt; tick
gt;gt; gt;gt; gt; gt;gt; gt;gt; in)
gt;gt; gt;gt; gt; gt;gt; gt;gt; and
gt;gt; gt;gt; gt; gt;gt; gt;gt; then
gt;gt; gt;gt; gt; gt;gt; gt;gt; use this tick in a IF statement on another.
gt;gt; gt;gt; gt; gt;gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt; gt;gt; Thnaks again Matt
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt; gt;
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt; gt;gt;
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt;
gt;gt; gt;gt; gt;
gt;gt;
gt;gt;
gt;gt;