Using Find Function in VB

[Tuff]

Hi Guys I am stuck.

I am using the find function to get a cell reference in an excel spreadsheet, but then I need to move up one cell (as it is the cell above the one it finds that I want to delete).

I can get it go to the cell that I want it to find, but then I can get it to move one cell UP.

How do I do it?

 

[TonyJollans]

Hi Tuff,

Use Offset. You can do it all in one with the Find if you like.

Cells.Find(What:="SearchText", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Offset(-1).ClearContents

Or if you want to separate it out, after the Find code:

ActiveCell.Offset(-1).ClearContents

Enjoy,
Tony

 

[Tuff]

Thanking you.

Worked perfectly