gegevens achter juiste naam opslaan

[ridan]

Allen ,
Ik heb een probleem.
Graag had ik de gele cellen in het tabblad Evaluatiefiche , weggeschreven naar het tabblad gegevens.
De fiche zal steeds op een ander tijdstip verder aangevuld worden.
Met een formule kan ik dan de gegevens terughalen van het blad "gegevens"

Telkens het bestand worfd opgeslagen krijgen we zo een voledige evaluatie.
In bijlage een testbestandje , met op het blad "Evaluatiefiche een beetje meer uitleg.

Voor het wegschrijven heb ik al aan het zoeken geweest , maar met mijn beperkte kennis vba kom ik er spijtig genoeg niet.
Alvast bedankt

 

[Jack Nouws]

Zet je gegevens bijvoorbeeld in een array

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]  With Sheets("Evaluatiefiche")
    arr = Array(.[E16], .[E18], .[E20], .[E22], .[E24], .[E26], .[I29], .[I30], .[I31], .[I32], .[D33], .[B39], .[B44])
  End With
  Sheets("Gegevens").Columns(1).SpecialCells(2).Find(ComboboxNaam.Value, , xlValues, xlWhole).Offset(, 1).Resize(, 13) = arr
[/FONT]

 

[gast0660]

Voor het wegschrijven heb ik al aan het zoeken geweest

Ik zal een voorbeeldje maken.
Je maakt in ieder geval al een fout door samengevoegde cellen te gebruiken.
VBA en samengevoegde cellen zijn niet bepaald vrienden.

 

[ridan]

Alvast bedankt voor de hulp.
Ik heb al ondervonden dat samengevoegde cellen niet altijd DE oplossing is
Moet nog heeeeel veel leren.

 

[ridan]

Jack ,

Ik heb je code gebruikt en die werkt als een trein.
waarvoor dank.

Ik zie dat gast0660 ook nog bezig is met iets.
Vooraleer ik de vraag als opgelost zet , wacht ik nog even op zijn antwoord.

Uit verschillende antwoorden kan ik nog wat bijleren.
Mvg
Danny

 

[gast0660]

Hier mijn bijdrage.
In de evaluatiefiche heb ik textboxen gebruikt.

 

[ridan]

gast0660 ,

bedankt voor de bijdrage.Dat ziet er fantastisch uit.
Ik ga het formulier en code eens grondig doornemen.
(proberen te verstaan)

Nogmaals bedankt.
Mvg
Danny

 

[gast0660]

Dank voor de terugkoppeling:thumb: