update label caption based on option button

[Arie Bos]

I'd like a label caption to dynamically update based on a value ('factor') selected with 5 option buttons (per hour/day/week/month/year)
the label in the last line shows the MCV value, but does not update with ' factor' when I click another option button.

Private Sub Mat_TotCommercialValue()
Dim factor As Integer
Dim MCV As Long

Select Case True
    Case OptHour: factor = Range("E_OperatingDays.Value") * Range("E_OperatingHours.Value") / 12
    Case OptDay: factor = Range("E_OperatingDays.Value") / 12
    Case OptWeek: factor = 52 / 12
    Case OptMonth: factor = 1
    Case OptYear: factor = 12
End Select

    MCV = Val(txtCommercialValue.Value)
    lblCommercialValue.Caption = Format(MCV / factor, "#,##0")
End Sub

 

[GWteB]

Have you implemented a Change Event procedure for each option button that's invoking this code? If not, there's no dynamically update.
Furthermore, I would like to note that all divisions are rounded off arithmetic since you declared the variable named factor as an Integer. If this is not your intention then I would suggest changing its memory type to Double.

 

[Arie Bos]

You are right GWteB... I forgot the change events and now it works perfect. After I placed this message, I found out myself that indeed the Integers should be changed into Doubles. All good now! Thanks again,
Arie

 

[GWteB]

Glad it's sorted and thanks for letting me know.