Formulier ''heropenen"

[Tsw]

Hallo,

Ik ben druk bezig met het opzetten van een planning.
Ik loop nu op het volgende vast.

Gaat om het bijgevoegde bestand:
In het tabblad "PLANNING" zit een knop "Formulier" dat formulier vul ik in en dan worden de gegevens geplaatst in het tabblad "DATA".

Maar soms moet ik het aanpassen of iets toevoegen maar dat is nu onhandig.
Nu heb ik in het formulier een witte balk gemaakt waar alle werknummer moeten komen te staan. (Kolom B)

En als ik daar op een werknummer klik moeten de overige gegevens van het formulier worden terug gehaald. Zodat ik bepaalde dingen zou kunnen aanpassen of toevoegen.

Is dit mogelijk? Als ik dit kan zou ik graag incl. uitleg van de formule hebben zodat ik hem zelf kan terug lezen en eventueel aanpassingen er later aan kan doen.

Bekijk bijlage Planning.xlsm

Alvast bedankt voor de moeite!

 

[Tsw]

Ik ben zelf nog even aan het zoeken geweest, en heb nog iets gevonden wat ik ook zoek.
Alleen hoe kan ik een UserForm + codes goed mijn eigen bestand krijgen.

Als ik de code toevoeg aan mijn bestand dan doet hij niets, ook niet met bepaalde aanpassingen?
Of zit er iets ''verborgen" wat ik dan niet meeneem?

Het gaat over het volgende bestand:

Bekijk bijlage simpel voorbeeld.xlsm

 

[OctaFish]

Je formuliercode is nogal omslachtig, en bevat een paar meter code teveel. Het wegschrijven kan een heel stuk compacter:

For i = 1 To 2
    If Not Trim(Me("tbdefinitief" & i).Value) = vbNullString Then
        ws.Cells(iRow, 13 + i).Value = Trim(Me("tbdefinitief" & i).Value)
        Me("tbdefinitief" & i).Value = ""
    End If
Next i

For i = 1 To 12
    If Not Trim(Me("tblevering" & i).Value) = vbNullString Then
        ws.Cells(iRow, 8 + (i * 8)).Value = Trim(Me("tblevering" & i).Value)
        Me("tblevering" & i) = ""
    End If
    If Not Trim(Me("tbdeel" & i).Value) = vbNullString Then
        ws.Cells(iRow, 9 + (i * 8)).Value = Trim(Me("tbdeel" & i).Value)
        Me("tbdeel" & i) = ""
    End If
    If Not Trim(Me("tbweek" & i).Value) = vbNullString Then
        ws.Cells(iRow, 10 + (i * 8)).Value = Trim(Me("tbweek" & i).Value)
        Me("tbweek" & i) = ""
    End If
etc.
Next i

 

[snb]

For j = 1 To 12
    If Trim(Me("tblevering" &j)) <>"" Then  ws.Cells(iRow, 8 + (j* 8)).resize(,3)= array(Me("tblevering" & j),Me("tbdeel" & j),Me("tbweek" & j))
Next

Kijk ook eens hier:

http://www.snb-vba.eu/VBA_Userform_in_database.html