Entire Row Delete - How to use in i Sheet 2? See function

[NeewBie]

Hi,

I wonder how I can use the function downside on sheet 2 and not in sheet 1. Can someone please help me?

Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A632").End(xlUp))
Do
Set myRange = SrchRng.Find("XYXYXYXY", LookIn:=xlValues)
If Not myRange Is Nothing Then myRange.EntireRow.Delete
Loop While Not myRange Is Nothing

Cheers!!!

 

[pjmorris]

Hi Neewbie, welcome to the forum.

Does this help:

Set SrchRng = ActiveSheets("Sheet2").Range("A1", ActiveSheet.Range("A632").End(xlUp))
    Do
        Set myRange = SrchRng.Find("XYXYXYXY", LookIn:=xlValues)
        If Not myRange Is Nothing Then myRange.EntireRow.Delete
    Loop While Not myRange Is Nothing

Regards

 

[Andrew Poulsom]

Do you mean?

Set SrchRng = Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Range("A632").End(xlUp))

 

[pjmorris]

snap

 

[Andrew Poulsom]

snap

Not quite. Compare again.

 

[pjmorris]

Hmmm, Thanks Andrew - i really ought to read more carefully!

 

[NeewBie]

Thanks for the respons! I have try this but still dont work. I have alot of loops in the script that after dubuggingg the result writes in sheet 2. Where in the script schould I place the this script:


Set SrchRng = ActiveSheets("Sheet2").Range("A1", ActiveSheet.Range("A632").End(xlUp)) Do Set myRange = SrchRng.Find("XYXYXYXY", LookIn:=xlValues) If Not myRange Is Nothing Then myRange.EntireRow.Delete Loop While Not myRange Is Nothing
</pre>

 

[Andrew Poulsom]

Did you try?

Set SrchRng = Worksheets("Sheet2").Range("A1", Worksheets("Sheet2").Range("A632").End(xlUp))
Do
    Set myRange = SrchRng.Find("XYXYXYXY", LookIn:=xlValues)
    If Not myRange Is Nothing Then myRange.EntireRow.Delete
Loop While Not myRange Is Nothing