Clear value once active cell is then not active

[ipbr21054]

Morning,

Can you be of assistance to alter the following code supplied.
I wish to clear contents of the active cell B13 once its no longer the active cell.

Have a nice day.

[B][COLOR=#0000FF][FONT=verdana]​Sub sbClearCellOnlyData()[/FONT][/COLOR]
[/B][FONT=Arial][SIZE=2][COLOR=#3333FF][B][COLOR=#0000FF][FONT=verdana]Range("B13").ClearContents[/FONT][/COLOR]
[/B][/COLOR][/SIZE][/FONT]
[B][COLOR=#0000FF][FONT=verdana]End Sub​[/FONT][/COLOR]
[/B]

 

[nemmi69]

in the main module have variable declared

Option Explicit
Public RefCell As Boolean

On the sheet concerned

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Address = "$B$2" And RefCell = False Then
    'MsgBox "B2 active"
    RefCell = True
End If
If Target.Address <> "$B$2" And RefCell = True Then
    'MsgBox "B2 inactive"
    RefCell = False
End If


End Sub

 

[nikio8]

this will significantly slow you down. each time you change selection, enter, tab, mouse click, macro will run.

point to cell B13 and hit delete.

 

[ipbr21054]

Thank,
I have found that out & removing code as i type.

 

[nemmi69]

in the main module have variable declared

Option Explicit
Public RefCell As Boolean

On the sheet concerned

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Address = "$B$2" And RefCell = False Then
    'MsgBox "B2 active"
    RefCell = True
End If
If Target.Address <> "$B$2" And RefCell = True Then
    'MsgBox "B2 inactive"
    RefCell = False
End If


End Sub

Sorry, need to change $B$2 to $B$13