Beste Iedereen,
hierbij het script wat ik tot nu toe gemaakt heb.
het is de bedoeling dat onderstaande script in een excel bestand zoekt naar "MFN " en dan die rij verwijderd,
en dit dan blijft doen todat alle rijen gecontroleerd zijn. en dus alle rijen met MFN weg zijn.
hierna moet de Sub afsluiten
ik krijg het wel voor elkaar dat dit script er 1 verwijderd, als MFN niet voorkomt dan komt VBA met een foutmelding.
heeft iemand een idee hoe ik dit kan oplossen?
Alvast ontzettend bedankt voor je moeite!!!
Greets
DuckieNL
hierbij het script wat ik tot nu toe gemaakt heb.
het is de bedoeling dat onderstaande script in een excel bestand zoekt naar "MFN " en dan die rij verwijderd,
en dit dan blijft doen todat alle rijen gecontroleerd zijn. en dus alle rijen met MFN weg zijn.
hierna moet de Sub afsluiten
ik krijg het wel voor elkaar dat dit script er 1 verwijderd, als MFN niet voorkomt dan komt VBA met een foutmelding.
heeft iemand een idee hoe ik dit kan oplossen?
Code:
Sub DeleteMFN()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = Selection.Rows.Count To 1 Step -1
If Cells.Find(What:="MFN ", LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=x1Previous, MatchCase:= _
False, SearchFormat:=False).Activate Then
Selection.Rows().EntireRow.Delete
Else
Exit For
End If
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Alvast ontzettend bedankt voor je moeite!!!
Greets
DuckieNL