gegevens invulscherm verplaatsen en opslaan

[Ron Veenstra]

Ik heb een stapel enquete formulieren waarvan ik de antwoorden in excel wil invoeren.
Een simpel bestandje heb ik meegestuurd om te laten zien wat ik bedoel.

Op blad1 wil ik de mogelijkheid om 3 antwoorden in te tikken en een knop (waaraan een macro gekoppeld is), die de antwoorden in de juiste kolom zet in blad2, de antwoorden in blad1 wist en het document met dezelfde naam opslaat.

Het lijkt me dat dit middels een macro moet kunnen.

ps. Het is de bedoeling dat de antwoorden in blad2 niet worden overschreven, maar onder elkaar komen.

Alvast bedankt voor de moeite,
Ron Veenstra

 

[Superzeeuw]

Ron,

Zoek je zoiets.

Validatie op ingave naam, maken van een keuze en ingave juiste leeftijd.
Naam kun je ingeven zonder hoofdletters, de eerste letter wordt automatisch een hoofdletter.

Open het progje en je kunt direct met invoeren beginnen.

Opslaan gebeurd pas als je op stoppen klikt.

 

[Ron Veenstra]

Bedankt voor de reactie,
Ga nu kijken of ik daar verder wat mee kan of dat ik
met onderstaande oplossing mogelijkheden zie.

Sub Invul()
'
' Invul Macro
' De macro is opgenomen op 9-12-2010 door veenstrar.
'

'
Sheets(2).Select
Range("A1").Select
Selection.End(xlDown).Select
RIJ = ActiveCell.Row + 1


Sheets(1).Select
Range("B2").Select
Selection.Cut
Sheets(2).Select
Columns("A").Cells(RIJ).Select
ActiveSheet.Paste

Sheets(1).Select
Range("B3").Select
Selection.Cut
Sheets(2).Select
Columns("B").Cells(RIJ).Select
ActiveSheet.Paste

Sheets(1).Select
Range("B4").Select
Selection.Cut
Sheets(2).Select
Columns("C").Cells(RIJ).Select
ActiveSheet.Paste

Sheets(1).Select
Range("B2").Select

End Sub

 

[Superzeeuw]

Ron,

Wil je de volgende keer de code in een codebox plaatsen.

Selecteer de code en klik op de #-button.