View Single Post
 
Old 05-17-2017, 05:30 AM
NBVC's Avatar
NBVC NBVC is offline Windows 7 64bit Office 2007
The Formula Guy
 
Join Date: Mar 2012
Location: Mississauga, CANADA
Posts: 215
NBVC will become famous soon enoughNBVC will become famous soon enough
Default

Hi,

You will need to include an event macro to accomplish that.

Try right-clicking on the tab of your sheet and select "View Code"

Paste this code in the editor.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
    If Range("A1").Value = "No" Then
        Range("A2").Value = 0
    Else
        Range("A2").Value = ""
    End If
End If

End Sub
Now go back to the sheet and test.
Reply With Quote