In bijgevoegd werkblad, onder Deel 1, staan in kolom A woorden tussen brackets, in kolom C worden deze woorden achter elkaar gezet. Deel 2 van het werkblad geeft aan waar ik naartoe wil. Kolom A wordt onderbroken na 10 regels, zodoende wordt de inhoud van kolom C niet enorm lang. Nu heb ik wel een macro (zit niet in het werkblad) waarmee ik na zoveel regels een regel kan invoegen maar ik zou niet weten hoe ik dat voor kolom C voor elkaar krijg. Het liefst zie ik de waarde van c38 en c49 op een nieuw blad verschijnen. Zodoende kan ik deze regels bewerken. Iemand een idee ?
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Macro gezocht
- Onderwerp starter PJAA
- Startdatum
- Status
Als het om veel gegevens gaat dan kan je beter gebruik maken van een array. (Werkt een stuk sneller.)
Code:
Sub VenA()
ar = Cells(1).CurrentRegion
ReDim ar1(UBound(ar) \ 10)
For j = 1 To UBound(ar)
ar1((j - 1) \ 10) = ar1((j - 1) \ 10) & ar(j, 1)
Next j
Cells(1, 3).Resize(UBound(ar1) + 1) = Application.Transpose(ar1)
End Sub
Laatst bewerkt:
- Status
