Counting Textbox vakue using CountIf - Excel VBA

[CakzPrimz]

Hi,

I have 3 textboxes in number format. In texbox1 value = 11, textbox2 value = 5 and textbox 3 value = 11.
And I want to count how many number of 11 in a textbox4, every time the value in textbox1 is changed or update.

Here's the code I wrote and not working:

Private Sub TextBox1_AfterUpdate()
    On Error Resume Next
    TextBox4.Value = Application.CountIf(TextBox1.Value, 11) + Application.CountIf(TextBox2.Value, 11) +Application.CountIf(TextBox3.Value, 11)
End Sub

Thank you

 

[Momentman]

If your textboxes are so named and you really want to always use the afterupdate of TextBox1, then

Try this

Private Sub TextBox1_AfterUpdate()
    Dim I As Long, Cnt As Long
    For I = 1 To 3
        If Me.Controls("TextBox" & I).Value = 11 Then Cnt = Cnt + 1
    Next I
    TextBox4.Value = Cnt
End Sub

 

[dmt32]

Hi,
CountIf I think you will find works with Ranges.

Untested but see if following update to your code does what you want

Private Sub TextBox1_AfterUpdate()


   Me.TextBox4.Value = Application.Count(Application.Match(Array(Val(Me.TextBox1.Value), _
                                                                Val(Me.TextBox2.Value), _
                                                                Val(Me.TextBox3.Value)), Array(11), 0))
End Sub

Dave