Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro Help for 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel 2002 macro | Excel Worksheet Functions | |||
Outlook 2002 calendar dates exported to Excel 2002 sort incorrectl | Excel Worksheet Functions | |||
Macro in Excel 2002 to save a workbook to a FTP location | Excel Discussion (Misc queries) | |||
Can you print labels using Excel 2002 in a Word 2002 mail merge? | Excel Discussion (Misc queries) | |||
How can I see a list of macro key assignments in Excel 2002? | Excel Worksheet Functions |