Loop maken voor volgende rij weergeven

[Waterbaan]

Beste mensen,

voor deze code zou ik graag een loop willen maken voor een 'volgende' knop in een UserForm.

UserForm.txtVoornaam.Text = Sheets("Blad1").Cells(2, 1).Value

Met een knop 'volgende' zie ik de volgende rij. Kan ik hier een loop van maken, zo ja hoe doe ik dat?

 

[HSV]

Dit heb ik laatst gemaakt met een ScrollBar.
Ik hoop dat je er wat wijs uit wordt.

 

[Waterbaan]

Bedankt voor je reactie. Ik begrijp er niet heel veel van maar doe mijn best.

Het gaat om 14 textboxen die d.m.v. de knop volgende naar de volgende rij gaat. Het script ziet er zo uit:

Worksheets("Blad1").Visible = True
Worksheets("Blad1").Activate
UserForm.Show
UserForm.txtVoornaam.Text = Sheets("Blad1").Cells(2, 1).Value
UserForm.txtAchternaam.Text = Sheets("Blad1").Cells(2, 2).Value
UserForm.txtTelefoonnummer.Text = Sheets("Blad1").Cells(2, 3).Value
UserForm.txtNaamlocatie.Text = Sheets("Blad1").Cells(2, 4).Value
UserForm.ComboBox2.Text = Sheets("Blad1").Cells(2, 5).Value
UserForm.txtTeam.Text = Sheets("Blad1").Cells(2, 6).Value
UserForm.ComboBox1.Text = Sheets("Blad1").Cells(2, 7).Value
UserForm.txtDatum.Text = Sheets("Blad1").Cells(2, 8).Value
UserForm.txtNaammedewerker.Text = Sheets("Blad1").Cells(2, 9).Value
UserForm.txtPersnummer.Text = Sheets("Blad1").Cells(2, 10).Value
UserForm.txtFunctie.Text = Sheets("Blad1").Cells(2, 11).Value
UserForm.txtGeboortedatum.Text = Sheets("Blad1").Cells(2, 12).Value
UserForm.txtGeboorteplaats.Text = Sheets("Blad1").Cells(2, 13).Value
UserForm.txtMobielnummer.Text = Sheets("Blad1").Cells(2, 14).Value

Nu wil ik op dit UserForm de knop volgende naar de volgende rij laten gaan. Is hier een loop voor?

Alvast bedankt.

Gr Mike

 

[HSV]

Ik heb je vorige vraag ook gelezen waarin je een bestandje poste op de vraag van @Warme bakkertje.
Het was mij teveel werk.
Van de ene vraag naar de andere dacht ik.

Je hebt je reactie daarin weer verwijderd zie ik nu.
Dat is niet slim, misschien was er al iemand mee bezig die nu denkt,.....bekijk het maar.

 

[Waterbaan]

Sorry je hebt gelijk in deze. Ik heb het bericht verwijderd omdat ik al een stuk verder ben dan de vragen die ik heb gesteld. Omdat toch niemand gereageerd had behalve; kan je een bestandje plaatsen, heb ik een nieuwe vraag aangemaakt. Ik kon de vorige post niet verwijderen. Sorry.

Dit is volgens mij een simpele vraag. Een herhaling van het script. Enig idee hoe ik dit script hierboven kan herhalen?

Bedankt alvast.

Gr Mike

 

[HSV]

Maak een Wisselknop (ActiveX-Besturingselement)
Die heeft een Min, Max en Value.


Uit de losse pols
In Userformmodule.

private sub spinbutton.change()
with Sheets("Blad1")
X = Spinbutton.value
     txtVoornaam.Text = .Cells(x, 1).Value
     txtAchternaam.Text = .Cells(x, 2).Value
     txtTelefoonnummer.Text = .Cells(x, 3).Value
     txtNaamlocatie.Text = .Cells(x, 4).Value
     ComboBox2.Text =      .Cells(x, 5).Value
     txtTeam.Text = =       .Cells(x, 6).Value
     ComboBox1.Text = =   .Cells(x, 7).Value
     txtDatum.Text =         .Cells(x, 8).Value
     txtNaammedewerker.Text = .Cells(x, 9).Value
     txtPersnummer.Text =  .Cells(x, 10).Value
     txtFunctie.Text = .Cells(x, 11).Value
     txtGeboortedatum.Text = .Cells(x, 12).Value
     txtGeboorteplaats.Text = .Cells(x, 13).Value
     txtMobielnummer.Text = .Cells(x, 14).Value
 end with
end sub

 

[Waterbaan]

Beste Harry,

het werkt. Super bedankt. Kan ik dit ook aanpassen naar wens? Het gaat nu als volgt, met de knop 'zoeken' kom ik op het userform terecht (met spinbutton). Het userform laat direct de 2de rij met data zien in het userform. De spinbutton begint in de eerste rij. Dit zijn mijn kolommen. Ik zie dan de kopjes verschijnen van de kolommen en daarna pas de gegevens onder de kolommen. Ook werkt de spinbutton met pijltje omhoog (is naar beneden) pijlte omlaag is naar boven van de rij.

Kan ik dit ook omdraaien. Zie bestandje.

Super bedankt voor de hulp!

Bekijk bijlage Inschrijfgegevens2.xlsm

 

[Warme bakkertje]

@ Waterbaan

Mijn excuses dat ik niet sneller gereageerd heb, maar ik heb ook nog een zaak te runnen.

Als antwoord op je vraag zet je bij de eigenschappen van de Spinbutton de SmallChange op -1

 

[HSV]

+

Private Sub UserForm_Initialize()
 SpinButton1.Value = 2
End Sub

+ de Eigenschap Min op 2

 

[Waterbaan]

Super bedankt. Het omdraaien van de spinbutton is gelukt. En natuurlijk hebben jullie ook andere dingen te doen. Ik zoek me alleen een breuk naar een juist script voor wat ik wil en raak soms een beetje het geduld kwijt. No worries! Ik waardeer jullie hulp in ieder geval enorm.

Ook is het de laatste oplossing van Harry gelukt. Ik heb het werkend zoals ik wil. Geweldig dit!

Nu wil ik binnen dit zelfde formulier een aanpassing (na het gebruik van de spinbutton) opslaan binnen de betreffende cel vanuit het userform. Dus in praktijk, ik ga volgende in rij bijv. rij 10. Ik zie de gegevens in het userform. Ik pas daar de naam aan en klik op wijziging opslaan. Hij past het aan binnen die rij in de betreffende cel onder de kolom. Kan ik hiervoor het script gebruiken maar dan aangepast, zie script.

<sub>Private Sub CommandButton1_Click()
voornaam = txtVoornaam.Text
achternaam = txtAchternaam.Text
telefoonnummer = txtTelefoonnummer.Text
naamlocatie = txtNaamlocatie.Text
team = txtTeam.Text
datum = txtDatum.Text
naammedewerker = txtNaammedewerker.Text
persnummer = txtPersnummer.Text
functie = txtFunctie.Text
geboortedatum = txtGeboortedatum.Text
geboorteplaats = txtGeboorteplaats.Text
mobielnummer = txtMobielnummer.Text

Dim x As Long
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = txtVoornaam.Text
Range("B" & x) = txtAchternaam.Text
Range("C" & x) = txtTelefoonnummer.Text
Range("D" & x) = txtNaamlocatie.Text
Range("E" & x) = Me.ComboBox2.Value
Range("F" & x) = txtTeam.Text
Range("G" & x) = Me.ComboBox1.Value
Range("H" & x) = txtDatum.Text
Range("I" & x) = txtNaammedewerker.Text
Range("J" & x) = txtPersnummer.Text
Range("K" & x) = txtFunctie.Text
Range("L" & x) = txtGeboortedatum.Text
Range("M" & x) = txtGeboorteplaats.Text
Range("N" & x) = txtMobielnummer.Text


Unload Me
End Sub</sub>

Bedankt, ik wacht geduldig af deze keer.

Gr Mike

 

[HSV]

Upload je laatste versie eens Mike.

 

[Waterbaan]

Oke, zie bestand.

Bekijk bijlage Inschrijfgegevens2.xlsm

 

[HSV]

Hallo Mike.

Zet dit onder de code van de spinbutton.
Dus Userformmodule.

Private Sub UserForm_Initialize()
 SpinButton1.Value = 2
 SpinButton1_Change
End Sub

 

[Waterbaan]

Heb ik gedaan, bedankt!

Werkt beter met het verwijzen naar het userform of niet?

En voor wijziging opslaan vanuit userform na gebruik spinbutton? Hoe kan ik daarbij de Range aangeven dat hij in de betreffende cel de wijziging opslaat.

Bedankt Harry!

Gr Mike

 

[HSV]

In principe het omgekeerde.
cells(x,1) = textbox1.text

 

[Waterbaan]

Bedoel je voor de spinbutton? Kan dit ook voor een commandbutton?

Ik begrijp niet precies wat je bedoelt.

 

[HSV]

Nee voor je commB3.

Private Sub CommandButton3_Click()
If MsgBox("Wijzigingen doorvoeren ?", vbYesNo, "Wijziging") = vbYes Then
With Sheets("Blad1")
 x = SpinButton1.Value
    .Cells(x, 1).Value = txtVoornaam.Text
    .Cells(x, 2).Value = txtAchternaam.Text
    .Cells(x, 3).Value = txtTelefoonnummer.Text
    .Cells(x, 4).Value = txtNaamlocatie.Text
    .Cells(x, 5).Value = ComboBox2.Text
    .Cells(x, 6).Value = txtTeam.Text
    .Cells(x, 7).Value = ComboBox1.Text
    .Cells(x, 8).Value = txtDatum.Text
    .Cells(x, 9).Value = txtNaammedewerker.Text
    .Cells(x, 10).Value = txtPersnummer.Text
    .Cells(x, 11).Value = txtFunctie.Text
    .Cells(x, 12).Value = txtGeboortedatum.Text
    .Cells(x, 13).Value = txtGeboorteplaats.Text
    .Cells(x, 14).Value = txtMobielnummer.Text
   End With
 End If
End Sub

 

[Waterbaan]

Ik heb het even getest en het werkt echt super.

In het standaard userform zit rechtsboven een nummering (bv. 1 van 6) en daarna nieuw record. Hoe zou ik zoiets kunnen koppelen aan de spinbutton? Ik kan me voorstellen als het bestand groot wordt het zonder nummering niet makkelijk werkt.

Alvast bedankt weer.

Gr Mike

 

[HSV]

Was mijn vermoeden niet verkeerd (van de ene vraag naar de ander).
Maakt niet uit Mike.
Soms sla ik dingen over die al vaak voorbij zijn gekomen.

Laat je bestand eens zien over welke nummering je bedoeld.

 

[Waterbaan]

Dank Harry, ik waardeer je hulp enorm.

Bekijk bijlage Inschrijfgegevens2.xlsm

Ik bedoel in Excel is een formulier geprogrammeerd die ongeveer dezelfde instellingen heeft (het standaard userform). Rechtsboven in dat formulier zit een nummering van de rijen. 1 van ...., 2 van .... enz. tot nieuw record (rij). Ik denk dat dat iets overzichtelijker is voor het wijzigen.