Deleting a word form a worksheet

[fausat]

Hi

I am new to Macros and hoping this website will support me in learning and grasping the concept of macros. I need to write a macro that will delete a row in a work sheet with with the work total.

Thanks

 

[ravishankar]

Hi
Assuming you are searching the word total in col A
Paste the following codes in the macro window(alt f8)

x = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To x
If InStr(Cells(a, 1), "Total") > 0 Then
Rows(a).Delete
End If
Next a

Run the macro
It will delete all rows containing the word "Total" (Ensure uppercase and lower case letters match)
Ravi

 

[Boller]

"the work total"

Do you mean "the word "total" " ?

If so, is there a particular column that you want to search?

Do you want to find one cell only, or might there be more than one cell?

Do you want to find cell(s) where the whole cell equals "total", or only cell(s) where "total" is part of the cell?

 

[Jonmo1]

ravishankar,

I think you'll need to make that go backwards, from the last row working up. Otherwise, if there is Total in 2 rows in a row, it will skip the 2nd.

if you have Total in A1 and A2, only row 1 will be deleted. Because after deleting row 1, what was in row 2 is now in row 1. Then it loops and it will be looking at row 2 next.

x = Cells(Rows.Count, 1).End(xlUp).Row
For a = x To 1 Step -1
If InStr(Cells(a, 1), "Total") > 0 Then
Rows(a).Delete
End If
Next a