Forum Discussion
Print consecutive numbers from Excel
I have a template that auto fills data on how each part is configured on a cart and tells how many carts are needed based on order qty and would like it to print the cart number on each sheet. If I need 4 carts I would like 4 sheets printed and in the Cart# cell, 1 for the first page printed 2 for the secong page printed and so on. Is there a way to do that?
Try this version:
Sub PrintTags() Dim n As Long Dim i As Long n = Application.RoundUp(Range("B6").Value, 0) For i = 1 To n Range("B18").Value = i If i < n Then Range("B8").Value = Range("O9").Value Else Range("B8").Value = Range("P9").Value - (n - 1) * Range("O9").Value End If ActiveSheet.PrintOut Next i Range("B8,B18").ClearContents End Sub
6 Replies
See the attached version. It is a macro-enabled workbook so you'll have to allow macros when you open it.
Thank you Hans, that worked great. I was wondering if there was a way to look at cell O9 (Max layers per cart) and subtract that from cell P9 (total layers needed) for each cart needed. In this case I need 3.91 carts so cart 1 - 3 take 16 layers which leaves 14.5 layers for cart # 4. The number of layers need to display in cell B8. Cart1 -16 layers, cart 2 -16 layers, cart 3 -16 layers, cart 4 -14.5 layers when the print buttun you created is pressed.
Thank you!
See the attached version. I changed B8 from 0 to 1 decimal place.
