Thanks for the add to the forum!
I've tried every relevant fix for this that I've found here and none are quite what I'm looking for.
I need to sequentially number a purchase order form that is printed in batches. For example, print 50 copies, number 1 - 50; next time, print 50 copies - start with the next sequential number (i.e. 51). This "Purchase Order Number" needs to reside in H2 on my form.
TIA for all help and advice!
~~ MMRANCH02
Run this when that sheet is active.
Sub Print50() Dim i As Integer For i = 1 To 50 Range("H2").Value = Range("H2").Value +1 ActiveSheet.PrintOut Next i End Sub
Bernie Deitrick
Excel MVP 2000-2010
What is in Cell H2? Do you have mixed text and number? Let's say that your purchase order starts with
"PO#-" followed by a five digit number Change the PO#- in the code to whatever is not numeric, and the length of the "00000" to match the number of digits in your PO number.
Sub Print50V2() Dim i As Integer Dim strPO As String strPO = "PO#-" For i = 1 To 50 Range("H2").Value = strPO & Format(Val(Mid(Range("H2").Value, Len(strPO) + 1, Len(Range("H2").Value))) + 1, "00000") ActiveSheet.PrintOut Next i End Sub
Thanks, Bernie - but received "type mismatch" error??
yr my hero!! Cleaned out H2, because I realized there was some text in that cell.
Wish i'da posted this way early this morning instead of searching and debugging all day!
But its been kind of an interesting deviation from the norm for this girl!
Thanks again, Bernie!!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks