VBA Excel - COUNT, AVG, & MIN with textboxes

I have 25 text field boxes. Each one is labled as such: txt1, txt2, txt3, txt4, etc. What I need to do is have it loop though and find the AVG and MIN of all text boxes while also excluding any zeros and being able to count how many non zeros are entered.
For example...

txt1 - 456
txt2 - 455
txt3 - 456
txt4 - 0
txt5 - 449
txt6 - 445

The average would be 452.2 and the minimal number would be 445. Altough 6 boxes have been filled in, only 5 boxes have non "0" in them so therefore the COUNT fould be 5. Only these three numbers would theen be submitted to my excel sheet.

I know how to do all this via excel but it would be so much easier (in my own thinking) to just allow this form do all the work. There will be 3 different people using this form a day and 2 of them hate and dispise of excel, so that was the reason behind all of this.

Everything is already set up and ready to submit, I just can't figure the looping process out.

Thanks so much for your help on getting this resolved for me.

It works great, except, I need the three numbers - count, avg, & min - to be submitted to a spreadsheet not a msgbox. Should I create another control button and call it "calculate" and then have the data sent to another text field which then have the submitt button? Which would be the easiest to do?

Hi

TehneXus has given you three variables avg, min, max.

if you want these on a spread sheet then delete the section of code that opens the msgbox and write the variables to the spreadsheet

Sheets("Output").select
range("A1").value = avg
range("A2").value = min
range("A3").value = max

Why would I be getting an error with my code?

Please Login or Register  to view this content.