EXCEL rijen verwijderen met voorwaarde

[jppat]

Hi

Ik ben een beginnend excel macro gebruiker en heb een macro opgenomen, nu wil ik een aantal rijen verwijderen als er iets in een bepaalde kolom in dit geval I en Q iets bepaald staat. is er iemand die mij kan helpen aub

Ik heb de excel toegevoegd als bijlage

Alvast bedankt

 

[crash]

Het heeft niets met "Feedback" over de site te maken, daarom naar de juiste sectie (Excel) verplaatst.

 

[Haije]

Hi

Ik ben een beginnend excel macro gebruiker en heb een macro opgenomen, nu wil ik een aantal rijen verwijderen als er iets in een bepaalde kolom in dit geval I en Q iets bepaald staat. is er iemand die mij kan helpen aub

Ik heb de excel toegevoegd als bijlage

Alvast bedankt

En wat moet er dan in I en/of Q staan?

 

[jppat]

ik heb in de excel i ingevuld met T2L en Q met empty

 

[Haije]

dus als er in I staat T2L dan moet die regel verwijderd worden?
en idem voor empty in Q?

 

[jppat]

als dit zou kunnen graag

 

[Haije]

jppat, kijk eens in de bijlage.


Start de macro door in DATA2 op de knop te klikken.

NB: ivm de bestandsgrootte heb ik het eerste en het derde blad verwijderd
NB: er wordt onderscheid gemaakt in hoofd- en kleine letters.

 

[jppat]

inderdaad jammer genoeg zijn er verschillende formats, kan ik deze misschien eerst vervangen zodat ze allemaal dezelfde format hebben of kan dit meegenomen worden i, de verwijderingsprocedure?

alvast bedankt je hebt me een heel eind op weg geholpen

 

[Haije]

wijzig:

Sub verwijderIQ()
[a1].Select
laatste = [a1].SpecialCells(xlCellTypeLastCell).Row
For I = laatste To 2 Step -1
If (Cells(I, 9)) = "T2L" Then Cells(I, 9).EntireRow.Delete
Next I
laatste = [a1].SpecialCells(xlCellTypeLastCell).Row
For Q = laatste To 2 Step -1
If (Cells(Q, 17)) = "empty" Then Cells(Q, 17).EntireRow.Delete
Next Q

End Sub

in:

Sub verwijderIQ()
[a1].Select
laatste = [a1].SpecialCells(xlCellTypeLastCell).Row
For I = laatste To 2 Step -1
If [COLOR="red"]Ucase[/COLOR](Cells(I, 9)) = "T2L" Then Cells(I, 9).EntireRow.Delete
Next I
laatste = [a1].SpecialCells(xlCellTypeLastCell).Row
For Q = laatste To 2 Step -1
If [COLOR="red"]Lcase[/COLOR](Cells(Q, 17)) = "empty" Then Cells(Q, 17).EntireRow.Delete
Next Q

End Sub

 

[jppat]

buitengewoon

hartetelijk bedankt