excel

D

Dustin Rhoades

im trying to setup my program to be like quicken, im trying to make a cell
put in a mark once i click it with my mouse. if there is anything else you
could tell me that will get me closer to the way quicken has please ill take
any suggestions
 
G

Gordon

Dustin said:
im trying to setup my program to be like quicken, im trying to make a
cell put in a mark once i click it with my mouse. if there is
anything else you could tell me that will get me closer to the way
quicken has please ill take any suggestions
Click to expand...

Use Quicken?
 
B

Biff

Hi!

There are several ways to do this. The easiest:

Use a data validation dropdown list with a "X" as the only
selection.

Next easiest:

Use a checkbox from the FORMS toolbar. This uses the
classic "checkmark" symbol but if you need a lot of them
it can be a PITA getting them all placed and sized in
perfect alignment.

Or, wait for a VBA solution. Someone will probably post
one.

Something else to consider is whether or not you will need
to account for the "marks" like for reconciliation.

Biff
 
D

Dave Peterson

saved from a previous post:

There's nothing that can be done just by clicking.

You could do it based on a doubleclick or rightclick -- but maybe this
alternative will work.

Select your range that should have this behavior (I'm gonna use column A).

Format|Cells|number tab|custom category
In the Type box, put this:
X;X;X;X

Now, anything you type in will look like an X (spacebar, x, Lee, anything!)

And if you want to find out if a cell is an X, you'll have to use something
like:

=if(a1="","nope","Yep")

(hitting the delete key on the keyboard will clear the cell)

Another alternative--if you want something that looks like a checkmark:

Format|Cells|number tab|custom category
In the "type:" box, put this:

alt-0252;alt-0252;alt-0252;alt-0252

But hit and hold the alt key while you're typing the 0252 from the numeric
keypad.

It should look something like this when you're done.
ü;ü;ü;ü
(umlaut over the lower case u separated by semicolons)

And format that range of cells as Wingdings.

All that other stuff still applies.
 
I

IC

Biff said:
Or, wait for a VBA solution. Someone will probably post
one.
Click to expand...
The following code toggles between a tick (Wingdings character 252) and
blank when a cell in the target range is selected.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----- ENABLE TICKS IN RELEVANT BOXES -----
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("N21:R36")) Is Nothing Then
With Target
If .Value = Chr(252) Then
.Value = ""
Else
.Value = Chr(252)
.Font.Name = "Wingdings"
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

Ian
 
Top