Macro to copy and paste values in a selected row

I have a database of customer details and people can use a data form to browse through to look for ID numbers. You then click on another button that has the macro i have pasted beneath and you type in the ID and it finds and selects the row it is in, i then want to copy certain values in that row and paste on another sheet in specific cells and i need this to work each time the row is different, can anyone help please???

Here is the macro

Sub findvalue()
Search = Val(InputBox(prompt:="Enter Customer ID"))

Columns("A:A").Select
For Each cell In Selection
If cell.Value = Search Then
cell.Select
End If
Next cell

End Sub

Please edit your post to use code tags per the forum rules.

Dom

Thanks. If you can I think it would also help to see a workbook with a sample of your data and the result that you are expecting.

Dom

How about in one go?

Sub findvalue()

    Dim strSearch As String
    Dim rngFindRange As Range

    strSearch = InputBox(prompt:="Enter Customer ID")

    With Sheets("Sheet1")
        Set rngFindRange = .Range("A9:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(strSearch, _
            LookIn:=xlValues, lookat:=xlWhole)
    End With

    If Not rngFindRange Is Nothing Then
        With Sheets("Sheet2")
            .Range("D4") = rngFindRange.Offset(0, 2)
            .Range("D6") = rngFindRange.Offset(0, 3)
            .Range("D8") = rngFindRange.Offset(0, 4)
            .Range("D10") = rngFindRange.Offset(0, 5)
            .Range("D12") = rngFindRange.Offset(0, 6)
            .Range("D14") = rngFindRange.Offset(0, 7)
            .Range("D16") = rngFindRange.Offset(0, 8)
            .Range("D18") = rngFindRange.Offset(0, 9)
            .Range("D20") = rngFindRange.Offset(0, 10)
            .Range("D22") = rngFindRange.Offset(0, 11)
        End With
    Else
        MsgBox "Customer ID not found.", vbExclamation
    End If

End Sub

Dom

Glad I could help . Please mark the thread solved if you are happy with the solution.

Dom

will do, thanks again!