lege rijen verwijderen over een bepaald gebied ipv alle rijen

[polderploer]

Ik weet de code om lege regels te verwijderen, echter nu wil ik dit niet over alle rijen doen, maar over een bepaald gebied, bv vanaf rij 40 tot rij 60. Hoe krijg ik dit voor elkaar??

code van alle rijen:

   Dim LastRow As Long
    LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

    Set rRange = Range(Range("A1:C1"), Range("A41").End(xlUp))

    For X = LastRow To 1 Step -1
    If Range("A" & X).Value = "" And Range("B" & X).Value = "" And Range("C" & X).Value = "" Then Range("B" & X).EntireRow.Delete
    Next

 

[Wigi]

Ik weet de code om lege regels te verwijderen, echter nu wil ik dit niet over alle rijen doen, maar over een bepaald gebied, bv vanaf rij 40 tot rij 60. Hoe krijg ik dit voor elkaar??

code van alle rijen:

   Dim LastRow As Long
    LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

    Set rRange = Range(Range("A1:C1"), Range("A41").End(xlUp))

    [B]For X = 60 To 40 Step -1[/B] 'LastRow To 1 Step -1
    If Range("A" & X).Value = "" And Range("B" & X).Value = "" And Range("C" & X).Value = "" Then Range("B" & X).EntireRow.Delete
    Next

 

[Finch]

Dan moet je in bovenstaande code, je lastrow een andere waarde geven.

bv.

LastRow = Range("a41").End(xlUp).Row

 

[polderploer]

dank allebei, Hetgene WIGI zegt werkt.

misschien nog een kleine vraag, wat is het nut van deze regel:

Set rRange = Range(Range("A1:C1"), Range("A41").End(xlUp))

Misschien wel handig om te begrijpen, zodat ik niet weer van deze makkelijke vragen hoef te stellen...

 

[Wigi]

misschien nog een kleine vraag, wat is het nut van deze regel:

Set rRange = Range(Range("A1:C1"), Range("A41").End(xlUp))

Misschien wel handig om te begrijpen, zodat ik niet weer van deze makkelijke vragen hoef te stellen...

Dat selecteert de rechthoek van A1 tot kolom C met de rij die je bekomt door in A41 te starten en dan naar boven te gaan tot je een ingevulde cel tegenkomt.

Verwijder die in de code, je gebruikt het toch niet.

Wigi

 

[polderploer]

Nee precies, ik vroeg me ook al af wat de toegevoegde waarde van de code was...

Bedankt!