Snasui Excel Forum

Code: Select all

Sub TestCountIf()
   Me.TextBox1 = Application.WorksheetFunction.CountIf(Range("test!A2:A21"), ">10")
   
   Me.TextBox2 = Application.WorksheetFunction.CountIf(Range("test!B2:B21"), "<10")
End Sub

Code: Select all

Sub TestCountIf()
   Me.TextBox1 = Application.WorksheetFunction.CountIf(Range("test!A2:A21"), ">10")
   
   Me.TextBox2 = Application.WorksheetFunction.CountIf(Range("test!B2:B21"), "<10")
End Sub

Private Sub UserForm_Initialize()
    Call TestCountIf
End Sub