Dear all,

I have the following simple code:-

Range("E20").Select
Selection.Copy

Cells.Find(What:="TECHNOLOGIES", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Once I have found what I am looking for I would like to move up 1 (one) cell
and then paste the data.

Can you help?
--
Thank you in advance for your Help

Selection.Offset(-1,0).Select
--
Gary''s Student - gsnu200747


"Hans Dummer" wrote:

Dear all,

I have the following simple code:-

Range("E20").Select
Selection.Copy

Cells.Find(What:="TECHNOLOGIES", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Once I have found what I am looking for I would like to move up 1 (one) cell
and then paste the data.

Can you help?
--
Thank you in advance for your Help

Thank you

"Gary''s Student" wrote:

Selection.Offset(-1,0).Select
--
Gary''s Student - gsnu200747


"Hans Dummer" wrote:

Dear all,

I have the following simple code:-

Range("E20").Select
Selection.Copy

Cells.Find(What:="TECHNOLOGIES", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Once I have found what I am looking for I would like to move up 1 (one) cell
and then paste the data.

Can you help?
--
Thank you in advance for your Help