View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz JLGWhiz is offline
external usenet poster
 
Posts: 3,986
Default error in macro (next related i think)

I'm not so sure that is a good idea. eliano. Using Or would cause it to
equal True if one of the words appear in the cell. I believe he wants it to
be true only if neither of the the words appear.

"eliano" wrote:

Hi steven.
Try to change:

If Cells(i, "e") < "overhead" And _
Cells(i, "e") < "OPERATIONS" Then Rows(i).Delete


as:

If Cells(i, "e") < "overhead" Or _
Cells(i, "e") < "OPERATIONS" Then Rows(i).Delete


Probably the cells cannot contain "overhead" AND
"OPERATIONS" but OR the First OR the second.
Regards
Eliano

On 3 Giu, 23:31, steven wrote:
Hi, i use the following macro to delete rows from a worksheet

Sheets("MOBILE TOTAL").Select
lr = Cells(Rows.Count, "e").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "e") < "overhead" And _
Cells(i, "e") < "OPERATIONS" Then Rows(i).Delete
Next i

eveerything works fine, now i want to use it to delete rows 4 differest
worksheets in the same workbook so i figure i make it like this:

Sub MOBILEKAPNISIS()

Sheets("MOBILE TOTAL").Select
lr = Cells(Rows.Count, "e").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "e") < "overhead" And _
Cells(i, "e") < "OPERATIONS" Then Rows(i).Delete
Next i

Sheets("VOICE TOTAL").Select
lr = Cells(Rows.Count, "e").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "e") < "overhead" And _
Cells(i, "e") < "OPERATIONS" Then Rows(i).Delete
Next i

Sheets("BLACKBERRY TOTAL").Select
lr = Cells(Rows.Count, "g").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "g") < "overhead" And _
Cells(i, "g") < "OPERATIONS" Then Rows(i).Delete
Next i

Sheets("DATA TOTAL").Select
lr = Cells(Rows.Count, "g").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, "g") < "overhead" And _
Cells(i, "g") < "OPERATIONS" Then Rows(i).Delete
Next i

End Sub

but nope it dosent work, anyone can help me out?

thanks in advance.