billybob12345
New Member
- Joined
- Dec 4, 2017
- Messages
- 9
Hi,
I was wondering if I might ask for some of your excellent support please. This forum has been a source of learning for me so thanks very much.
I am unable to locate an answer for my current dilemma - which is almost working lol.
I have a cell $O$17 that says =if(A1="bread","YES","NO") Which works fine.
I want to display a checkbox if YES is output.
My code works if I manually input YES or NO into cell $O$17 but does not work otherwise.
Status > Windows 7, Excel 2007, Form Checkbox not ActiveX, Inexperienced user of VBA
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Address = "$O$17" Then
Select Case UCase(Target)
Case Is = "YES": Shapes("CheckBox1").Visible = msoTrue
Case Is = "NO": Shapes("CheckBox1").Visible = msoFalse
End Select
End If
Application.EnableEvents = True
End Sub
Many Thanks
Billy
I was wondering if I might ask for some of your excellent support please. This forum has been a source of learning for me so thanks very much.
I am unable to locate an answer for my current dilemma - which is almost working lol.
I have a cell $O$17 that says =if(A1="bread","YES","NO") Which works fine.
I want to display a checkbox if YES is output.
My code works if I manually input YES or NO into cell $O$17 but does not work otherwise.
Status > Windows 7, Excel 2007, Form Checkbox not ActiveX, Inexperienced user of VBA
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Address = "$O$17" Then
Select Case UCase(Target)
Case Is = "YES": Shapes("CheckBox1").Visible = msoTrue
Case Is = "NO": Shapes("CheckBox1").Visible = msoFalse
End Select
End If
Application.EnableEvents = True
End Sub
Many Thanks
Billy