Rijen verwijderen die niet voldoen aan voorwaarde uit kolom (Edmoor)

[Lisette2016]

Ik heb de laatse keer een mooie code gehad (Edmoor) om regels te verwijderen die niet voldoen aan een voorwaarde in een kolom.
Deze code wil ik ook uitvoeren op een ander bestand, maar werkt alleen als ik een kopie maak van een tab van het werkblad (krijgt dan naam "Map1")


Code:
Dim i As Long
With ActiveWorkbook.Sheets(1)
For i = 1000 To 1 Step -1
Select Case .Cells(i, "H")
Case "Facturatie Hal A", "Urenfacturatie Hal B"
Case Else
.Rows(i).Delete
End Select
Next i
End With


End Sub

 

[edmoor]

De wijziging:

    Dim i As Long
    With [COLOR="#FF0000"]Sheets("Naam van je blad")[/COLOR]
    For i = 1000 To 1 Step -1
        Select Case .Cells(i, "H")
            Case "Facturatie Hal A", "Urenfacturatie Hal B"
            Case Else
            .Rows(i).Delete
        End Select
    Next i
    End With

 

[Lisette2016]

Geweldig Edmoor, loopt als een trein.!!
Bedankt

Gr. lis

 

[snb]

sneltrein ?

Sub M_snb()
  with Sheets("Naam van je blad")
    sn=.usedrange.columns(8)

    for j=1 to ubound(sn)
      if instr("_Facturatie Hal A_Urenfacturatie Hal B_","_" & sn(j,1) & "_")=0 then sn(j,1)=""
    next
 
    .usedrange.columns(8)=sn  
    .columns(8).specialcells(4).entirerow.delete
   end with
End Sub