VBA code (rijen verwijderen) bij tekst in kolom H

[oeldere]

Hoe dient onderstaande code aangepast te worden zodat in kolom H, bij de tekst fout, de gehele regel wordt verwijderd.

Sub wis_inhoudFout_cellen_in_kolomH()
With Columns("H").Cells("fout")
    .EntireRow.Delete Shift:=xlUp
  End With
End Sub

 

[danny147]

Beste oeldere

Probeer deze eens:

Sub Fout_in_cel()
For Each cl In Range("H1:H100")
If cl = "fout" Then
cl.Rows.EntireRow.Delete
End If
Next
End Sub

Groetjes Danny. :thumb:

 

[Jack Nouws]

Hallo,

Met regels verwijderen kun je beter vanaf onderen in kolom H werken.
Probeer het maar eens met deze code.

Private Const Kolom As String = "H"
Private Const StartRij As Long = 1
Private Const ZoekItem As String = "fout"

Sub verwijder()
  Dim LaatsteRij As Long, Rij As Long
  
  Application.ScreenUpdating = False
  
  With ActiveSheet
    LaatsteRij = .Range(Cells(StartRij, Kolom), Cells(Rows.Count, Kolom)).End(xlDown).Row
    For Rij = LaatsteRij To StartRij Step -1
      If Left(.Cells(Rij, Kolom), Len(ZoekItem)) = ZoekItem Then .Rows(Rij).Delete Shift:=xlUp
    Next
  End With

  Application.ScreenUpdating = True
End Sub

Of zonder variabelen en met het gebruik van een filter ...

Sub tst()
  With Sheets("Blad1").UsedRange.Columns(8)
    .AutoFilter 1, "fout"
    .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
  End With
End Sub

Met vr gr
Jack

 

[oeldere]

Beste Danny en Jack,

bedankt voor de reacties:thumb:

ik heb de codes geprobeert:

Danny.
het verwijderen vindt per regel plaats i.p.v. alle foutcodes in 1 keer.

Jack.
jouw code krijg ik niet werkend.

Ik heb jullie 3 codes in een voorbeeldbestand geplaatst.

Wie kan en wil me hier bij helpen?

 

[ExcelAmateur]

oeldere,

Bij de code van Jack Nouws zat de fout bij het rode.

Sub tstJN()
  With Sheets("Blad1").UsedRange.Columns(8)
    .AutoFilter [COLOR="red"]8[/COLOR], "fout"
    .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
  End With
End Sub

 

[oeldere]

ExcelAmateur,

bedankt voor de toevoeging.

deze heb ik getest en deze werkt perfect. :thumb:

Heb je ook een oplossing voor de versie zonder autofilter?

 

[ExcelAmateur]

ExcelAmateur,
bedankt voor de toevoeging.
deze heb ik getest en deze werkt perfect.
Heb je ook een oplossing voor de versie zonder autofilter?

Ik zal er naar kijken maar beloof niets.

Als ik in de code ben werk, gebruik ik F8 om te zien wat er gebeurd per regel.

 

[ExcelAmateur]

oeldere,

Als je de code van Danny147 met F8 door loopt zal je zien dat als hij regel 4 heeft verwijderd het geheel opschuift.
De code gaat nu naar regel 5 kijken (de volgende cl dus) en daar staat "goed"

Eigenlijk zouden de regels moeten blijven staan en op het laatst als alle "fout" zijn verwijderd, het geheel weer aansluitend moeten maken.

Ik hoop dat je er nu mee verder kunt.

De code van Jack Nouws werkt toch perfect waarom dan de andere code gebruiken?

Suc6

 

[Jack Nouws]

Heb je ook een oplossing voor de versie zonder autofilter?

Bij deze zonder het gebruik van een filter.

Bekijk bijlage 110597

Met vr gr
Jack

 

[oeldere]

oeldere,

De code van Jack Nouws werkt toch perfect waarom dan de andere code gebruiken?

Suc6

Beste ExcelAmateur,

bedankt voor de tijd en moeite (en uiteraard de oplossing). :thumb:

omdat je in die oplossing eerst een filter moet aanbrengen.
als dat niet nodig is, werkt het nog gemakkelijker en gemak dient de mens.

super bedankt voor de opmerkingen.

 

[ExcelAmateur]

oeldere,

Voor de andere code van Jack Nouws heb ik het probleem gevonden.
Hij ziet enkel maar 3 regels.
Als je in kolom H de cellen H1 en H2 iets inzet werkt hij wel.
Nu ziet hij 20 regels.
Dus stel ik voor daar iets in te zetten en dan de kleur wit te nemen (zie je het niet)
Test het maar.

Ik heb gezien wat Jack Nouws heeft veranderd en dit kun je dus even aanpassen.

Private Const Kolom As String = "H"
Private Const StartRij As Long = [COLOR="red"]1[/COLOR] dit moet een [COLOR="red"]4[/COLOR] worden.
Private Const ZoekItem As String = "fout"

 

[oeldere]

Bij deze zonder het gebruik van een filter.

Bekijk bijlage 110597

Met vr gr
Jack

Beste Jack,

nu zie ik het ,
je begint op rij 4 (is eerste gevulde cel).

gaat de code stuk als je in een lege cel (H1) - zoals in mijn voorbeeld - begint?

 

[oeldere]

oeldere,

Voor de andere code van Jack Nouws heb ik het probleem gevonden.
Ik heb gezien wat Jack Nouws heeft veranderd en dit kun je dus even aanpassen.

Private Const Kolom As String = "H"
Private Const StartRij As Long = [COLOR="red"]1[/COLOR] dit moet een [COLOR="red"]4[/COLOR] worden.
Private Const ZoekItem As String = "fout"

bedankt ExcelAmateur voor het geduld. :thumb:
ik had 'm zelf intussen ook gevonden (zie de vorige post).
ik wil oplossingen graag begrijpen, zodat ze in de toekomst ook gebruikt kunnen worden.

ik heb hier weer veel van geleerd.

 

[danny147]

Beste Oeldere

Is deze opgelost of had je nog vragen bij deze ?

Vergeet anders de topic niet op opgelost te plaatsen !!!

Groetjes Danny. :thumb:

 

[oeldere]

iedereen bedankt voor z'n of haar inbreng. :thumb:

deze vraag is nu opgelost.