• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

spinbutton.spinup en spinbutton.spindown

Status
Niet open voor verdere reacties.

lampje25

Nieuwe gebruiker
Lid geworden
22 jul 2011
Berichten
4
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:D
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)
 
Doe er vooral een voorbeeldje bij, en leg eens uit wat je precies bedoelt, want ik snap 'm niet. Een spinbutton die iets moet doen heeft altijd een procedureaanroep nodig. Ik zie niet hoe je dat kan vermijden zonder de spinbutton vleugellam te maken. Een button zonder code? Gaat nooit werken :).
 
Ik heb er alle vertrouwen in. :D
 
Ik heb er alle vertrouwen in. :D

Ik weet je te vinden :D
Als ik er niet uitkom dan meld ik me wel bij je:)

Volgens mij heb je me al wel vaker geholpen met VBA vraagstukken (via andere forum voor Office)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan