MyFind

[gmazza76]

Good Evening,

I am trying to create a Macro that will recognise a reference ( Number ) in a column, when it does i want it to drag information into a pre set format on another page

ie if the reference number is found i want it to pull in the information from the same line but column a, then B, etc....

Set MyFind = Columns(5).Find(what:=CellProcessNumber,   searchdirection:=xlNext, lookat:=xlWhole)
    If Not MyFind Is Nothing Then
        ExtractRow = MyFind.Row
    Else
        MsgBox "Cannot find value " & CellProcessNumber
        Exit Sub
    End If
    
    DValue = Cells(ExtractRow, 1)
    Sheets("Amend Quality").Cells(7, 7) = DValue

Currently the VB abobve finds the refence in the sheet specified but then states the error message and stopping on the cell it finds.

All help appreciated

 

[VoG]

Duplicate of http://www.mrexcel.com/forum/showthread.php?t=574481

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back

to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).