VBA code to delete rows based on certain criteria (match case)

[deletedalien]

Hi there,

so i have a couple of questions but they the end result is basically the same...

i need to delete rows...

firstly i would need a macro to delete all rows that contain a lowercase Z
(usually should be found in column "A")

Next i would need to delete all rows that contain an empty cell in a certain column...
(also varies)

lastly i would need to delete all rows in column "E" that contain Zeros but ONLY if the value in column "D" has a value greater than zero..



now i don't know if the first 2 can be combined using an inputbox.

but im pretty sure the last one has to be a separate macro which is totally ok.

i hope i have provided enough information, otherwise please feel free to let me know.

Thanks in advance for any help.

 

[ranman256]

Sub DeleteMyRows()
Dim r As Long, iRows As Long
Dim vWord
Const kColD = 3
Const kColE = 4
Const kColF = 5


iRows = ActiveSheet.UsedRange.Rows.Count
Range("A" & iRows).Select


Sheets("sheet1").Select


  'we must delete in reverse row order..duh.
For r = iRows To 2 Step -1
   Cells(r, 1).Select
   vWord = Trim(ActiveCell.Value)
   
      'Delete if the whole cell is 'z' OR the cell has a word and the word has a 'z'???
   If vWord = LCase("z") Then Del1Row r
   
         'delete row if cell F is blank
   'If ActiveCell.Offset(0, kColF) = "" Then Del1Row r
   
       'delete row if cell E =zero AND col D>0
   If ActiveCell.Offset(0, kColE).Value = 0 And ActiveCell.Offset(0, kColD).Value > 0 Then Del1Row r
Next
End Sub


Private Sub Del1Row(r)
Rows(r & ":" & r).Delete
End Sub

 

[deletedalien]

Sub DeleteMyRows()
Dim r As Long, iRows As Long
Dim vWord
Const kColD = 3
Const kColE = 4
Const kColF = 5


iRows = ActiveSheet.UsedRange.Rows.Count
Range("A" & iRows).Select


Sheets("sheet1").Select


  'we must delete in reverse row order..duh.
For r = iRows To 2 Step -1
   Cells(r, 1).Select
   vWord = Trim(ActiveCell.Value)
   
      'Delete if the whole cell is 'z' OR the cell has a word and the word has a 'z'???
   If vWord = LCase("z") Then Del1Row r
   
         'delete row if cell F is blank
   'If ActiveCell.Offset(0, kColF) = "" Then Del1Row r
   
       'delete row if cell E =zero AND col D>0
   If ActiveCell.Offset(0, kColE).Value = 0 And ActiveCell.Offset(0, kColD).Value > 0 Then Del1Row r
Next
End Sub


Private Sub Del1Row(r)
Rows(r & ":" & r).Delete
End Sub

i know im REALLY dumb but...

i get an error....


Sub or function not defined