Forum Discussion
shetzel
Nov 06, 2023Brass Contributor
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 n...
- Nov 08, 2023
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
HansVogelaar
Nov 07, 2023MVP
See the attached version. I changed B8 from 0 to 1 decimal place.
shetzel
Nov 08, 2023Brass Contributor
Hans, again thank you for your help. I realized I did not account for scrap so I changed cell P9, the Total Layers needed to add in 10% scrap. I also had to change cell B6 to divide P9 by O9 and now it does not print correctly. It is only printing 2 sheets with 18.4 layers on the last sheet instead of 16 and then printing the 3rd sheet with 2.4, which is the balance. Can you help me on this? This should be my last correction. Thanks in advance.
- HansVogelaarNov 08, 2023MVP
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
- shetzelNov 09, 2023Brass ContributorThank you very much for all of your help Hans. This works great.