Finding one word in a Column

[Walter]

I have a workbook that has several spreadsheets. Sheet 1 is the sheet that I
use to total the information from the other sheets. These other sheets have
information download daily into them which comes from a special web page that
was created for our company. So these web downloads have some information
that I am not needing, but the particular word can be in any particular row,
but will always be in column A. I use this word as my control point to see
where to go to get the information that I need, and this starting point
changes daily.

So what I am needing is a formula that will locate this word, it will always
be in column A, and then drop down one line and over two columns to get the
information that is needed.

As an example lets say that I’m looking for the word “Name†in column A; in
column C is showing today “Appleâ€, and then in column D showing a percent of
20%. This last bit of information is what I need to gather by way of a
formula. I have cut and pasted this information from several sheets into
sheet 1 each day, and I’m getting tired of doing that so was wondering, if
there was a formula that could take care of this.

 

[Don Guillett]

You could use a FIND macro and then OFFSET
or formulas
MATCH to find the row and then INDEX to find the cell from there.

 

[Walter]

I have never used several of those formula commands that you are referring
to. I tried this morning using the Find function option found under "Edit",
but I couldn't get it to go to the right sheet to look up the word that I
wanted.

 

[Don Guillett]

Here is a formula using my suggestion.
=INDEX(C:C,MATCH("Thu",A:A,0)+1)
If you want a macro solution, record a macro to select your sheet and then
use the edit find function. Then clean it up like this. Change the sheet and
mywhat to suit

Sub findvalueandoffset()
mywhat = "Thu"
With Sheets("Sheet13").Columns("A")
Set mv = .Find(What:=mywhat, After:=.Cells(1, 1), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not mv Is Nothing Then MsgBox mv.Offset(1, 2)
End With
End Sub

 

[Walter]

Thanks for your help trying it right now