Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change cell value between EMPTY and X when i click on the cell.
Hello,
How can i change the cell value between empty and X when i click on the cell. This is for the cells in column B of all the visible sheets. Can you provide some code please..... Thanxxxx, Luc |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change cell value between EMPTY and X when i click on the cell.
Paste this code into all visable sheets and change the range of B1:B10 to
your needs Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B1:B10")) Is Nothing Then Target.Value = "X" End If End Sub "Luc" wrote: Hello, How can i change the cell value between empty and X when i click on the cell. This is for the cells in column B of all the visible sheets. Can you provide some code please..... Thanxxxx, Luc . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change cell value between EMPTY and X when i click on the cell.
No need to paste Mike's code into all worksheets.
Paste this code once into Thisworkbook module. Private Sub Workbook_SheetSelectionChange _ (ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Range("B1:B10")) Is Nothing Then Target.Value = "X" End If End Sub Covers all sheets. Gord Dibben MS Excel MVP On Thu, 10 Dec 2009 10:54:01 -0800, Mike wrote: Paste this code into all visable sheets and change the range of B1:B10 to your needs Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B1:B10")) Is Nothing Then Target.Value = "X" End If End Sub "Luc" wrote: Hello, How can i change the cell value between empty and X when i click on the cell. This is for the cells in column B of all the visible sheets. Can you provide some code please..... Thanxxxx, Luc . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change cell value between EMPTY and X when i click on the cell.
Thanks guys,
But i also want to change the cell to Empty if the value is "X" and change to "X" if it is empty (a kind of toggle) Luc |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change cell value between EMPTY and X when i click on the cell.
Try it this way then...
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ ByVal Target As Range) If Target.Count 1 Then Exit Sub If Not Intersect(Target, Range("B1:B10")) Is Nothing Then If Target.Value = "" Then Target.Value = "X" Else Target.Value = "" End If End If End Sub -- Rick (MVP - Excel) "Luc" wrote in message ... Thanks guys, But i also want to change the cell to Empty if the value is "X" and change to "X" if it is empty (a kind of toggle) Luc |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change cell value between EMPTY and X when i click on the cell.
Thanks, that really helped me !!
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change Cell colour on click | Excel Discussion (Misc queries) | |||
I need to set pointer to change a cell(s)with 1 click | Excel Worksheet Functions | |||
Right click to change cell values | Excel Programming | |||
Change an empty cell back to a blank cell ... | Excel Programming | |||
Change cell back color on click | Excel Discussion (Misc queries) |