vragenlijsten laten inlezen en de gegeven antwoorden in een verzamelbestand plaatsen

[Depant]

Hallo allemaal,

Ik heb een vragenlijst die ik 100 keer rondstuur.
Het zou makkelijk zijn als ik de geretourneerde bestanden in een map zou kunnen plaatsen, en de gegeven antwoorden dmv een script zou kunnen inlezen. Ik heb zoiets nog nooit bij de hand gehad. Is dit mogelijk en kan iemand mij hier richting in geven?
Ik heb de vragenlijst bijgevoegd. Bijvoorbaat hartelijk dank.

Groeten Henk

Bekijk bijlage hm qa.xlsx

 

[snb]

De opzet van de vragenlijst is in ieder geval handig.

De gegevens in kolom L vormen de antwoorden en zouden via een transpose-aktie in het verzamelformulier gezet kunnen worden.
Het lijkt me verstandig van alle scores 'cijfers' (1e keuze, 2e keuze, 3e keuze, etc.) te maken.

Het kan volledig geautomatiseerd met VBA:

Lees welke bestanden in de 'retour'directory staan.
Open ieder bestand.
Lees de gegevens in kolom L.
Zet die het verzamelformulier.
Sluit het bestand.
Markeer het bestand als 'verwerkt'.

NB. Er staan nog 2 typefouten bij Q9

 

[VenA]

Gebruik geen samengevoegde cellen/rijen. Met de rijhoogte en de tekstuitlijning kan je hetzelfde resultaat bereiken. Nu is het mogelijk om bij Q7 en Q8 verschillende antwoorden te geven terwijl er in de verzamelsheet geen ruimte voor is. Over het openen van een bestand en wat met de gegevens te doen is voldoende te vinden. Het wegschrijven is iets lastiger.

Obv het het voorbeeldbestand.

Sub VenA()
  ar = Sheets("Invulformulier Quality Assessm.").Range("L1:L46")
  Sheets("Verzamelformulier").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 24) = Application.Index(ar, Array(3, 4, 5, 8, 9, 12, 13, 14, 15, 16, 20, 24, 25, 28, 29, 32, 33, 37, 38, 39, 43, 44, 45, 46), 0)
End Sub

 

[Depant]

Hartelijk dank!!!

Hallo samen:thumb::thumb:

De twee taalfouten zijn er uit, en de overbodige drop_downs verwijderd
Het werkt perfect!!

Hartelijk dank voor jullie hulp:thumb::thumb: