ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Clicking Cancel on an Inputbox (https://www.excelbanter.com/excel-programming/293513-clicking-cancel-inputbox.html)

rott[_6_]

Clicking Cancel on an Inputbox
 
Hi I currently have a macro that brings up an input box. The inputbo
allows the user to enter in a date and if they click ok it proceed
with the rest of the macro.

If the user hits cancel or the x in the corner of the inputbox i
continues to loop until they enter a correct date in. What I am tryin
to do is have the macro end if they hit the cancel button.

Can someone help me out?

Thanks!

--
Message posted from http://www.ExcelForum.com


mudraker[_169_]

Clicking Cancel on an Inputbox
 
Excel does not capture details of which button is pressed


Ans = InputBox("Prompt", "title")
If Ans = "" Then
End
End If

You will get the same response if the user presses the ok butto
without entering anything as the user pressing the cancel button

--
Message posted from http://www.ExcelForum.com


Bob Flanagan

Clicking Cancel on an Inputbox
 
Use Application.Inputbox - it returns the value False if canceled.

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

"rott " wrote in message
...
Hi I currently have a macro that brings up an input box. The inputbox
allows the user to enter in a date and if they click ok it proceeds
with the rest of the macro.

If the user hits cancel or the x in the corner of the inputbox it
continues to loop until they enter a correct date in. What I am trying
to do is have the macro end if they hit the cancel button.

Can someone help me out?

Thanks!!


---
Message posted from http://www.ExcelForum.com/




JE McGimpsey

Clicking Cancel on an Inputbox
 
From a previous post of mine

Const Msg1 As String = "Enter today's date"
Const Msg2 As String = "You did not enter a valid date." & _
vbNewLine & "Please enter today's date"
Dim UInput As Variant
Dim bLoop As Boolean

Do
UInput = Application.InputBox( _
Prompt:=IIf(bLoop, Msg2, Msg1), _
Default:=Date)
If UInput = False Then Exit Sub
bLoop = True
Loop Until IsDate(UInput)

In article ,
rott wrote:

Hi I currently have a macro that brings up an input box. The inputbox
allows the user to enter in a date and if they click ok it proceeds
with the rest of the macro.

If the user hits cancel or the x in the corner of the inputbox it
continues to loop until they enter a correct date in. What I am trying
to do is have the macro end if they hit the cancel button.

Can someone help me out?

Thanks!!


---
Message posted from http://www.ExcelForum.com/



All times are GMT +1. The time now is 08:57 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com