Finding a row in Excel

[callumwk]

Hey,

I need to make a section of code that will search for a term like "1000" and find the row that contains it. (there will never be two the same) and then save that row.

I have this for finding the last row edited:

  Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        Dim LastRow As Long
        Dim lastjn As Integer
        Dim newjb As Integer

        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Open(My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\job.xlsx")
        oSheet = oBook.worksheets(1)

        LastRow = oSheet.UsedRange.Rows.Count

So im guessing it will be simular, just searching for a term instead of last edited.

Thanks

[dday9]

Take a look at this option:

Dim cell As String
For x As Integer = 1 To range.Rows.Count
    For y As Integer = 1 To range.Columns.Count
        cell = DirectCast(range.Cells(x, y), Excel.Range).Value.ToString()
        If cell = "1000" Then
            'This cell equals 1000, do something with it
        End If 
    Next
Next

[callumwk]

Take a look at this option:

Dim cell As String
For x As Integer = 1 To range.Rows.Count
    For y As Integer = 1 To range.Columns.Count
        cell = DirectCast(range.Cells(x, y), Excel.Range).Value.ToString()
        If cell = "1000" Then
            'This cell equals 1000, do something with it
        End If 
    Next
Next

Do I need to Dim range as something?

[dday9]

Yeah, range would be the cells that you wanted to iterate through.