Enquete in excel

[ekkersj]

Hallo allemaal,

Momenteel loop ik stage en moet ik enquetes invoeren in excel. Nu heb ik het excel maco programma wat bijgevoegd is van deze site gehaald maar ik weet niet hoe ik het moet uitbreiden. ik heb namelijk 28 vragen en hier staan er maar 5.
Verder wil ik een percentage mensen welke een antwoord geven erin hebben en natuurlijk grafieken.

Kan iemand mij alsjeblieft helpen?

Thanks!

 

[Warme bakkertje]

Vervang die ganse macro door onderstaande

Sub Macro1()
    Application.ScreenUpdating = False
    [B3:B30].Copy
    Sheets("Datablad").Rows("2:2").Insert Shift:=xlDown
    [DataBlad!A2].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    [B3:B30].ClearContents
    Application.ScreenUpdating = True
End Sub

Mvg

Rudi

 

[ekkersj]

Thanks voor je reactie, maar nu staan er allemaal balken en meerdere kolommen....Ik heb die code die je zei gekopieerd...

 

[Warme bakkertje]

Zo doet ie het wel

Sub Macro1()
    Application.ScreenUpdating = False
    Sheets("Datablad").Rows("2:2").Insert Shift:=xlDown
    [B3:B30].Copy
    [DataBlad!A2].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    [B3:B30].ClearContents
    Application.ScreenUpdating = True
End Sub

Mvg

Rudi

 

[ekkersj]

Thanks nu doet hij het idd! Super bedankt.
Misschien ben ik heel lastig maar, hoe kan ik nu duidelijk weergeven hoeveel procent van de respondenten een bepaald antwoord op een vraag gaf?