Get user input

[ccpsc]

In the code below I need user input for the line "Do Until x = (User input as integer)". How do I do this?

Sub InsertRow()
'
' InsertRow Macro
'
' Keyboard Shortcut: Ctrl+x
'
Dim x As Long
x = 1
Do Until x = 100
Selection.EntireRow.Insert
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Offset(2, 0).Select
x = x + 1
Loop
End Sub

[dilipandey]

Hi Ccpsc,

You can include below line before "Do until.. " :_

x = InputBox("Please provide value for x", "Input Required")


Regards,
DILIPandey

<click on below 'star' if this helps>

[ccpsc]

Thank you dilipandey but that asked for a number everytime it ran so I did this and it works fine. One more question how do I force the user to enter a number? At present if nothing is entered it is an infinite loop.

Please Login or Register  to view this content.

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[ccpsc]

Cheers Roy all sorted. Can anyone answer my question above?

[dilipandey]

Hi Ccpsc,

You can put a default value in input box by editing the below line as shown:=

Please Login or Register  to view this content.

50 is the default value which will be there when macro runs..

Regards,
DILIPandey

<click on below 'star' if this helps>

[royUK]

So where are the code tags in post #1?