• 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.

Spinbuttons in Userform

Status
Niet open voor verdere reacties.

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.990
In de userform komen +/- 100 spinbuttons.
Nu probeer ik met een code deze in één keer te coderen, anders moet ik voor iedere spinbutton apart de code tikken (zie spinbutton1)

Mijn bedoeling was zoiets als onderstaande code, kan dit en waar moet ik hem dan zetten (onder welk "event").
Nu staat deze code onder "userform_initialize"
Na uren pusselen heb ik de moed opgegeven.
Code:
For Each Ctrl In Frame1.Controls
    If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "SpinButton" Then

        For i = 1 To 18
          If Me.Controls("Spinbutton" & i) = True Then
             Me.Controls("TextBox" & i).Value = Me.Controls("Spinbutton" & i).Value
          End If
        Next i

    End If
Next

Wie helpt?
 

Bijlagen

  • spinbutton.xlsb
    26 KB · Weergaven: 32
Momenteel voor mij nog te hoog gegrepen.:confused:
Ik heb nog nooit met klassenmodules gewerkt.
Zal eens gaan kijken of ik de uitleg van JKP kan omzetten naar datgene wat ik zoek.
 
100 spinbuttons wow. Wordt dat dan handig om mee te werken denk je?
 
Hallo Edmoor,
Het werkt perfect:thumb:, ik zal alleen nog behoorlijk wat tijd nodig hebben om de code's te doorgronden.
 
Het is maar weinig code :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan