automatisch rijen verplaatsen

[Agnes]

Ik ben bezig met het ontwikkelen van een
vacaturevolgsysteem in Excel. In verband hiermee vraag ik
me af of het mogelijk is om rijen automatisch te
verplaatsen naar een nieuw werkblad als er een bepaalde
tekst in een bepaalde cel wordt gezet.
Als dit mogelijk is, is het dan ook mogelijk om de rijen
automatisch onder elkaar te plaatsen. Dus als er meerdere
rijen zijn met een bepaalde tekst in een bepaalde cel,
worden de rijen automatisch gekopieerd naar een nieuw
werkblad en worden ze netjes onder elkaar gezet.

Alvast bedankt voor het antwoord.

Groeten,
Agnes Bennen

[Ron de Bruin]

Public Sub copyRow()
With ActiveCell.EntireRow
.Copy Sheets("data").Range("a65535").End(xlUp).Offset(1, 0)
.ClearContents
End With
End Sub

hier een voorbeeld die de rij van de actieve cel naar de sheet date
verplaatst.
Elke keer als je de sub runt dan zet hij de regel weer onder die er al
staan.

Regards Ron

"Agnes" <agnes....@electrabel.nl> schreef in bericht
news:15fb01c15bce$46088a80$39ef2ecf@TKMSFTNGXA08...

[Agnes]

Ron,

Bedankt voor je antwoord. Helaas heb ik niet veel kennis
van VBA en weet ik niet waarom ik de foutmelding krijg dat
het subscript buiten het bereik valt (Fout 9). Hopelijk
kun je me hiermee verder helpen.

Agnes

>-----Oorspronkelijk bericht-----

>Public Sub copyRow()
>With ActiveCell.EntireRow

>..Copy Sheets("data").Range("a65535").End(xlUp).Offset(1,
0)
>..ClearContents

>.
>

[Ron de Bruin]

als je versie 5 gebruikt dan bestaan er niet zoveel rijen.

dus a65535 veranderen of row.count gebruiken.
Bestaat er een sheet met de naam data

Groeten Ron

"Agnes" <agnes....@electrabel.nl> schreef in bericht

news:234301c15c4f$ccff4de0$9ae62ecf@tkmsftngxa02...