populate message box from the second running the macro

[Mussa]

Hi
I have procedure to populate message box before the run my macro

ans = MsgBox("are you sure you want to continue ?", vbYesNo)
If ans = vbNo Then Exit Sub
'my macro
'
'

what I want the message box should show from the second running when click the button for my macro , not from the first time click the button , is it possible , guys?

 

[PeteWright]

Hi @Mussa
Stupid question: Do you mean "second" (like first, second, third) or "second" (like hour, minute, seond)?

 

[offthelip]

try something like this:

Public firstrun As Boolean
Sub test()
MsgBox firstrun
If firstrun Then

ans = MsgBox("are you sure you want to continue ?", vbYesNo)
If ans = vbNo Then Exit Sub
'my macro
End If
firstrun = True
End Sub

 

[Mussa]

Stupid question:

also your guessing is too stupid !
my post is really clear

(like hour, minute, seond)?

who say it?!
I clarified when click the button .
you don't click the button more than one time for any macro before?!

 

[Mussa]

Hi offthelip,
just show message box is empty when run the code every time.

 

[Mussa]

@offthelip
when click the button from first time should run my macro without show any messagebox
if I run again then will show the messagebox as in OP and select yes will run my macro again , select no the doesn't run the macro .

 

[offthelip]

I put a msgbox in the code to show you what was happening just delete it like this:

Public firstrun As Boolean
Sub test()

If firstrun Then

ans = MsgBox("are you sure you want to continue ?", vbYesNo)
If ans = vbNo Then Exit Sub
End If
firstrun = True
'my macro
End Sub

Where have you put the code ? you need to have this code at the top of standard module so that the public declaration is the first thing in the module,
I have realised you need to move where "your macror" is too

 

[Mussa]

Where have you put the code ? you need to have this code at the top of standard module so that the public declaration is the first thing in the module,

yes this is my bad, sorry!
but still does not do as I want
ok look at this

Public firstrun As Boolean

Sub test()

If firstrun Then

ans = MsgBox("are you sure you want to continue ?", vbYesNo)
If ans = vbNo Then Exit Sub
Range("a1").Value = "aA"
End If
firstrun = True

End Sub

my goal is when run the macro from the first time then will fill in A1 cell directly aA and when run again will show messgagebox if I click yes will fill in A1=aA and if I click no will not fill in A1 cell
based on your code doesn't fill in A1 and doesn't show message when run the first time .
thanks again

 

[offthelip]

nearly there try this:

Sub test2()

If firstrun Then

ans = MsgBox("are you sure you want to continue ?", vbYesNo)
If ans = vbNo Then Exit Sub
End If
Range("a1").Value = "aA"  ' i moved this
firstrun = True

End Sub

 

[Mussa]

nearly there try this:

in this case will populate aA in A1 cell when every time run the macro without pop message