Find and find next

[AC PORTA VIA]

trying to find code to look for input box value and offset input box value in other column as well as time stamp and user in other offset columns
however if find value have date in offset column look in other row or find next as long as there is not date in offset value
so if I am looking for 23907 it should find same value in row 6 since other two values in column 1 and 5 already have date in column AQ

 

[shknbk2]

Finding all of the cells with 23907, for example, is really easy if you import the module file from Chip Pearson's website. In the introduction on the page, you will find a link to a zip file with a .bas file that you can import into your workbook. Once you unzip the file, you can drag and drop it into the VBAProject for your workbook or us File->Insert file to find it. It will put in a module called modFindAll64 into your VBE project. I use this module in many projects because it is so easy.

An example of using it in a project based on your request is below. In another module, I put the following code based on your picture, and it found AI6 as the target cell to use with no problems.

Sub FindRow()
    Dim c As Range, cFound As Range
    Dim SearchTerm As String
   
    SearchTerm = "23097"
    Set cFound = FindAll(Range("AI:AI"), SearchTerm, , xlPart)
    For Each c In cFound
        If Cells(c.Row, Range("AQ1").Column).Value = "" Then
            Exit For
        End If
    Next
    If Not c Is Nothing Then
        'do whatever you need here with the row
        'c is the cell with the searchterm in the row that has the blank date
    End If
End Sub

 

[AC PORTA VIA]

Finding all of the cells with 23907, for example, is really easy if you import the module file from Chip Pearson's website. In the introduction on the page, you will find a link to a zip file with a .bas file that you can import into your workbook. Once you unzip the file, you can drag and drop it into the VBAProject for your workbook or us File->Insert file to find it. It will put in a module called modFindAll64 into your VBE project. I use this module in many projects because it is so easy.

An example of using it in a project based on your request is below. In another module, I put the following code based on your picture, and it found AI6 as the target cell to use with no problems.

Sub FindRow()
    Dim c As Range, cFound As Range
    Dim SearchTerm As String
 
    SearchTerm = "23097"
    Set cFound = FindAll(Range("AI:AI"), SearchTerm, , xlPart)
    For Each c In cFound
        If Cells(c.Row, Range("AQ1").Column).Value = "" Then
            Exit For
        End If
    Next
    If Not c Is Nothing Then
        'do whatever you need here with the row
        'c is the cell with the searchterm in the row that has the blank date
    End If
End Sub

thanks for your respond
your code errors out on this line highliting FindAll

Set cFound = FindAll(Range("AI:AI"), SearchTerm, , xlPart)

Sub or Function not defined

 

[shknbk2]

Did you insert the module from the link I referenced?

 

[AC PORTA VIA]

Did you insert the module from the link I referenced?

i got it working after all
thanks