Breaking News: Grepper is joining You.com. Read the official announcement!

excel auto increment number with each print

Distinct Duck answered on December 28, 2021 Popularity 8/10 Helpfulness 1/10

answer excel auto increment number with each print

excel auto increment number with each print

Comment

Public Sub IncrementPrint()
    Dim resp As Variant, scr As Boolean, i As Long, j As Long

On Error Resume Next
    resp = Application.InputBox(Prompt:="Please enter the number of copies to print:", _
                                Title:="Select Total Print Copies", Type:=1)
On Error GoTo 0

    If resp = False Then Exit Sub
    If resp < 1 Or resp > 100 Then
        MsgBox "Invalid number: " & resp & " (Enter 1 to 100)", vbExclamation, "Try Again"
        Exit Sub
    End If


On Error Resume Next
    StartValue = Application.InputBox(Prompt:="Please enter start number:", _
                                Title:="Start number", Type:=1)
On Error GoTo 0

    If StartValue = False Then Exit Sub
    If StartValue < 1 Or resp > 10000 Then
        MsgBox "Invalid number: " & StartValue & " (Enter 1 to 10000)", vbExclamation, "Try Again"
        Exit Sub
    End If

    scr = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    j = 0
    For i = 1 To resp
        ActiveSheet.Range("C2").Value2 = i + 0 + j + StartValue - 1
        ActiveSheet.Range("K2").Value2 = i + 1 + j + StartValue - 1
        ActiveSheet.Range("C21").Value2 = i + 2 + j + StartValue - 1
        ActiveSheet.Range("K21").Value2 = i + 3 + j + StartValue - 1
        ActiveSheet.PrintOut
        j = j + 3
    Next i
    ActiveSheet.Range("C2,K2,C21,K21").ClearContents
    Application.ScreenUpdating = scr
End Sub

Popularity 8/10 Helpfulness 1/10 Language whatever

Source: stackoverflow.com

Tags: auto-increment cell each excel vba whatever

Link to this answer
Share Copy Link

Contributed on Dec 28 2021

Distinct Duck

0 Answers Avg Quality 2/10

excel auto increment number with each print

Contents

More Related Answers

excel auto increment number with each print

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.