Adressen bestand transponeren

[CRUZ2]

Beste excel leden,

Ik ben op zoek naar een macro die gegevens (adressen) transponeerd naar een nieuwe werkmap

De adressen zijn per regel genoteerd in kolom B
De unieke eigenschap is dat elk adres vooraf gaat met de regel "Geef uw mening"

Ik wil de 5 regels onder "geef uw mening" transponeren naar een nieuw excel bestand beginnend in cel A3
en voor elke nieuw gevonden adres een regel eronder.
Dit geld voor 130 sheets die naar een en dezelfde excel bestand getransponeerd moeten worden.

Heb wel iets gevonden hier op het forum over transponeren maar niet echt iets wat ik zoek wie helpt mij

 

[Haije]

CRUZ2,

voeg eens een paar bestandjes toe als bijlage (ontdaan van privacy-gevoelige info)

 

[CRUZ2]

Met bijlage

CRUZ2,

voeg eens een paar bestandjes toe als bijlage (ontdaan van privacy-gevoelige info)

hierbij een voorbeeld

op bladen 20-22 staan de gegevens die getransponeerd moeten worden naar blad 1
Alle adressen worden voorafgegaan door "geef uw mening" in de zelfde kolom. en door A-Z in de kolom ernaast.
De macro moet zoeken op "geef uw mening" omdat het aantal regels hieronder kan verschillen.
De gegevens die getransponeerd moeten worden onder geef uw mening zijn de eerste 5 regels.


Alvast bedankt

 

[Haije]

CRUZ2,

zoiets?

 

[CRUZ2]

Haije,

Harstikke bedank!!

Werkt helemaal super.
:thumb::thumb:

 

[Warme bakkertje]

Sub tst()
For Each ws In ThisWorkbook.Sheets
    If Not ws.Name = "Blad1" Then
    For Each ar In ws.Columns(2).SpecialCells(xlCellTypeConstants).Areas
        Sheets("Blad1").[A65536].End(xlUp).Offset(1).Resize(, 5) = Split(ar(2) & "#" & ar(3) & "#" & ar(4) & "#" & ar(5) & "#" & ar(6), "#")
    Next
    End If
Next
End Sub