Hallo,
Ik heb een vraag.
ik heb een userform met daarop o.a. 6 textboxen met elk een spinbutton.
De max en min waarde die de spinbutton moet gebruiken wordt opgehaald uit een werkblad.
Ik de spinbutton hebben de volgende oplopende naam: SpBtn_Rcd_6 t/m 11, de textboxen TB_Rcd_6 t/m 11
nu heb ik voor elke spinup en spindown een sub met daarin de onderstaande code:
Onderstaande is alleen voor de spinup, voor de spindown heb ik soortgelijke code
deze roept daarna onderstaande sub aan:
Dit werk goed.
mijn vraag is of dit ook anders kan door niet elke keer deze aan te maken
(doel is dat ik dan deze code ook voor andere spinbuttons kan gebruiken)
Ik heb een vraag.
ik heb een userform met daarop o.a. 6 textboxen met elk een spinbutton.
De max en min waarde die de spinbutton moet gebruiken wordt opgehaald uit een werkblad.
Ik de spinbutton hebben de volgende oplopende naam: SpBtn_Rcd_6 t/m 11, de textboxen TB_Rcd_6 t/m 11
nu heb ik voor elke spinup en spindown een sub met daarin de onderstaande code:
Onderstaande is alleen voor de spinup, voor de spindown heb ik soortgelijke code
Code:
Public Const Getal As Byte = 20
Public SpBtn_Rcd_Max(Getal) As Variant
Public SpBtn_Rcd_Min(Getal) As Variant
Public n As Byte
Private Sub SpBtn_Rcd_8_SpinUp()
On Error Resume Next
n = 8
TxB_RCD = Me.Controls("TB_Rcd_" & n).Value
WijzigWaardeUp (n), SpBtn_Rcd_Max(n), TxB_RCD
End Sub
deze roept daarna onderstaande sub aan:
Code:
Sub WijzigWaardeUp(SpBtn As Integer, MaxW As Variant, TxB_RCD)
If TxB_RCD >= MaxW Then
Exit Sub
Else
Me.Controls("TB_Rcd_" & SpBtn).Value = Format(Me.Controls("TB_Rcd_" & SpBtn).Value + (Sheets("MDM").Cells(14, 6).Value / 100), "0.00")
End If
End Sub
Dit werk goed.
mijn vraag is of dit ook anders kan door niet elke keer deze aan te maken
Code:
Private Sub SpBtn_Rcd_8_SpinUp()
(doel is dat ik dan deze code ook voor andere spinbuttons kan gebruiken)