copy find-paste

Hello,

I would like to create macro, where it would on macro run copy text from active cell and find that value in another sheet (in column H) and select that cell.

What I did is this:

    Selection.Copy
    Sheets("sheet2").Select
    Columns("H:H").Select
    Cells.Find(What:=Paste, LookAt:=xlPart, SearchOrder:=xlByColumns).Activate

But this results in empty cell in the last non empty row in column A

Thanks for help,
Vito.

This is a bit crude but should do what you want. Note it will error if more than one cell is selected

Sheets("sheet2").Columns("H:H").Find(What:=Selection.Value, LookAt:=xlPart, _
        SearchOrder:=xlByColumns).Activate

This will do what you want

 Dim cl     As Range
    Dim sFind  As String

    sFind = Selection.Value
    With Sheets("sheet2")
        Set cl = .Columns("H:H").Find(What:=sFind, LookAt:=xlPart)
        If Not cl Is Nothing Then Application.Goto .Range(cl.Address)
    End With

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save