Re: Two double click events?

Tech-Archive recommends: Speed Up your PC by fixing your registry

Yes, it does appear that you and Jim posted at the same. time. My confusion
was that Jim's appeared to me long before yours did. One of those little
gotcha's with the way NNTP propogates. Anyway, I thought you were
recommending a change to his second post.

--
Regards,
Tom Ogilvy

"GS" <GS@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:3310C2C5-EB18-40C1-A7DD-93289C9ABE75@xxxxxxxxxxxxxxxx
Hi Tom,

Yes, I did mean his original post. Seems we posted identical replies
simultaneously.
I thought you were referring to the "Select Case" omission, but I see I
also
made the same error in my "Then" statement. "Target = Date" s/b
"Target.Value
= Date". As a point of interest, I tested it the same way as posted. It
worked just fine, but I confess it was rather bad form on my part. Usually
I'm quite explicit in my code.

Regards,
GS

"Tom Ogilvy" wrote:

just an added thought.

Unless by replace Jim's code you mean his original post in the original
thread rather than his post in this thread whch seems almost identical
to
yours.

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

--
Regards,
Tom Ogilvy

"GS" <GS@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:7F09F9F5-0F42-41A8-983C-87D7BDB498C3@xxxxxxxxxxxxxxxx
Thanks for noticing, Tom!
I didn't remove it, ..I stopped typing to copy/paste so I guess I
omitted
it. There is no significance or merit in removing it!

Regards,
GS

"Tom Ogilvy" wrote:

Why. I don't see any merit in removing VALUE. What is the
significance.

--
Regards,
Tom Ogilvy

"GS" <GS@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:91E5339C-BE54-4B44-98BE-FDF3D314AD2A@xxxxxxxxxxxxxxxx
Hi,

Revise Jim's code as follows:

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

Cancel = True
If Target.Row = 1 Then
Target = Date
Else
Select Case Target
Case Empty
Target.Value = "x"
Case "x"
Target.Value = "xx"
Case "xx"
Target.Value = 15
End Select
End If

End Sub

Regards,
GS

"PG Oriel" wrote:

Hi...

I have been given some advice to use a double click event to
change
my
cells
contents which works brilliantly.

Is there a way to get another double click event to work for
some
specific
cells in the same ***'s code? Such as the inserting the day's
date
into a
cell in the top row when I double click? ... Whilst ensuring the
remaining
cells do another double click event??

Thanks.








.

Quantcast