Macro Help for Excel 2002

  • Thread starter Somewhere In Excel 2002
  • Start date
S

Somewhere In Excel 2002

I have the following Macros (Thanks to Joel in this forum who have been a
great help to this site!) 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 different entries for each employee audits I have entered, 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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top