macro relationele functie

[oogstweg 2]

Weet iemand hoe ik het volgende in een macro kan doen:

ik wil in een tabel een (vooraf onbekend) blok regels verwijderen. Deze regels kenmerken zich omdat zij in kolom A geen gegevens bevatten. Als ik de macro via opnemen maak, dan maakt hij een relationeel gebied aan: regel 1 t/m 21, omdat in kolom A de cellen A1:A21 leeg zijn. Dit ziet er zo uit:

    Selection.End(xlDown).Select
    Rows("1:21").Select
    Range("A21").Activate
    Selection.Delete Shift:=xlUp

Maar voor de macro weet ik niet waar de eerste cel in kolom A zich bevindt.
Overigens zou dit ook een soortgelijke macro moeten hebben die juist andersom werkt: als de cellen A1:A21 gevuld zijn, en cel A22 is leeg, dan wil ik de regels 1:21 in zijn geheel verwijderen.

 

[Wigi]

Zo kan het:

    On Error Resume Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0

Wigi

 

[huijb]

Weet iemand hoe ik het volgende in een macro kan doen:

Zou je zo vriendelijk willen zijn om ook dit te lezen. Dit helpt jou, maar ook de helpers om een oplossing voor je probleem te vinden.

 

[oogstweg 2]

Ook weer bedankt, WIGI:thumb: :thumb: :thumb:
Ik snap de formules nog niet echt, misschien moet ik er eens een boek over kopen. Maar met een beetje hulp kom ik wel waar ik wezen wil. Nogmaals bedankt!

Gert

 

[huijb]

Ook weer bedankt, WIGI:thumb: :thumb: :thumb:
Ik snap de formules nog niet echt, misschien moet ik er eens een boek over kopen. Maar met een beetje hulp kom ik wel waar ik wezen wil. Nogmaals bedankt!

Gert

Ik heb het maar voor je gedaan, volgende keer ......