Hallo
Ik wil graag, met behulp van een macro (VBA), de volgende handelingen verrichten. Waar ik de code weet heb ik hem vermeld:
1. Selecteer de cellen c2 t/m c19. Range("C2:C19").Select
2. Zoek de eerste cel die geen inhoud bevat. Selection.Find(What="", After:=ActiveCell, Lookin:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
Nu wordt de eerste lege cel geactiveerd die aangetroffen is in de selectie. In het voorbeeld C4
3. Verwijder de complete rij waarin zich deze actieve cel bevindt. Rij 5 moet dus in zijn geheel worden verwijderd. ???
4. Herhaal de stappen 1 en 2 en herhaal het verwijderen van de rij waarin zich de aangetroffen actieve lege cel bevindt.??
5. Stop met verwijderen als de cel is bereikt met volgnummer 18
Wie kan mij helpen aan de codes voor de stappen 3 t/m 5 ?
Alvast bedankt voor het mee denken.
Groet,
Ton
Ik wil graag, met behulp van een macro (VBA), de volgende handelingen verrichten. Waar ik de code weet heb ik hem vermeld:
1. Selecteer de cellen c2 t/m c19. Range("C2:C19").Select
2. Zoek de eerste cel die geen inhoud bevat. Selection.Find(What="", After:=ActiveCell, Lookin:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
Nu wordt de eerste lege cel geactiveerd die aangetroffen is in de selectie. In het voorbeeld C4
3. Verwijder de complete rij waarin zich deze actieve cel bevindt. Rij 5 moet dus in zijn geheel worden verwijderd. ???
4. Herhaal de stappen 1 en 2 en herhaal het verwijderen van de rij waarin zich de aangetroffen actieve lege cel bevindt.??
5. Stop met verwijderen als de cel is bereikt met volgnummer 18
Wie kan mij helpen aan de codes voor de stappen 3 t/m 5 ?
Alvast bedankt voor het mee denken.
Groet,
Ton