Several macro in one macro

[heimly]

I use Excel 2007.
I wish to delete row that contain Various contents

I have tryed following code. It stop on what = "Fail" or "Loggoff"

sub Fail()
Dim rng as Range
Dim what As String
what = "Fail" or "Loggoff"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
End sub

Thanks Erik

 

[Gavona]

Your variable "what" can contain a single string.
Find can only look for a single string.
So for starters change
what = "Fail" or "Loggoff"
to
what = "Fail"
and loop around a second time for he other search value.

If you lookup VBA help on the FindNext method you will find some useful code to adapt.

Gavin

 

[SkipVought]

You must do a Find using one value at a time.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

...
Dim what As String
For Each what in Array("Fail", "Loggoff")
   Do
...
   Loop
Next
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886