Lange reeks code inkorten ??

[schuurar]

Ik heb op een userform 40 spinbuttons staan die gelinkt moeten worden aan een textbox.
Nu moet ik 40x een code hiervan maken.
Is er een makkelijker manier om dit te doen?
De code kan waarschijnlijk een stuk makkelijker maar ik weet niet hoe.
Kan iemand me helpen hiermee?

Ik gebruik nu dit:

Private Sub SpinButton1_Change()
TextBox7.Text = SpinButton1.Value
End Sub

Private Sub SpinButton2_Change()
TextBox8.Text = SpinButton2.Value
End Sub

 

[edmoor]

Dat kan je het makkelijkst in een Class module doen zodat ze allemaal hetzelfde Change event gebruiken.
Daarin kan je controleren op spinbutton naam.
Als je die namen met nummers gelijk houdt aan de nummers van de Textbox heb je maar een paar regeltjes in dat event nodig.

 

[snb]

Uitleg over deze techniek: https://www.snb-vba.eu/VBA_Userform_invoercontrole.html

 

[SjonR]

@snb
Je bent er als de kippen bij!
Top!

 

[schuurar]

Ik heb er het weekend naar zitten kijken maar ben bang dat dit te ver boven mijn hoofd gaat.(helaas)
Bedankt voor het aanreiken maar snap het gewoon niet.

Als er iemand is die me verder wil helpen graag.
Graag met uitleg per regel als het kan

ps Het invullen van de textboxen zal ook wel op de zelfde manier een korte code voor zijn ?

 

[jkpieterse]

Zie bijlage

 

[schuurar]

Bedankt Jan Karel,

Ik ga eens kijken of ik het in mijn eigen bestand verwerkt krijg.

 

[schuurar]

Waar moet ik deze regel neer zetten?

Private SpinEventCollection

Zonder deze regel werkt het niet in mijn bestand maar als ik hem er inzet laad hij het userform niet meer.
Dan krijg ik daar een foutmelding op.

 

[jkpieterse]

Je zet deze regel bovenaan de module achter je userform. En die had er zo uit moeten zien:

Private SpinEventCollection As Collection