Hi Michael,
There was a code somewhere on the forum that allows to perform action similiar to CTRL+F. Below is that code that I'm using to search quickly in Excel:
Dim excel, sheet As Object
Try
sheet = GetWorksheet(Handle, Workbook, Worksheet)
excel = sheet.Application
If Range="""" Then
Message = ""No Range provided""
Else
sheet.Activate
sheet.Range(Range).Find(What:=Value, LookIn:= _
-4163, LookAt:=1, SearchOrder:=1, SearchDirection:= _
1, MatchCase:=False, SearchFormat:=False).Activate
CellRef = excel.ActiveCell.Address
End If
Catch e As Exception
Message = e.Message
Finally
excel = Nothing
sheet = Nothing
End Try
I created another page in Excel VBO for it and it worked just fine for 8000 rows but it may not be useful when there are duplicates in selected range.
Inputs: handle, Workbook, Worksheet, Range (range where You want to search), Value (searched value)
Outputs: CellRef, Message
Best regards
Michal