gegevens uit userform naar werkblad verplaatsen

[LeonieK12]

Besten,

Ik ben al druk aan het zoeken geweest, maar kan niet vinden wat ik nodig heb dus dan maar een nieuwe vraag. Ik heb een werkblad waarin jaarlijks gegevens moeten worden opgeslagen via een userform. Het userform heb ik al behoorlijk uitgewerkt, hier op het forum komt een uitgekleedde versie. De ingevoerde gegevens moeten ieder jaar in een nieuwe kolom worden gezet, waarbij ik nu de kolommen heb gevuld met nullen, maar dit is niet noodzakelijk. Ik heb hulp nodig bij het schrijven van een code om de gegevens vanuit de userform naar de juiste kolom te verplaatsen/kopieren. Als zoiets al een keer voorbij is gekomen, dan heb ik het niet gevonden en wordt graag doorverwezen ;-).

Alvast bedankt.

LeonieK

Bekijk bijlage versie voor forum.xlsm

 

[Niels28]

Private Sub cmdOpslaan_Click()
If txtJaar.Value Like "####" = True Then
    icol = txtJaar.Value - 2008 'uitgaande van dat je met 2013 begint is kolom E (5)
End If
If icol < 5 Then MsgBox "Jaartal klopt niet."

For i = 1 To 5
    Sheets(1).Cells(5 + i, icol).Value = Controls("txt" & Chr(64 + i)).Value
Next
End Sub

Niels

 

[Niels28]

Als tijd leuk nemen we de tijd en moeite om een vraag te beantwoorden,
wordt de vraag op opgelost gezet zonder dat er moeite wordt genomen terug te reageren.

Niels