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?

 

[offthelip]

That is what you asked for!! if you delete cell A1 in between running the macro first time and second time you will see that it does fill A1 both times

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

 

[Mussa]

if you delete cell A1 in between running the macro first time and second time

no no !
I'm talking about when fill from first time will fill and before run the second time will A1= aA I don't delete it , then the code should show message to give as long the A1 is filling to permission go running code or not.

 

[offthelip]

Sorry I have no idea what you want to happen.

 

[Mussa]

well , this is my last try
in pic1 when run from the first time

and when run again every time will show message

and complete the procedure if I clicl yes or no as I said before.

 

[offthelip]

try this;

Public firstrun as Boolean
Sub test2()

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

End Sub

 

[Mussa]

thanks
but now I'm so confused !
I suppose your code will populate aA from the first time and this is ok ,but when run again should keep aA whether I click no or close the message without click yes , but I see to change to Aa whethere click yes or no !!

 

[offthelip]

If you look at your two picures you have got aA after the first run and Aa after the second run that is exactly what the code does!! It took me a while to spot that you changed aA to Aa but I presumed that is what you wanted!!

 

[dmt32]

code will populate aA from the first time and this is ok ,but when run again should keep aA whether I click no or close the message without click yes

Hi,
not sure fully understood this thread but see if this update to your code does what you want

Sub Mussa()
   Dim ans As VbMsgBoxResult

    With Range("A1")
        'check for first run
        If Val(.ID) = xlFirst Then
            .Value = "aA"
            .ID = xlDialogDisplay
        Else
            'display msgbox
            ans = MsgBox("are you sure you want To continue ?", vbYesNo)
            If ans = vbNo Then Exit Sub
           
            'update range
            .Value = "Aa"
           
        End If
    End With
   
    'rest of code
   
End Sub

Dave

 

[Mussa]

Hi Dave ,
seem the same offthelip's solution !
ok guys I meant this line
.range("a1").value= "aA" just I gave example what macro should do .
my goal if i run the first time then will call my macro , also if run again then will show message and if I click ok should call my macro , but if I click no then should not call my macro .
instead of .range("a1").value= "aA" should be call my macro
ok I will try to adapt your codes and how goes
thanks guys.

 

[offthelip]

Use the code I posted in post #7 and put your macro code where it says "my macro"