Draaitabel draaien

[LVDO]

Beste,

Ik wil van een aantal gegevens een draaitabel maken, maar krijg de gegevens niet in de draaitabel zoals ik graag wil.

Ik heb een bestand bijgevoegd waarin de gegevens te vinden staan. In dit bestand staat ook hoe ik de draaitabel graag wil hebben.

Wie kan mij helpen en uitleggen hoe ik dit voor elkaar kan krijgen. Het zal misschien niet zo moeilijk zijn, maar ik ben niet thuis in draaitabellen.

Bedankt.

Groetjes LotteBekijk bijlage Inschrijvingen.xlsx

 

[Niels28]

Een draaitabel is eigenlijk om te rekenen, maar het kan wel.
Je moet je gegevens dan wel anders invoeren.

Bekijk bijlage Inschrijvingen.xlsx



Niels

 

[LVDO]

Hoi Niels,

Bedankt voor je reactie. Jammer dat de gegevens anders ingevoerd moeten worden, want dit betekent erg veel handmatig werk (te veel handmatig werk, omdat het een erg groot bestand is).

Groetjes Lotte

 

[Niels28]

als de opbouw hetzelfde is dan zet de volgende macro je gegevens goed.

test wel op een copy

Sub gegevens()
Application.ScreenUpdating = False
With Sheets("VOC_form_harm_dg_2013_2012_10_2")
lrow1 = .Cells(Rows.Count, 1).End(xlUp).Row
.Columns(2).Insert
 .Range("B2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Value = "Contactpersoon"
sq = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
For i = 1 To 5
lrow = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(lrow + 1, 1).Resize(UBound(sq), 1).Value = (sq)
sq1 = .Cells(2, 5 + ((i - 1) * 3)).Resize(lrow1 - 1, 3)
.Cells(1, 5 + ((i - 1) * 3)).Resize(lrow1, 3).ClearContents
.Cells(lrow + 1, 2).Resize(UBound(sq1), 1).Value = "Deelnemer " & i
.Cells(lrow + 1, 3).Resize(UBound(sq1), 3).Value = sq1
Next
End With
Application.ScreenUpdating = True
End Sub

Niels

 

[LVDO]

Hoi Niels,

Dank je wel! Dit is echt super handig. Mijn gegevensblad ziet er anders uit, maar ik ben wel een heel klein beetje bekend met vba en ga dus even stoeien om het voor elkaar te krijgen.

Nogmaals bedankt.

Groetjes Lotte

 

[Niels28]

Als het gelukt is wil je de vraag dan op opgelost zetten.

Niels