View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
ToferKing ToferKing is offline
external usenet poster
 
Posts: 41
Default Click on a cell to get a check mark then...

Well, I think I have the code entered properly. It is in the correct place
Worksheet_BeforeDoubleClick, etc.

But when I double-click on the cells in the target range, the system acts
normal (it wants me to enter something in the cell) and when I right-click on
the range the system acts normal (it pops open a menu box.)

Vasant, what am I doing wrong?

Tofer

"Vasant Nanavati" wrote:

In the worksheet module:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, Range("B3:B8")) Is Nothing Then
If Target = "P" Then
Target = vbNullString
ElseIf Target = vbNullString Then
Target = "P"
Else
End If
End If
End Sub

In the code for the button:

Dim c As Range
For Each c In Range("B3:B8")
If c = "P" Then c.EntireRow.Hidden = True
Next
__________________________________________________ ______________________





"ToferKing" wrote in message
...
Yes, that is acceptable.

It also occured to me that I could place a Checkmark Object in the cells
and
have them check those on and off.

Then I would need help with the code that is attached to the button at the
top of the page that allows the unchecked rows to disappear.

Tofer

"Vasant Nanavati" wrote:

You will need a double-click or a right-click. Is that acceptable?
__________________________________________________ _____________________

"ToferKing" wrote in message
...
I need to attach some Visual Basic code to a group of cells so the
following
will happen.

The group of cells is going to be named ClickRange. In this example, I
will
say the range corresponds to cells B3 through B8.

When a user left-clicks on B3 or B4 or B5, etc. I would like a check
mark
to
appear. (I am thinking that I need to format those cells to
Wingdings2
and
when a capital P is typed in them, a check mark will show up.)

If a check mark already exists in the cell, I want the left-click to
turn
the check mark off. (I am thinking that the cell.value is deleted.)

Then after the selection process is made by checking the cells on or
off,
I
want to have the user click on a button at the top of the page that
will
hide
all the rows that do not have a check mark.

Can you guys help me out here?

Thanks,

Tofer