Looping problems

[nada]

Hi! I have a problem with a loop. I want to search the entire worksheet for a cell that contains the text "Sec type". However there is one cell that contains "Sec type" that I do not want to search, ie if that cell is the only one found containing "Sec type" then the search will have found nothig. Thus, the cell (or the row) that I do not want search is SecID.row. Now the loop searches the spreadsheet but stores in c the forbidden SecID cell. My code:

With Range("b1:aa5000")
Set c = Worksheets("Beräkning").Cells.Find("Sec type", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Set c = .FindNext(c)
Loop While Not c Is Nothing And (c.Address <> firstAddress And (c.row = segment.row Or c.row = secID.row))
End If
End With

I assume that the problem is on the Loop row in the code but I do not know how to write this. Please help! Thank you very much in advance!

 

[jindon]

Not sure what you want to do...

With Range("b1:aa5000")
        Set c = Worksheets("Beräkning").Cells.Find("Sec type", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If c.Row <> segment.Row And c.row <> secId.row Then
                   ' code to do
                   flg = True
                End If
                Set c = .FindNext(c)
            Loop While c.Address <> firstAddress
            If Not flg Then MsgBox "Not Found"
         Else
            MsgBox "Not Found"
         End If
End With

 

[nada]

hi! sorry i might have been unclear. when the loop is finished I want to set c= Nothing or something to indicate that the I only found "Sec type" once and that was in the forbidden row (secID.row). Please help me with this! Thanks alot!

 

[jindon]

Like this?

With Range("b1:aa5000")
        Set c = Worksheets("Beräkning").Cells.Find("Sec type", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If c.Row = secId.row Then secId = secId + 1
                found = found + 1
                Set c = .FindNext(c)
            Loop While c.Address <> firstAddress
         Else
            MsgBox "Not Found"
         End If
End With
Set c = Nothing
If found = secId Then MsgBox "Only Found " & found & " cells that are all forbidden"