Checking for cell value and n number of cells below cell

[Luke777]

Hi all,

Having trouble getting a bit of code to do what I want.

Basically I'm looking for a way of testing for a particular string in a cell then, if found, test n number of cells underneath that cell for the same string. If they ALL contain the same string THEN do the rest of my code. At any point when testing for the string, if its NO then skip to the Next Cell (makes more sense when you look at my code I think because I've not explained the For Each Cell).

        For Each cell In Range(Cells(searchRow, 3), Cells(searchRow, lastCol))
            If cell.Value = "yes" Then
                For Y = 1 To tSlots
                    If cell.Offset(Y, 0).Value <> "yes" Then
                        GoTo NextCell
                    ElseIf cell.Offset(Y, 0).Value = "yes" Then
                        If Y = tSlots Then
                            s = s & "," & cell.Address 'this is the part I'm referring to as "The rest of my code" - this is the part that runs if all Y.value = "yes"
                        ElseIf Y <> tSlots Then GoTo NextY
                        End If
                    End If
NextY:
                 Next Y
            End If
NextCell:
        Next cell

I came up with that which combines a few bits from other questions I've asked in the past (if you're one of those folks then thanks!) and yeah, I know its a mess at the moment lol - but I was trying to bodge it a little before tidying it up.

I'll post any additional tidier methods I try in the meantime

Thanks all!

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitize