Yes / No

[Ampleford]

I'm using a dialogue box, and can't remember the code to write to stop the macro if the operator clicks no...

It looks a bit like this so far...

Sub AskFirst()
Dim msg2 As String
msg2 = "Joe Bloggs" & vbNewLine & "This is an irreversible procedure" & vbNewLine & "Are you completely sure you want to close the invoice?"
MsgBox msg2, vbYesNo, "Warning !"
End Sub


I now want it to do a number of things....

1) - If they click "No" - end sub
2) - If they click "Yes" then
a) open an input box asking for a value and placing that value on the same tab (called "close") on cell G8
b) run a macro called "Close"


who can help ? I know there's about three things in one request, but I'm really tring to push myself on these.....



thanks millions (as always)

 

[Blue Brother]

1) Use an if statement, if msgbox outcome = vbNo then 'Exit Sub'
2) 'Else:' define variable & variable = input box ("Enter Value")
3) range (G8) value = range (g8) + your variable
4) 'Call' close sub routine
5) end if

hope this helps.

 

[Andrew Poulsom]

Have a look in VBE Help at the examples for MsgBox and InputBox.

 

[Ampleford]

I know I appear thick, but I need the actual code to write it in. When I pasted in what you had ("if msgbox outcome = vbNo then Exit Sub") then it said "Compile error - Expected: Then or Go To"

I'm not particularly good at this - I've got it to work before - but I don't have a copy of that spread to just copy and paste the code from.

Thanks

 

[Blue Brother]

okay, i'm playing footy in 5 mins but if nobody else has given you the code I will do it when I get back.. Cheers.

 

[Ampleford]

Now it says:- - It is cancelling OK, but won't run the macro (I'll add the inputbox later - if I can get the mechanics working now.....)

Sub AskFirst()
Dim msg2 As String
msg2 = "Joe Bloggs" & vbNewLine & "This is an irreversible procedure" & vbNewLine & "Are you completely sure you want to close the invoice?"
MsgBox msg2, vbYesNo, "Warning !"
If response = 1 Then
Application.Run "Close"
End If
End Sub


Doh !!

 

[Andrew Poulsom]

You need to assign the result of the MsgBox function to a variable:

Response = MsgBox(msg2, vbYesNo, "Warning !")
If Response = vbYes Then    
   Application.Run "Close" 
End If

 

[Ampleford]

The mad thing is that as I was waiting for a reply, I was working on the inputbox and sussed out that I had to do it for the input box.


Cheers


as always - my gratitude



trevor