• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Overzicht maken

Status
Niet open voor verdere reacties.

kloosterofobie

Gebruiker
Lid geworden
12 sep 2005
Berichten
126
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("D9:D14") 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
 

Bijlagen

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
 
Laatst bewerkt:
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??
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan