run macro when cell C18 = 14

[bptaw]

I have created 2 macros which create 2 textboxes with a unique message. I want to run macro1 when cell C18 = 14 and macro 2 when cell C18 <14. (Cell C18 sums entries from a range of cells)
Can anyone help? I also need a rest button to clear the cell entries.

 

[My Aswer Is This]

Please show us your two Macro's
And you said:

which create 2 textboxes
Did you mean two Pop up Message Box's?

And you said:

I also need a rest button to clear the cell entries.

I believe all this could be done with just one script.

Show us your two macros or explain what your attempting to accomplish
Please give specific details.
​

​

 

[bptaw]

I wanted to insert a text box as this allows for formatting.
Macro1:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B20").Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 438.9130708661, _
352.1739370079, 262.1738582677, 112.1738582677).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"In considering your scores, our experience suggests that you could have some developmental requirements in order to be successful with a 360 survey"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 147).ParagraphFormat _
.FirstLineIndent = 0
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 147).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
Selection.ShapeRange.ScaleHeight 0.6279067645, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.8507463942, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset6
Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
Range("A22").Select
End Sub

 

[My Aswer Is This]

So are you wanting this script to run as a sheet change event script?
And will be run when a change is made to C18

A sheet change event script can only be activated when a Manual change is made to a cell.
It looks like you want the script to run when a formula changes C18 value.

There is a sheet change event that can be done when a calculation is activated.
But I'm not sure how that works.

Maybe someone else here on the forum will be able to help you.

 

[bptaw]

So are you wanting this script to run as a sheet change event script?
And will be run when a change is made to C18

A sheet change event script can only be activated when a Manual change is made to a cell.
It looks like you want the script to run when a formula changes C18 value.

There is a sheet change event that can be done when a calculation is activated.
But I'm not sure how that works.

Maybe someone else here on the forum will be able to help you.

The cells update as the result of a formula.