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

Veel allen voor jullie reacties. Door onvoorziene omstandigheden kan ik er niet direct mee aan de slag omdat ik de komende drie weken andere dingen moet doen in het buitenland, Zodra ik terug ben zal ik de oplossingen uitproberen en reageren op openstaande vragen.

Beste Albert,

Het is vrij eenvoudig om de namen onder elkaar te krijgen. Dat kan met:

=INDEX(Blad1!$A$1:$P$1;;4*RIJ(A1)-3) (als de namen in rij 1 staan).

Voor de op te halen gegevens wordt het lastiger. Deze staan wel goed verdeeld over de kolommen (door jou benoemd als a, b, c en d), maar ze staan in verschillende rijen, tenminste in de door jou verstrekte gegevens. Als dat zo is, dan kunnen ze waarschijnlijk niet met een formule worden opgehaald, maar zal het inderdaad met vba moeten. Maar ook dan moeten we een duidelijke omschrijving hebben van het soort gegevens waar het om gaat. Ik denk niet, dat de andere cellen leeg zijn, zoals aalpha verondersteld.

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

Groet,

Bocculus

Hallo

Ik ben Sneha en ik help je graag met je vraag. Onze excuses voor het ongemak.

U kunt de functies INDEX en VERGELIJKEN gebruiken om specifieke celgegevens uit één kolombereik te extraheren en in een ander bereik van rijen weer te geven.

Stel dat u de gegevens uit kolom B wilt extraheren en weergeven in kolom A van de nieuwe tabel. U kunt de volgende formule gebruiken in cel A1 van de nieuwe tabel:

=INDEX(B:B, MATCH(A1; Jan:Jan, 0))

Deze formule zoekt naar de waarde in cel A1 van de nieuwe tabel in het bereik Jan:Jan en wanneer deze een overeenkomst vindt, retourneert deze de overeenkomstige waarde uit het bereik B:B.

U kunt deze formule vervolgens kopiëren en in de cellen eronder plakken om de gegevens voor de andere rijen te extraheren.

Als u gegevens uit meerdere kolommen wilt extraheren, kunt u een vergelijkbare formule gebruiken, maar met de functie INDEX genest in een andere INDEX-functie. Bijvoorbeeld:

=INDEX(B:D, MATCH(A1, Jan:Jan, 0), MATCH(B1; A:A, 0))

Deze formule retourneert de waarde van het snijpunt van de rij die overeenkomt met de waarde in A1 van de nieuwe tabel en de kolom die overeenkomt met de waarde in B1 van de nieuwe tabel.

U kunt de bereiken in deze formules aanpassen aan uw specifieke gegevens. Als u Formule wilt gebruiken, moet u ze invoeren in een cel in het nieuwe werkblad en ze vervolgens kopiëren en plakken in de andere cellen als dat nodig is.

Vergeet niet om de bereiken in de formules aan te passen aan de gegevens in uw werkblad. Zorg er ook voor dat u de juiste kolom- en rijlabels in de formules gebruikt, omdat deze worden gebruikt om de gegevens te identificeren die u wilt extraheren.

Als je nog andere vragen hebt of ergens hulp bij nodig hebt, aarzel dan niet om het me te laten weten. Ik ben hier om zo goed mogelijk te helpen.

Geef terug aan de Gemeenschap. Help de volgende persoon die dit probleem heeft door aan te geven of dit antwoord uw probleem heeft opgelost. Klik hieronder op Ja of Nee.

Hartelijke groeten Sneha

Deze reactie is automatisch vertaald. Hierdoor bevat het wellicht gramaticale fouten of vreemde zinnen.

Én, gelukt Albert ?

Als de gegevens in het blad met de naam "Blad1" er uitzien zoals in onderstaande tabel (die je onbeperkt naar rechts kunt uitbreiden als je dezelfde indeling - 4 kolommen per persoon - maar aanhoudt):

dan zorgt onderstaande macro er voor dat diezelfde gegevens in

het blad met de naam "Blad2", als volgt worden weergegeven:

Sub macro1() 

Dim k As Integer, p As Integer, q As Integer 

Dim r As Integer, x As Integer, y As Integer 

Dim sh2 As Worksheet 

Set sh2 = Sheets("Blad2") 

sh2.Cells.ClearContents 

With Sheets("Blad1") 

p = 1: q = 1: x = 1: y = 1 

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

.Cells(1, p).Copy sh2.Cells(q, 1) 

For k = p To p + 3 

For r = 2 To 5 

If Not (IsEmpty(.Cells(r, k))) Then 

y = y + 1 

.Cells(r, k).Copy sh2.Cells(x, y) 

End If 

Next r, k 

p = p + 4: q = q + 1 

x = x + 1: y = 1 

Loop 

End With 

End Sub