Add COUNTIF TO USERFORM TEXTBOX

R

Richhall

Apologies, I am not any sort fo expert in Visual Basic. I have a
userform which has a number of text boxes, on activation of the
userform I want the text boxes to calculate a COUNTIF based on the
worksheet that is open.

i.e

Form

Bananas [TEXT BOX]
Apples [TEXT BOX]
etc
etc

and the form code has something like the idea of (sorry no idea about
syntax)

set ws = active.worksheet
Bananas = Applicaiton.WorksheetFunction.COUNTIF("ws"!$A$9:$AL
$44,"Bananas")

Can anyone help please?

Cheers

Rich
 
P

Per Jessen

Hi Rick

Insert this code in the codesheet for the userform, where TextBox1 is the
name of the textbox.

Private Sub UserForm_Initialize()
Set ws = ActiveSheet
Me.TextBox1 = Application.WorksheetFunction. _
CountIf(ws.Range("$A$9:$AL$44"), "Bananas")
End Sub

Hopes this helps.
....
Per
 
R

Richhall

How would I add numerous calculations from countifs in a different
range? i,e


Bananas + Apples.

Me.TextBox1 = Application.WorksheetFunction. _
CountIf(ws.Range("$A$9:$AL$44"), "Bananas") +
Application.WorksheetFunction. _
CountIf(ws.Range("$B$9:$D$44"), "Apples")

????
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I set focus (and select text) on a text box on a modeless userform? 0
Use match function to add different item in Combobox 2
userform textbox returns changeable date 4
Userform to query? 3
Date showing as numbers in Textbox on Userform 2
Odd behaviour with a userform 0
Program buttons to create a word document 0
Extract text from a "textbox" 7

Top