delete rows when finding certain content.

[me]

In a data containing worksheet, in column "A"
I would like to write a macro which finds the cell with content
"text2delete" and delete all the rows below including this "text2delete" row.


Something like below. Any help will be appreciated greatly. Thanks

Sub content_del()
$A = Find "text2delete" entered value at A1 column
then

Range(A$:A65000").Select
Selection.EntireRow.Delete
End Sub


or if it is easier this way,

delete all the rows A column value as "text2delete"

I guess this code should work for me.

Any help is greatly appreciated. Thanks..

 

[sebastienm]

Hi,
try something like:

dim rg as range
''' find the cell
set rg= activesheet.range("a:a").Find
(what:=<your_text>,lookin:=xlValues,...)
''' delete the rows bellow including rg
if not rg is nothing then
set rg=range(rg,rg.parent.cells(65536,1))
rg.entirerow.delete
end if

 

[Per Jessen]

In a data containing worksheet, in column "A"
I would like to write a macro which finds the cell with content
"text2delete" and delete all the rows below including this "text2delete" row.

Something like below. Any help will be appreciated greatly. Thanks

Sub content_del()
$A = Find "text2delete" entered value at A1 column
then

Range(A$:A65000").Select
Selection.EntireRow.Delete
End Sub

or if it is easier this way,

delete all the rows A column value as "text2delete"

I guess this code should work for me.

Any help is greatly appreciated. Thanks..

Try this:

Sub DeleteText()
LookFor = "text2delete"

Range("A1").EntireColumn.Select
Selection.Find(What:=LookFor, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Select

Regards,

Per

FirstCell = Selection.Address
LastCell = Range(FirstCell).End(xlDown).Address
Range(FirstCell, LastCell).Delete

End Sub

 

[thefirstcybot]

Try going to www.learningiseasy.co.uk and look at the marco page and you will
find a marco to do this and maybe some more stuff. I started creating this
website but due to the lack of visitors I have not updated it for ages.

Hope this helps