Cellen bij elkaar voegen in Excel zonder te sorteren

[drumeke]

Beste ik heb nog eens een vraag.
Als ik cellen uit een groep sorteer via een macro dan komen er soms lege cellen tussen staan.
De reden daarvan is dat de macro sorteert op 90 cellen onder elkaar en dat er soms maar 50 cellen ingevuld zijn.
Dit kan niet anders en we kunnen geen verschillende macro's instellen omdat dit steeds verschilt.
Nu is mijn vraag.
Is er een oplossing om met een macro de lege cellen op te sporen en deze te verwijderen.
Dus een selectie van (A1:A90).
Niet sorteren want deze zijn juist op random door elkaar gegooid.

[franç]

1. Selecteer in kolom A het bereik met gegevens (de gehele kolom selecteren door boven de kolom op de letter A te klikken mag ook, dat is gemakkelijker).
2. Druk bovenaan op het klavier 1 keer op de toets F5.
3. Klik in het venster dat verschijnt links-onderaan 1 keer op Speciaal.
4. Duid met de muisaanwijzer aan: Lege waarden, en klik op Ok.
5. Klik bovenaan in het lint van Excel in de groep 'Cellen' op Verwijderen.
6. Selecteer een willekeurige cel buiten kolom A.

[Sony]

drumeke,

met een macro:



Sony

[franç]

Om bewerkingen op cellen uit te voeren is het niet nodig om die cellen te selecteren. Als je per se een macro wil gebruiken voor het verwijderen van lege cellen in kolom A , kun je daarom volstaan met:

Code: Selecteer alles

Sub Verwijder()
Columns(1).SpecialCells(xlCellTypeBlanks).Delete
End Sub