Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
Is there a way to add an x in a when you click in a cell in a range like
B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... Is there a way to add an x in a when you click in a cell in a range like B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
I get a syntax error on the intersect. Any idea why?
"Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... Is there a way to add an x in a when you click in a cell in a range like B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
See fixed typo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99")) is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99")) is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... I get a syntax error on the intersect. Any idea why? "Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... Is there a way to add an x in a when you click in a cell in a range like B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
I found it. Thank you for your help! Jeff
"Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... Is there a way to add an x in a when you click in a cell in a range like B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
Mr. Ogilvy,
A different Jeff here. I have been unable to get this to work on a cell that has been merged. Would you please test that and see if that is the case? If so, is there a fix? Thanks! -JEFF- "Tom Ogilvy" wrote: See fixed typo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99")) is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99")) is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... I get a syntax error on the intersect. Any idea why? "Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... Is there a way to add an x in a when you click in a cell in a range like B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click question?
In general,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 And Not Target.MergeCells Then Exit Sub If Not Intersect(Target, Range("B3:G99")) Is Nothing Then Target(1).Value = "x" End If End Sub -- Regards, Tom Ogilvy "-JEFF-" wrote in message ... Mr. Ogilvy, A different Jeff here. I have been unable to get this to work on a cell that has been merged. Would you please test that and see if that is the case? If so, is there a fix? Thanks! -JEFF- "Tom Ogilvy" wrote: See fixed typo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99")) is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99")) is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... I get a syntax error on the intersect. Any idea why? "Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then Target.Value = "x" End if End Sub if you want to toggle the x Private Sub Worksheet_SelectionChange(ByVal Target As Range) if Target.count 1 then exit sub if not Intersect(target,Range("B3:G99") is nothing then if isempty(Target.Value) then Target.Value = "x" else Target.clearContents End if End if End Sub -- Regards, Tom Ogilvy "Jeff" wrote in message ... Is there a way to add an x in a when you click in a cell in a range like B3:G99 only and not the whole sheet? Right now I can do it to the whole sheet with Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = "x" End Sub Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Click on graph bar to execute a double-click in a pivot table cell | Charts and Charting in Excel | |||
Mouse Over Graph, Capture Information on Click(Double Click) | Excel Programming | |||
Click-event question | Excel Programming | |||
Double-click event question, part 2 (Excel 97) | Excel Programming | |||
Double-click Event question | Excel Programming |