Search within Search

[WhoCanDo]

Hi,

I am trying to search for text in column A and once found, then search for text below that point. The following does find the first text XYZ but the second find does not limit it's search to below XYZ line.

What am I doing wrong?

    With Range("A:A")
        Set c = .Find("XYZ")
            If Not c Is Nothing Then
                firstAddress = c.Address ' Finds $A$222
                Do
                    With Range(Cells(1, c.Row).Address, Cells(Cells(c.Row, "A").End(xlDown).Row, 1).Address)
                        For i = FirstRow To LastRow
                            Set d = .Find(My_List(i - FirstRow)) ' My_List is an array of text
                                If Not d Is Nothing Then
                                    secondAddress = d.Address ' Finds $A$91
                                    Do

 

[WhoCanDo]

Ok. Silly me.

"With Range(Cells(1, c.Row).Address" should be "With Range(Cells(c.Row, 1).Address"

The Cells row & column are the wrong way around.

 

[yky]

Have you tried .findnext method?

 

[pvr928]

Hi WhoCanDo

This is my go to reference for .find and .findnext.

See Section 3. Adapt as necessary.

http://www.siddharthrout.com/2011/07/14/find-and-findnext-in-excel-vba/

Cheers

pvr928