uit bestand van steeds 4 kolommen per persoon specifieke cellen automatisch weergeven in voor elke persoon een rij (in een ander tabblad)

Onderstaande macro kopieert vanuit het blad "Leden" per persoon de door jou vermelde gegevens uit de eerste 5 rijen naar de kolommen A t/m K in het blad "Totalen", zoals je wenst.

Succes ermee!

aalpha

Sub Kopieer() 

Dim a As Integer, b As Integer, c As Integer, d As Integer 

Dim e As Integer, x As Integer, y As Integer, sh2 As Worksheet 

a = 2: b = 2: c = 3: d = 4: e = 5: x = 1 

Set sh2 = Sheets("Totalen") 

sh2.Cells.ClearContents 

With Sheets("Leden") 

Do Until IsEmpty(.Cells(1, a)) 

For y = 1 To 11 

sh2.Cells(x, y) = Application.Choose(y, .Cells(2, e), _ 

.Cells(5, b), .Cells(2, b), .Cells(2, c), .Cells(3, c), _ 

.Cells(4, b), .Cells(3, e), .Cells(4, d), .Cells(5, d), _ 

.Cells(5, c), .Cells(4, e)) 

Next y 

a = a + 4: b = b + 4: c = c + 4 

d = d + 4: e = e + 4: x = x + 1 

Loop 

End With 

End Sub

In de eerste 5 rijen van het tabblad “leden” komen geen lege cellen voor

Er zijn geen samengevoegde cellen in het tabblad “leden”, wel verwijzingen naar cellen in regels 6 en verder, en formules optellingen en percentages en gemiddelden uit cellen in de lagere regels

Twee vragen:

1. Komen er in de eerste rij van het blad "Leden" lege cellen voor ?
2. Komen er in de eerste rij van het blad "Leden" samengevoegde cellen voor?

Ik was even uit de running, waarvoor excuses.

Ik ben verrast door de fijne reacties. Mijn kennis van Excel is (nog) beperkt.

Het is daardoor toch nog lastig om met de ontvangen input de echte oplossing te vinden.

Ik heb suggesties geprobeerd maar ben er nog niet uit.

Daarom zal ik mijn vraag preciezer formuleren.

Het betreft een dynamisch bestand van ca 100 mensen.

Voor elke persoon staan de gegevens in 4 kolommen in het tabblad "leden"

Het is een dynamisch bestand. Als een persoon stopt dan knip ik de betreffende 4 kolommen en plak ik deze naar het tabblad "gestopt"

ik verwijder vervolgens de 4 leeg gekomen kolommen in het tabblad "leden".

Als er nieuwe personen bijkomen dan open ik in het tabblad "leden" aan het eind 4 nieuwe kolommen en kopieer daarin de formules die ik in dit bestand gebruik en voeg de kenmerken van de betreffende persoon toe. Vervolgens ga ik ook van deze persoon gegevens bijhouden.

Bovenin het tabblad "leden" staan in 5 regels de gegevens en totalen die ik wil overbrengen naar een nieuw tabblad "totalen",

Voor de eerste persoon in de cellen B2 t/m E5, voor de tweede persoon in F2 t/m I5 enz enz

Het betreft de gegevens van die betreffende persoon en de uit de onderstaande regels (steeds per 4 kolommen) met formules opgehaalde totalen, percentages en gemiddelden

Het tabblad "totalen heeft 11 kolommen: A t/m K.

Voor elke persoon is in dit tabblad één regel voorzien.

Ik zoek naar de juiste formules cq de juiste macro om in het tabblad "totalen" automatisch gegevens te plaatsen uit het tabblad "leden"

Voor de eerste persoon gaat het dan om de hieronder aangegeven cellen. Dus de inhoud van cel e2 uit het tabblad "leden" moet naar cel A1 in het tabblad "totalen", die van cel b5 naar cel B1, van cel b2 naar cel C1, c2 naar D1 enz enz zoals aangegeven

voor de volgende persoon gaat het dan om

enz enz

Onder de 5 kopregels staan (steeds in 4 kolommen) de rijen met informatie die ik periodiek bijhoud. Op dit moment zijn dat ruim 100 regels maar dat kan in de toekomst toenemen, maar dit verandert niets aan de bovenste 5 regels die blijven steeds voor elke persoon in takt.

Ik hoop dat de vraag hiermee volledig duidelijk is.

Bij voorbaat zeer veel dank voor reacties.

Ik denk niet, dat de andere cellen leeg zijn, zoals aalpha verondersteld.

Ik veronderstel dat de gegevens eruit zien zoals door de vragensteller in zijn eerste bericht werd getoond. Dat is het meest logische als men een vraag beantwoordt. Met mijn oplossing doet het er trouwens niet toe of er wel of geen lege cellen in de gegevens voorkomen.

Kun je nog een keer een schermafbeelding laten zijn om welke gegevens het gaat en wat het onderscheid is met de andere gevens.

De door de vragensteller in zijn eerste bericht getoonde gegevens lijken mij duidelijk weer te geven hoe zijn blad er uitziet.