Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto consecutive numbering
I am printing the same form multiple times, and I want each copy to have a
different number. How do I make this happen?? I need cell D1 to update every time I print or enter, I don't care which, I need for it to read W6090 print then W6091 print,,,,, I have no idea how to write or make code work. Just not that advanced. I have seen the code but really dont have a clue how to make it work. I have gone in and pasted to the VB editor but?????? Any help at all would be wonderful!!! Thanks Annette |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto consecutive numbering
try this link
http://www.mcgimpsey.com/excel/udfs/sequentialnums.html "abchildress" wrote: I am printing the same form multiple times, and I want each copy to have a different number. How do I make this happen?? I need cell D1 to update every time I print or enter, I don't care which, I need for it to read W6090 print then W6091 print,,,,, I have no idea how to write or make code work. Just not that advanced. I have seen the code but really dont have a clue how to make it work. I have gone in and pasted to the VB editor but?????? Any help at all would be wonderful!!! Thanks Annette |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto consecutive numbering
This revised code from Ron de Bruin will enter a consecutive number in D1 of
each copy you print. Only question I have is about the W6090. What do you want to see if you print more than 10 copies? W6100 then W6101 etc. That would take more code Sub PrintCopies_ActiveSheet_1() Dim CopiesCount As Long Dim CopieNumber As Long CopiesCount = Application.InputBox("How many copies do you want", Type:=1) For CopieNumber = 0 To CopiesCount With ActiveSheet .Range("D1").Value = "W609" & CopieNumber & " print" .PrintOut preview:=True ' add an apostrophe to line above and remove from line below to print. ' .PrintOut End With Next CopieNumber End Sub For more on this see Ron's site at http://www.rondebruin.nl/print.htm#same Since you're not familiar with VBA and macros, see David McRitchie's site for more on "getting started". http://www.mvps.org/dmcritchie/excel/getstarted.htm In the meantime.......... First...create a backup copy of your original workbook. To create a General Module, hit ALT + F11 to open the Visual Basic Editor. Hit CRTL + r to open Project Explorer. Find your workbook/project and select it. Right-click and InsertModule. Paste the code in there. Save the workbook and hit ALT + Q to return to your workbook. Run or edit the macro by going to ToolMacroMacros. You can also assign this macro to a button or a shortcut key combo. Gord Dibben MS Excel MVP On Wed, 3 Oct 2007 11:35:01 -0700, abchildress wrote: I am printing the same form multiple times, and I want each copy to have a different number. How do I make this happen?? I need cell D1 to update every time I print or enter, I don't care which, I need for it to read W6090 print then W6091 print,,,,, I have no idea how to write or make code work. Just not that advanced. I have seen the code but really don’t have a clue how to make it work. I have gone in and pasted to the VB editor but?????? Any help at all would be wonderful!!! Thanks Annette |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Consecutive numbering | Excel Discussion (Misc queries) | |||
Auto Numbering a cell on consecutive worksheets | New Users to Excel | |||
consecutive numbering | Excel Discussion (Misc queries) | |||
consecutive numbering | Excel Discussion (Misc queries) | |||
How do I put automatic consecutive numbering on invoices? | Excel Discussion (Misc queries) |