Formule in vba corrigeren

[stefano]

Bedoeling is alle rijen te verwijderen waarvoor in kolom B de celinhoud begint met ZZ.
Ik weet niet hoe ik de code aanpas. Kan iemand helpen aub. Waarvoor dank.

Sub Test()
For j = 2000 To 2 Step -1
    If Cells(j, 2).Value = "ZZ*" Then Cells(j, 2).Rows.EntireRow.Delete
Next j
End Sub

 

[Haije]

Zo wellicht?

Sub Test()
For j = 2000 To 2 Step -1
    If Cells(j, 2).Value = "ZZ*" Then Cells(j, 2).EntireRow.Delete
Next j
End Sub

 

[stefano]

Ik heb het nu aangepast naar

Sub Test()
For j = 2000 To 2 Step -1
    If Left(Cells(j, 2).Value, 2) = "ZZ" Then Cells(j, 2).Rows.EntireRow.Delete
Next j
End Sub

maar dat duurt lang .... wellicht kan het veel sneller

PS Haije, jouw voorstel werkt niet, wellicht de wildcard * na ZZ ?

 

[Haije]

en als je .Rows weglaat?

 

[edmoor]

Voor de snelheid, doe het zo:

Sub Test()
    sCalc = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    For j = 2000 To 2 Step -1
        If Left(Cells(j, 2).Value, 2) = "ZZ" Then Cells(j, 2).Rows.EntireRow.Delete
    Next j

    Application.Calculation = sCalc
    Application.ScreenUpdating = True
End Sub

 

[stefano]

Ojee, dat vliegt , dank je wel !!!

 

[VenA]

Voor snelheid gebruik je een andere methode

Sub VenA()
  With Cells(1).CurrentRegion
    .AutoFilter 2, "ZZ"
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub