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..

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
--
Regards,
Sébastien
<http://www.ondemandanalysis.com>


"me" wrote:

> 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..

On 24 Nov., 04:46, me <m...@discussions.microsoft.com> wrote:
> 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

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

"me" wrote:

> 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..