Here is a simple one that checks for certain text (Beauty) in column C of the current sheet and deletes the entire row if it is found
Dim i1 As Long
Dim iMax As Long
Dim sText As String
sText = "Beauty"
sText = LCase(sText)
iMax = Cells.SpecialCells(xlCellTypeLastCell).Row
For i1 = iMax To 1 Step -1
If InStr(1, LCase(Cells(i1, 3)), sText) <> 0 Then
: I am trying to write a small piece of code for an Excel macro. I am
: working with some ladies here who use an excel spreadsheet to export
: some of the numbers from their system to their customer.
: I need a quick macro that can examine each line of the .xls file and
: if a certain phrase appears in a cell (for instance, any cell in
: column C) then have it delete that entire line.
: Additionally, if another macro (or maybe even an extension of the
: first macro, but it may be easier to have two separate macros) that
: could look at another row, like row FIVE, and if it contains all
: zeros for cells D-AA (or whatever it goes to) then I would like to
: have it remove that entire row if it has nothing but zeros from a
: certain cell over.
: Any help would be greatly appreciated. I haven't had the privilege
: to work much with Excel with regards to creating macros and such.
: Thanks in advance!
VBA Tips & Tricks (http://vbadud.blogspot.com
C# Code Snippets (http:dotnetdud.blogspot.com