Ik heb een vragenlijst gemaakt met daaraan toegevoegd een overzicht met de gegeven antwoorden. Ik heb de vragen rechstreeks gelinked dus gewoon ='Inventarisatie DOELGROEP'!D8. Omdat het MC vragen zijn zijn er meerdere antwoorden mogelijk. Aangezien deze niet allemaal worden gegeven komen er ook lege regels in voor. Deze lege regels haal ik met de volgende macro eruit.
Sub Sorteren_en_deleten()
Worksheets("RESULTAAT").Range("d17:d22").Sort _
key1:=Worksheets("RESULTAAT").Range("d17")
Set currentCell = Worksheets("RESULTAAT").Range("d17")
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
Dat gaat allemaal redelijk (hij sorteert de antwoorden die overblijven op volgorde).
Maar ik wil het volgende als je terug gaat naar je vragenlijst omdat je iets wil veranderen dat het originele blad terug komt met alle mogelijkheden.
Jeroen