rij wissen in excelbestand.

Status
Niet open voor verdere reacties.

treegkid

Gebruiker
Lid geworden
21 dec 2016
Berichten
11
Misschien zit ik niet in het juiste "blok", maar ik probeer het maar.
Ik heb een excel file waarin in een bepaalde kolom "blad" ja of oo staat.
Nu wil ik de rijen, waar oo staat verwijderen en de lege rij opvullen met de volgende rij.
In de bijlage heb ik een voorbeeldje gegeven.
Groet,
Geert

sorry, alleen de bijlage van 15 kb is geldig.
 
Zoiets onder een knop?

Code:
Sub CommandButton1_Click()

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

Application.ScreenUpdating = False

For X = LastRow To 1 Step -1
If Range("F" & X).Value = "oo" Then Range("F" & X).EntireRow.Delete
Next

End Sub
 
Laatst bewerkt:
Hallo SjonR,

Hartelijk dank voor de code.
Het werkt prima.
Groet,
Geert
 
In de code die SjonR geeft vertrekt de loop met de laatste rij en gaat dan terug naar boven, de eerste rij.
Is er een bepaalde reden hiervoor? Normaal begint je toch met 1 en gaat dan tot de laatste rij.
 
Rijen verwijderen doe je van onder naar boven
 
Kan dat niet van boven naar onder? Geeft dat dan fouten?
 
Probeer het maar eens van bovenaf te doen.
 
Ik poogde het eerst ook van boven naar onder te doen, maar dan moet ik vaak meerdere keren op de knop drukken voordat alle rijen werden verwijderd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan