Macro required

[tagger1]

Hi
I cant seem to work this one out myself.

Require a macro to do the following;

Search a column range A225 to A2500 for a number match to whatever number has been entered in A13.
When cell with matching number found then cut that row from A to H and paste it to Row A13 to H13.

All help greatly appreciated

 

[AlphaFrog]

Hi and welcome.

Sub Find_and_Move()
    Dim Found As Range
    If Range("A13") <> "" Then
        Set Found = Range("A225:A2500").Find(Range("A13"), , xlValues, xlWhole, xlRows, xlNext, False)
        If Not Found Is Nothing Then
            Found.Resize(, 8).Cut Destination:=Range("A13")
            'Found.Resize(, 8).Delete Shift:=xlShiftUp
        Else
            MsgBox "No match found for " & Range("A13").Value, vbExclamation, "No Match"
        End If
    Else
        MsgBox "Cell A13 is empty.", vbInformation, "Search Canceled"
    End If
End Sub

 

[tagger1]

Excellent.
Thankyou