Overzicht maken

[kloosterofobie]

Ik ben bezig met het maken van een vragenlijst. Nu wil ik als extra tool een overzicht geven met de gegeven antwoorden. De vragenlijst bestaat uit 43 vragen verdeeld over 5 bladen. De vragen zijn allemaal multiple choice met meerdere antwoorden mogelijkheden. Maar in het overzicht krijg ik dan ook de niet gegeven antwoorden erbij en dat is dus niet de bedoeling.

Ik ben hier al eerder mee bezig geweest op een ander forum.

Ik heb toen een macro gehad maar deze geeft een foutmelding. Het gaat om de volgende macro:

Quote:
Sub Sorteren_en_deleten()

Worksheets("RESULTAAT").Range("D914") Sort _
key1:=Worksheets("RESULTAAT").Range("D9:d14");
Set currentCell = Worksheets("RESULTAAT").Range("D9")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
currentCell.EntireRow.Insert Shift:=xlDown
End Sub



Kan iemand mij hier mee helpen of moet ik even het document uploaden?

Jeroen

 

[Roncancio]

Zo lukt het wel:

Sub Sorteren_en_deleten()

Worksheets("RESULTAAT").Range("D9:d14").Sort _
key1:=Worksheets("RESULTAAT").Range("D9")
Set currentCell = Worksheets("RESULTAAT").Range("D9")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
currentCell.EntireRow.Insert Shift:=xlDown
End Sub

 

[kloosterofobie]

Top hier kan ik wel wat mee.

Het is dus een overzicht van vragen als mensen iets anders in willen vullen gaan ze terug naar die vraag maar dan moet dat resultatenblad weer leeg gemaakt worden aangezien aar de cellen staan waar ze gelinked zijn.

Weet iemand hier een macro voor??