Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 17
Default 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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
excel 2002 macro DaveF Excel Worksheet Functions 0 June 20th 07 05:37 PM
Outlook 2002 calendar dates exported to Excel 2002 sort incorrectl scampbell Excel Worksheet Functions 0 February 22nd 06 06:31 PM
Macro in Excel 2002 to save a workbook to a FTP location Lloyd Excel Discussion (Misc queries) 0 December 21st 04 02:49 PM
Can you print labels using Excel 2002 in a Word 2002 mail merge? Individual_ Excel Discussion (Misc queries) 3 December 17th 04 08:39 PM
How can I see a list of macro key assignments in Excel 2002? Echoesrad Excel Worksheet Functions 0 November 10th 04 06:44 PM


All times are GMT +1. The time now is 09:35 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"