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 |
All times are GMT +1. The time now is 06:48 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com