| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Capture InputBox vbCancel
Thanks A ton, it's working now.
Cheers. "Vergel Adriano" wrote: Hi Rob, I believe InputBox will return a null string if user clicks on Cancel. Try something like this: Sub AutoInsertRows() 'Shortcut Keystroke CTRL+Shift+A Dim r As String r = InputBox("How Many Rows?", "Auto-Insert Rows", 1) If r = "" Then MsgBox "user cancelled" Exit Sub End If If Not IsNumeric(r) Then MsgBox "value must be numeric" Exit Sub End If i = 0 Do While i < r If Not r = vbCancel Then Selection.Insert Shift:=xlDown i = i + 1 Else Exit Sub End If Loop End Sub -- Hope that helps. Vergel Adriano "Rob" wrote: Hello, I have the below code that prompts for the qty of rows to be inserted but when the Cancel button is selected instead of providing a number and clicking OK I get an error. I was hoping that putting the IF statement in there would fix it but it did not. How can I fix this? Thanks in Advance. Sub AutoInsertRows() 'Shortcut Keystroke CTRL+Shift+A Dim r As Integer r = InputBox("How Many Rows?", "Auto-Insert Rows", 1) i = 0 Do While i < r If Not r = vbCancel Then Selection.Insert Shift:=xlDown i = i + 1 Else Exit Sub End If Loop End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I capture CANCEL on an Inputbox? | Excel Programming | |||
| How do I capture CANCEL on an Inputbox? | Excel Programming | |||
| capture only part of inputBox or of cell contents | Excel Programming | |||
| InputBox to capture user selected sheet names? | Excel Programming | |||
| vbCancel | Excel Programming | |||
Threaded Mode
