Egbert12345
Gebruiker
- Lid geworden
- 13 dec 2010
- Berichten
- 496
Hoi, ik heb een stukje code opgenomen. Als ik een voorbeeldbestandje moet maken, dan hoor ik het wel.
Ik wil dat in de eerste kolom wordt gezocht naar het woordje lege regel en dat daarna de gevonden regel wordt geknipt en dan geplakt in cel A2000. Ik wil het graag in één opdrachtregel doen. Het lukt tot en met het knippen, maar het plakken loopt niet. Wat doe ik verkeerd? Zie onderstaand de code
m.vr.gr. Egbert
'plaats de hulpregel op de juiste plek
For A = 1 To 15000
If Cells(A, 1) = "LEGE REGEL ===>>>" Then Rows(A).Cut: Cells(A, 2000).Paste:
Next
Ik wil dat in de eerste kolom wordt gezocht naar het woordje lege regel en dat daarna de gevonden regel wordt geknipt en dan geplakt in cel A2000. Ik wil het graag in één opdrachtregel doen. Het lukt tot en met het knippen, maar het plakken loopt niet. Wat doe ik verkeerd? Zie onderstaand de code
m.vr.gr. Egbert
'plaats de hulpregel op de juiste plek
For A = 1 To 15000
If Cells(A, 1) = "LEGE REGEL ===>>>" Then Rows(A).Cut: Cells(A, 2000).Paste:
Next