pasan
Terugkerende gebruiker
- Lid geworden
- 6 nov 2010
- Berichten
- 1.110
hoi
ik heb een userform gemaakt met daarop 200 keer een groepje van 2 textboxen en 1 checkbox dus samen 3
ik vul de eerste 6 groepjes van 3 boxen vanuit blad1 met de volgende code
voor de resterende 194 groepjes van 3 heb ik de code nog niet gemaakt omdat ik graag de mening van iemand van dit forum wil afwachten
zoals je ziet is de nummering een beetje willekeurig van de textboxen en checkboxen.
Als ik nu alle alle textboxen die in de A range moeten zoeken benummer van 400 tot 599
en alle textboxen die in de B range moeten zoeken benummer met 600 tot 799
en alle checkboxen die in de C range moeten zoeken benummer met 400 tot 599
is er dan een kortere code te maken?
of kan ik de benummering zoals ik die nu heb van alle textboxen en checkboxen zo laten?
en dan een kortere code laten werken
groet
Pasan:thumb:
ik heb een userform gemaakt met daarop 200 keer een groepje van 2 textboxen en 1 checkbox dus samen 3
ik vul de eerste 6 groepjes van 3 boxen vanuit blad1 met de volgende code
voor de resterende 194 groepjes van 3 heb ik de code nog niet gemaakt omdat ik graag de mening van iemand van dit forum wil afwachten
Code:
Private Sub UserForm_Initialize()
Me.TextBox22.Value = Worksheets("blad1").Range("a2")
Me.CheckBox23.Value = Worksheets("blad1Range("e2")
Me.TextBox151.Value = Worksheets("blad1").Range("d2")
Me.TextBox37.Value = Worksheets("blad1").Range("a3")
Me.CheckBox24.Value = Worksheets("blad1").Range("e3")
Me.TextBox155.Value = Worksheets("blad1").Range("d3")
Me.TextBox45.Value = Worksheets("blad1").Range("a4")
Me.CheckBox25.Value = Worksheets("blad1").Range("e4")
Me.TextBox159.Value = Worksheets("blad1").Range("d4")
Me.TextBox53.Value = Worksheets("blad1").Range("a5")
Me.CheckBox26.Value = Worksheets("blad1").Range("e5")
Me.TextBox163.Value = Worksheets("blad1").Range("d5")
Me.TextBox55.Value = Worksheets("blad1").Range("a6")
Me.CheckBox27.Value = Worksheets("blad1").Range("e6")
Me.TextBox167.Value = Worksheets("blad1").Range("d6")
Me.TextBox62.Value = Worksheets("blad1").Range("a7")
Me.CheckBox28.Value = Worksheets("blad1").Range("e7")
Me.TextBox171.Value = Worksheets("blad1").Range("d7")
End Sub
zoals je ziet is de nummering een beetje willekeurig van de textboxen en checkboxen.
Als ik nu alle alle textboxen die in de A range moeten zoeken benummer van 400 tot 599
en alle textboxen die in de B range moeten zoeken benummer met 600 tot 799
en alle checkboxen die in de C range moeten zoeken benummer met 400 tot 599
is er dan een kortere code te maken?
of kan ik de benummering zoals ik die nu heb van alle textboxen en checkboxen zo laten?
en dan een kortere code laten werken
groet
Pasan:thumb:
Laatst bewerkt: