MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Input box needs cancel macro


Posted by Keith on July 05, 2000 7:34 AM

Help!

Does anyone out there know how to add a "Cancel" way out clause.

The code below works really well except if you try to cancel from the input box the debug screen comes up.

I need a code that will return to say cell "A1" if cancel is pressed.

I've tried but can't get it to work.

Any help would - Help.

Cheers,

Keith. (Code below)

ActiveSheet.DrawingObjects(Application.Caller).Select
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.SetSourceData Source:=Range("i21").Application.InputBox( _
prompt:="Select Source Range for Chart", Type:=8)


Posted by Coreen on November 15, 2000 12:06 PM

Re: Sorry there's a problem (InputBox - Cancel)

Has anyone found a solution to this? I'm having the exact same problem now. If I choose Cancel on my input box it works fine. If I enter a value it stops and highlights "If intName = False Then". A piece of my code is below...

Dim strName As String

strName = Application.InputBox("Prompt", "Title")
If strName = False Then Exit Sub
Range("G4").Value = strName

Help?

Coreen

Posted by Keith on July 06, 0100 1:35 AM

Cheers

Super, smashing, great!

Cheers Ryan.

Posted by Keith on July 06, 0100 6:59 AM

Sorry there's a problem

Sorry there's a problem.

It cancels well, but it doesn't take the input range. It highlights "If InputRange = False Then"

Any thoughts?

Keith

Posted by Ryan on July 05, 0100 9:02 AM

Keith,
Here you go, let me know if this solves the problem!
Ryan


Dim InputRange As Variant

ActiveSheet.DrawingObjects(Application.Caller).Select
ActiveSheet.ChartObjects("Chart 3").Activate
InputRange = Range("i21").Application.InputBox(prompt:="Select Source Range for Chart", Type:=8)
If InputRange = False Then Exit Sub

ActiveChart.SetSourceData Source:=InputRange

Posted by Ryan on July 06, 0100 1:22 PM

Re: Sorry there's a problem

Keith,

It's hard to know what's going on without having all the objects that the code is refering to. If you want to send me the file, i'll take a look at it.

Ryan