Moving up one cell
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 |
Moving up one cell
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 |
Moving up one cell
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 |
All times are GMT +1. The time now is 10:45 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com