Mr. Kabel, Can you help me with this?

L

Lee and Rebecca

Going back to the question about making a cell show an X just by clicking on
it. Can you walk me through the steps with programming the cell to do this.
Came we talk thru reg. e-mail?
[email protected]
thanks.
 
B

Bob Phillips

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
.Offset(0, 1).Select
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
K

kmwhitt

Can anyone help me re-write this so that it only works with doubleclick?

Thanks,

Kevin
 
B

Bernie Deitrick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
.Offset(0, 1).Select
End With
End If
sub_exit:
Application.EnableEvents = True

End Sub

HTH,
Bernie
MS Excel MVP
 
K

kmwhitt

Thanks, Bernie!!!

Bernie Deitrick said:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
.Offset(0, 1).Select
End With
End If
sub_exit:
Application.EnableEvents = True

End Sub

HTH,
Bernie
MS Excel MVP
Click to expand...
 
G

Gord Dibben

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
.Offset(0, 1).Select
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

Note: with the sheet module open select worksheet from the object dialog then
look at the options on procedure dialog.

You would find the doubleclick option


Gord Dibben MS Excel MVP
 
Top