Calculations with user form

How to perform calculations with user form. We can use option buttons on a user-form to perform unique calculations, display the result in a text-box and also transfer the result to the worksheet as a permanent record.

calculations with user form
calculations with user form

Watch the training video before studying the VBA code:

You can watch this video on YouTube.

Here’s the complete VBA code:
Private Sub CommandButton1_Click()
Dim lastrow As Long
lastrow = Sheets(“Sheet1”).Range(“A” & Rows.Count).End(xlUp).Row
clearResult
If Me.OptAverage Then
Me.txtResult = Application.Average(Range(“B2:B” & lastrow))
Range(“D2”).Value = OptAverage.Caption
Range(“E2”).Value = Me.txtResult.Value
ElseIf Me.OptMax Then
Me.txtResult = Application.Max(Range(“B2:B” & lastrow))
Range(“D2”).Value = OptMax.Caption
Range(“E2”).Value = txtResult.Value
ElseIf Me.OptMin Then
Me.txtResult = Application.Min(Range(“B2:B” & lastrow))
Range(“D2”).Value = OptMin.Caption
Range(“E2”).Value = txtResult.Value
End If
Range(“D1:E2”).Columns.AutoFit
End Sub

Sub clearResult()
Range(“D2:E2”).Clear
End Sub

Private Sub UserForm_Click()

End Sub

Further reading:

Advanced User Form

 

 

Published by

Dinesh Kumar Takyar

Welcome to exceltrainingvideos.com! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: http://youtube.com/familycomputerclub For a structured Excel VBA training course online you can visit: https://www.youtube.com/excelvbaonline

Leave a Reply

Your email address will not be published. Required fields are marked *