I have the following Macros for my spreadsheet to record my audit ratings for
10 different employees that I have listed in the drop down list. Problem I
have is that it will record 1 entry per employee. If I were to record 12 each
entries for each employee, how do I record the macro to do such a task?

Here is my current Macro:

Sub ENTER_DATA()
'
' ENTER_DATA Macro
' Macro recorded 8/5/2007 by KIMO GLORY
'

'
Set NameRange = Sheets("Repairables"). _
Range("A1:A184")
findname = Sheets("Audit Form").Range("L8").Value
Set c = NameRange.Find( _
what:=findname, LookIn:=xlValues)
If Not c Is Nothing Then
Sheets("Repairables").Cells(c.Row, "B") = _
Sheets("Audit Form").Range("B12")
Sheets("Repairables").Cells(c.Row, "C") = _
Sheets("Audit Form").Range("L3")
Sheets("Repairables").Cells(c.Row, "E") = _
Sheets("Audit Form").Range("L17")
Sheets("Repairables").Cells(c.Row, "G") = _
Sheets("Audit Form").Range("L28")
Sheets("Repairables").Cells(c.Row, "I") = _
Sheets("Audit Form").Range("L37")
Sheets("Repairables").Cells(c.Row, "K") = _
Sheets("Audit Form").Range("L50")
Sheets("Repairables").Cells(c.Row, "M") = _
Sheets("Audit Form").Range("L61")
Sheets("Repairables").Cells(c.Row, "O") = _
Sheets("Audit Form").Range("L69")
Sheets("Repairables").Cells(c.Row, "Q") = _
Sheets("Audit Form").Range("L84")
Sheets("Repairables").Cells(c.Row, "S") = _
Sheets("Audit Form").Range("L95")
Sheets("Repairables").Cells(c.Row, "U") = _
Sheets("Audit Form").Range("L107")
Sheets("Repairables").Cells(c.Row, "W") = _
Sheets("Audit Form").Range("L117")
Sheets("Repairables").Cells(c.Row, "Y") = _
Sheets("Audit Form").Range("L134")
Sheets("Repairables").Cells(c.Row, "AA") = _
Sheets("Audit Form").Range("L147")
Sheets("Repairables").Cells(c.Row, "AC") = _
Sheets("Audit Form").Range("L159")
Sheets("Repairables").Cells(c.Row, "AE") = _
Sheets("Audit Form").Range("L165")
Sheets("Repairables").Cells(c.Row, "AG") = _
Sheets("Audit Form").Range("L179")



End If

End Sub

What will the second entry change in that code? I am thinking of a routine
that handles each entry, but it needs to know the differences.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Somewhere In Excel 2002"
wrote in message ...
I have the following Macros for my spreadsheet to record my audit ratings
for
10 different employees that I have listed in the drop down list. Problem I
have is that it will record 1 entry per employee. If I were to record 12
each
entries for each employee, how do I record the macro to do such a task?

Here is my current Macro:

Sub ENTER_DATA()
'
' ENTER_DATA Macro
' Macro recorded 8/5/2007 by KIMO GLORY
'

'
Set NameRange = Sheets("Repairables"). _
Range("A1:A184")
findname = Sheets("Audit Form").Range("L8").Value
Set c = NameRange.Find( _
what:=findname, LookIn:=xlValues)
If Not c Is Nothing Then
Sheets("Repairables").Cells(c.Row, "B") = _
Sheets("Audit Form").Range("B12")
Sheets("Repairables").Cells(c.Row, "C") = _
Sheets("Audit Form").Range("L3")
Sheets("Repairables").Cells(c.Row, "E") = _
Sheets("Audit Form").Range("L17")
Sheets("Repairables").Cells(c.Row, "G") = _
Sheets("Audit Form").Range("L28")
Sheets("Repairables").Cells(c.Row, "I") = _
Sheets("Audit Form").Range("L37")
Sheets("Repairables").Cells(c.Row, "K") = _
Sheets("Audit Form").Range("L50")
Sheets("Repairables").Cells(c.Row, "M") = _
Sheets("Audit Form").Range("L61")
Sheets("Repairables").Cells(c.Row, "O") = _
Sheets("Audit Form").Range("L69")
Sheets("Repairables").Cells(c.Row, "Q") = _
Sheets("Audit Form").Range("L84")
Sheets("Repairables").Cells(c.Row, "S") = _
Sheets("Audit Form").Range("L95")
Sheets("Repairables").Cells(c.Row, "U") = _
Sheets("Audit Form").Range("L107")
Sheets("Repairables").Cells(c.Row, "W") = _
Sheets("Audit Form").Range("L117")
Sheets("Repairables").Cells(c.Row, "Y") = _
Sheets("Audit Form").Range("L134")
Sheets("Repairables").Cells(c.Row, "AA") = _
Sheets("Audit Form").Range("L147")
Sheets("Repairables").Cells(c.Row, "AC") = _
Sheets("Audit Form").Range("L159")
Sheets("Repairables").Cells(c.Row, "AE") = _
Sheets("Audit Form").Range("L165")
Sheets("Repairables").Cells(c.Row, "AG") = _
Sheets("Audit Form").Range("L179")



End If

End Sub