Data opeenvolgend opslaan

[Stef4]

Hallo,

Ik heb een gekloond programma aangepast om enquetes in te verwerken.
Na invoer in blad2 wordt de som van de invoer gegevens opgeslagen in blad1
Nu wil ik de ingevoerde data uit blad2 ook nog stuk voor stuk apart opslaan in blad3

Wie kan mij helpen?

Stef4

 

[Ad Becude]

Ik heb een gekloond programma

Wat bedoel je hiermee te zeggen?

 

[Stef4]

Beste Ad,

Daarmee bedoel ik dat ik het niet zelf geschreven heb maar aangepast voor eigen gebruik.

Met vriendelijke groeten,
Stef4

Wat tijd niet oplost is geen probleem!

 

[HSV]

Zoiets Stef,

Code zal vast korter kunnen, maar ben hier niet bedreven in.

 

[Stef4]

Beste HSV,

Hartelijk dank.
Hier ben ik erg blij mee.

Rest mij nog een vraag.
Indienmogelijk zou ik de mogelijkheid willen hebben om bijvoorbeeld bij vraag 7-9--11-16 en 19 eventuele opmerkingen in te voegen.
Deze moeten dan niet in blad 1 maar wel in blad 3 zichtbaar worden.
Ik hoop dat je daar een antwoord op hebt.

Met vriendelijke groeten,
Stef4

 

[Roncancio]

Ik heb de code wat ingekort.
Er zat een foutje in de oorspronkelijke code.
Er werd namelijk 2 keer naar de K-kolom in Blad3 verwezen zodat de 1e waarde werd overschreven door de 2e waarde.

Met vriendelijke groet,


Roncancio

 

[HSV]

Ik heb de code wat ingekort.

Met vriendelijke groet,
Roncancio

Hmmm... een stukje??? :thumb:
Zoals ik al vermelde.

 

[snb]

Nog een stukje:

Sub Klaar()
    Application.ScreenUpdating = False
    Sheets("Blad3").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 24) = WorksheetFunction.Transpose([Blad2!K3:K26])
    Sheets("Blad1").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Resize(24) = [Blad2!K3:K26].Value
    [Blad2!K3:K26].ClearContents
    Application.ScreenUpdating = True
End Sub

 

[Stef4]

Beste allen,

Geweldig, het programma werkt voortreffelijk.

Zou alleen nog graag een antwoord willen hebben op de vraag of het mogelijk is om bijvoorbeeld bij vraag 7-9--11-16 en 19 eventuele opmerkingen in te voegen.
Deze moeten dan niet in blad 1 maar wel in blad 3 zichtbaar worden.

Ik hoop dat jullie hier een oplossing voor hebben.

Met vriendelijke groeten,
Stef

 

[Roncancio]

Beste allen,

Geweldig, het programma werkt voortreffelijk.

Zou alleen nog graag een antwoord willen hebben op de vraag of het mogelijk is om bijvoorbeeld bij vraag 7-9--11-16 en 19 eventuele opmerkingen in te voegen.
Deze moeten dan niet in blad 1 maar wel in blad 3 zichtbaar worden.

Ik hoop dat jullie hier een oplossing voor hebben.

Met vriendelijke groeten,
Stef

Dat kan wel, maar je moet maar even aangeven (liefst met een voorbeeld) hoe je het voor ogen hebt.

Met vriendelijke groet,


Roncancio

 

[Stef4]

Beste Robcancio

Bijvoorbeeld met optionbuttons en een tekstvak.
Antwoord NEE geeft dan in blad 3 een leeg tekstvak.
Antwoord JA geeft dan de ingevoerde tekst weer.

Stef4

 

[Stef4]

Beste Experts,

Is het mogelijk een commandbutton te gebruiken om een tekstvak te openen en dan het ingevulde tekstvak op te slaan in blad3 b.v achteraan in kolom AD t/m AH?
Moet dan wel in de goede rij komen zodat de data bij de juiste respondent blijft.

Ik hoor het graag van jullie,
Stef4

 

[snb]

Je kunt toch in blad 2 bij het invoeren van de resultaten in iedere cel met een resultaat een opmerking toevoegen ?
Die kun je vervolgens met de macor willekeurig waarheen kopiëren.

Overigens vind ik dat je zo'n invoeroperatie beter met een userform kunt uitvoeren dan met een werkblad.