Find command

[redback]

Any help with looking up a value(Jeff) within a range of cells(A1:D1) and making that cell active using VB6.

Below is the beginning of the code which opens the excel documnet via VB. The part I'm having trouble with is what would go after this. Finding a cell value within a selected range and making that cell active.

Thanks

'file is already open from load procedure, calling from background
Set oBook = GetObject("C:mooseform.xls")
'make sheet 1 of file obook active
oBook.Worksheets(1).Activate
Set oSheet = oBook.Worksheets(1)
This message was edited by redback on 2002-11-01 14:28

 

[Damon Ostrander]

Hi RedBack,

I don't have VB6 handy to verify this, but I believe it should simply be:

'file is already open from load procedure, calling from background
Set oBook = GetObject("C:mooseform.xls")
'make sheet 1 of file obook active
oBook.Worksheets(1).Activate
Set oSheet = oBook.Worksheets(1)
oSheet.[a1:d1].Find("Jeff", LookIn:=xlValues, lookat:=xlPart).Activate