Change cell value between EMPTY and X when i click on the cell.

  • Thread starter Thread starter Luc
  • Start date Start date
L

Luc

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
 
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
 
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
 
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
 
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
 
Back
Top