Verwijderen regels met speciale woorden.

[Dokman]

hallo,

ik heb en vraag over en code die ik van internet af heb gehaalt.
Zou er wat aanpassingen aan willen doen maar krijg het niet hellemaal voor elkaar.

Sub DeleteCells2()

     Dim rng As Range
     Dim i As Integer, counter As Integer
    
     'Set the range to evaluate to rng.
     Set rng = Range("J1:J10")
    
     'initialize i to 1
     i = 1
    
     'Loop for a count of 1 to the number of rows
     'in the range that you want to evaluate.
     For counter = 1 To rng.rows.Count
    
          'If cell i in the range contains an "x",
           'delete the row.
           'Else increment i
            If rng.Cells(i) = "GB" Then
                rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
    
     Next

End Sub

Nu staat er in het excel bestand dat ik heb de volgende teksten

Jaar	Week	Bewerking	Bewtijd (uur)	Insteltijd (uur)	Productieorder	Einddatum	DatumScanOfEind	Artikel	ArtikelOmschrijving	Aantal in PO	Omschrijving PO	Operator	IsSpecial
2023	39	FMS630	1,7	0	PR090135	16-okt-23	27-sep-23	20138020	LIFT_FRAME_MACH_190_O30_CAT0-1	16,00	AMRP TECHM 21-9 # O	615
2023	39	FMS630	0,7	0	PR090135	12-okt-23	28-sep-23	2018099A	LIFTFRAME_MACH_480MM_50KN	2,00	AMRP TECHM 4-9 # O	882
2023	39	FMS630	2,7	0	PR090136	11-okt-23	25-sep-23	20223710	GB_HALF_QJ_MACH_BACK	5,00	FMSWK # O	27053
2023	39	FMS630	2,7	0	PR090134	11-okt-23	25-sep-23	20223700	GB_HALF_QJ_MACH_FRONT	5,00	FMSWK # O	27053
2023	39	FMS630	0,7	0	PR090135	9-okt-23	28-sep-23	20126200	GB_HALF_1552_FRONT_MACHINED	4,00	FMSWK # O	368
2023	39	FMS630	0,7	0	PR090135	6-okt-23	27-sep-23	2018099A	LIFTFRAME_MACH_480MM_50KN	2,00	AMRP TECHM 31-8 # O	882

Nu wil ik graag dat hij in colom J alles verwijdert met GB in de zin. Maar weet niet echt hoe ik dat moet invullen. Met sterretjes of iets anders.

Al vast bedankt.

 

[djutoch]

If rng.Cells(i) Like "GB*" Then

 

[peter59]

Of zonder VBA maar met power query.

 

[Dokman]

If rng.Cells(i) Like "GB*" Then

Dankje dat werkte alleen als ik mijn J10 verander naar J100 loopt alles vast.

Set rng = Range("J1:J10")

 

[AHulpje]

Of misschien zo:

Sub VerwijderRijenGB()
    With ActiveSheet.Range("J2").CurrentRegion
        .AutoFilter Field:=1, Criteria1:="GB*"
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete Shift:=xlUp
    End With
End Sub

 

[HSV]

@AHulpje,

Die code zal ook de kopteksten verwijderen, en na een aantal keren het gehele blad leegmaken.

Sub hsv()
With Cells(1).CurrentRegion
 .AutoFilter 10, "GB*"
  ActiveSheet.AutoFilter.Range.Offset(1).EntireRow.Delete
 .AutoFilter
End With
End Sub

 

[snb]

Sub M_snb()
  columns(10).replace "GB*",""
  columns(10).specialcells(4).entirerow.delete
End sub

 

[Dokman]

Sub M_snb()
  columns(10).replace "GB*",""
  columns(10).specialcells(4).entirerow.delete
End sub

Dank u wel hier kan ik verder mee.