nog een waarde toevoegen aan een code

[Lisette2016]

Hallo,

Ik heb een macro die alle regels verwijderd als er in kolom F geen "100" staat.
Nu zou ik nog 2 waardes willen toevoegen : 101 & 102
Ik heb met "or"geprobeerd, maar helaas.


Dim i As Long

With ActiveWorkbook.Sheets(1)

For i = 1000 To 1 Step -1

If Not .Cells(i, "F") = "100" Then

.Cells(i, "F").EntireRow.Delete

End If

Next i

End With


gr. Lis

 

[edmoor]

Probeer deze eens:

Dim i As Long

With ActiveWorkbook.Sheets(1)
    For i = 1000 To 1 Step -1
        Select Case .Cells(i, "F")
            Case 100, 101, 102
            Case Else
                .Rows(i).Delete
        End Select
    Next i
End With

 

[Lisette2016]

Edmoor, doet het perfect, super bedankt