Hi All,
There is a monthly report that I have to generate and it takes a lot of time (2 days) to do it manually since it consists of 400 users to check row by row. I know VBA and Excel but it’s been a long time that I haven’t use it. So I will appreciate it if someone can help me.

  One of the excel files includes 3 columns. I need to read the fist column which are Names and find the names in the second excel file . For each of the findings I need to do some calculation based on other columns.

So what I need to know is how I can read a column row by row, search the names in other column and when I find it, I need to do some calculation. and If I don't find the names, I want to insert them at the buttom of the sheet maybe in Blue Color.

For example: I have excel file1 and file2.
From file2. I need to read column A from row 1 to row 300 or more. Then based on each row I need to find the names in file1.column A .
I hope I have explained it well

Thanks,
Dorsa

Hi, try this for size,

Sub mdl_FindWhizzyDo()
Dim myLines As Integer
Dim myName As String
Dim myLoop As Integer
Dim myFirstNameAddress As String
Dim myCurrAdd As String
    Workbooks("Book1").Activate
    Sheets("Sheet1").Select
    myLines = Range("A65535").End(xlUp).Row
    Workbooks("Book2").Activate
    Sheets("Sheet1").Select
    For myLoop = 1 To myLines
        myName = Workbooks("Book1").Sheets("Sheet1").Range("A" & myLoop).Value
        Cells.Find(What:=myName, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
            .Activate
        myFirstNameAddress = ActiveCell.Address
        Do Until myFirstNameAddress = myCurrAdd


            'do your processing here


            Cells.Find(What:=myName, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
                xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
                .Activate
            myCurrAdd = ActiveCell.Address
        Loop
        myFirstNameAddress = ""
        myCurrAdd = ""
    Next
End Sub


cheers

Matthew

Hi, Thanks very much for your answer, Could you pls tell me how I can specify if the name is not found in the sheet?

Thanks,
Dorsa