Macro file to search CSV and then re save

Hello,

Not sure if this is even do-able but worth asking as it would make my life a lot easier....

I have a program that sends out questionnaires (for staff appraisals) Users fill in their answers and then submit the form.

I then download the submitted answers in csv format. Once it is downloaded I need to find one specific person from the list and move them to the top row then save the file as an excel spreadhsheet.

At the moment I am doing this manually. Can anyone think of a way to run something so I basically select the file I want to run it on then type in the name of the person to move and it moves it and saves the file as an .xls?

Any ideas?

Cheers guys

p.s here is the Macro:

Sub MikeTest()
'
' MikeTest Macro
' Macro recorded 03/11/2010 by test
'

'
    Cells.Find(What:="test", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Rows("3:3").Select
    Range("AX3").Activate
    Selection.Cut
    ActiveSheet.Paste
    ChDir "C:\Documents and Settings\\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Desktop\Test.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Try this:

Option Explicit

Sub MikeTest()
Dim vFIND As String
Dim vFOUND As Range

vFIND = Application.InputBox("Search for what string?", "Search string", "test", Type:=2)
If vFIND = "False" Then Exit Sub

On Error Resume Next
Set vFOUND = Cells.Find(vFIND, LookIn:=xlFormulas, LookAt:=xlPart)
If Not vFOUND Is Nothing Then
    With Rows(vFOUND.Row).SpecialCells(xlConstants)
        .Copy Range("AX3")
        .Clear
    End With
End If

ActiveWorkbook.SaveAs "C:\Documents and Settings\Desktop\Test.xls", xlNormal
End Sub

You should edit the post above and change those [QUOTE] tags to [CODE] tags.

It's copying the cells with data in them on that row to cell AX3, look over in AX3.

Using words, can you describe what it's supposed to a little more clearly? Or post a sample worksheet with a BEFORE/AFTER example?

I dont think the tread title matches your question anymore.
See the attachment.
Enter an 'a' in column G adjacent to the person you want to be 'promoted'., Enter