Excel VBA Input box tutorial – How to create number series using input box

Excel VBA Input box tutorial – How to create number series using input box

Copy the code below for creating number series down the rows using inputbox function:

Sub SeriesInRows()
Dim X, Y, A, B, N
X = InputBox(“Enter the Row Offset”, “(Optional) Empty cells between series”, 0)
A = InputBox(“Enter the starting number in the series”, “Starting Number”, 1)
B = InputBox(“Enter the ending number in the series”, “Ending Number”, 50)
For N = A To B
ActiveCell.Value = N
ActiveCell.Offset(X + 1, Y).Select
Next N
X = 0
Y = 0
End Sub

Copy the code below for creating number series across the columns using inputbox function:

Sub SeriesInColumns()
Dim X, Y, A, B, N
Y = InputBox(“Enter the Row Offset”, “(Optional) Empty cells between series”, 0)
A = InputBox(“Enter the starting number in the series”, “Starting Number”, 1)
B = InputBox(“Enter the ending number in the series”, “Ending Number”, 50)
For N = A To B
ActiveCell.Value = N
ActiveCell.Offset(X, Y + 1).Select
Next N
X = 0
Y = 0
End Sub

Click the link below to download the macro file

Click here to download the file

I am very sure that this could be a best example for excel vba input box examples.

himaghiri

Founder at HBN Infotech
Himaghiri Thanayan.N is the founder of HBN Infotech. He has great dreams and passion for Graphic Design, Web Design, CAD Design, Arts & Crafts, Science & Information Technology and Article Writing.

Latest posts by himaghiri (see all)

Updated: November 19, 2017 — 7:49 am

2 Comments

Add a Comment
  1. I can’t understand the first line.
    Dim X, Y, A, B, N
    I am a beginner in EXCEL VBA. I haven’t come accross such a Dim Statement. I am familiar with DIM X as Integer, Y as Range, etc.
    Is all these are variants? Why not defined as integer?

  2. I want vba code for the following scenario

    I want a input a box where user will be asked has to choose the range of cells.
    then systme shall apply the cell borders(For e.g. “xldot”) to these selected cells

    can you help me to get the query

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.