Rijen verwijderen indien niet de waarde XYZ

[raey]

Had een klein vraagje,

Hoekan ik alle rijen in een werkblad verwijderen indien deze rij niet de waarde XYZ bevat?

thnx in advance

raey

 

[exhelp]

Sub verwijderen()

Dim lastrow As Long
Dim a As Integer
Dim hide As Range

With ActiveWorkbook.Sheets(1)
'kolom 1 gebruikt om het aantal rijen te tellen, gebruik altijd een kolom die steeds gevuld is
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

For a = 2 To lastrow
    If Not .Cells(a, "A") = "XYZ" Then
        If hide Is Nothing Then
            Set hide = .Cells(a, "A").Cells
        Else
            Set hide = Application.Union(hide, .Cells(a, "A").Cells)
        End If
    End If
Next a

If Not hide Is Nothing Then hide.EntireRow.Delete

End With
End Sub

 

[raey]

Bedankt exhelp...

maar waar juist moet ik dit invullen?

raey

 

[ExcelAmateur]

raey
Bedankt exhelp...

maar waar juist moet ik dit invullen?

Dit is een macro en deze moet je in een Module zetten.
Op het blad maak je een knop en verbind deze dan aan de macro.
Druk je dan op de knop en de macro het werk voor je doen.