yes, no prompting user to rerun macro once macro has come to end (before END SUB)

**schmidt62** · 10-03-2012, 05:57 PM

Howdy again - appreciate all your help! I have a macro that takes data and then reformats it. Macro works great - at the end of it I would like to prompt the user (via Yes/No) whether they want to format additional data or end the macro. A "no" response would "END SUB" a "yes" response would take the user back to a certain pt in the macro. Is this possible? If not taking the user back to the beginning and rerunning the whole macro would be a second choice.

How would you do this?

**rollis13** · 10-03-2012, 06:35 PM

Something like this before the end of your macro:

    If MsgBox("Rerun Macro ?", vbYesNo) = vbYes Then
        'your code to rerun your macro here or insert a GoTo
    End If

**rylo** · 10-03-2012, 06:53 PM

Hi

I'd go another way and have a controlling macro and the secondary macro that does your action. Something like

Sub aaa()
  Dim cntr As Long
  cntr = 0
  Do
    Call bbb(cntr)
    cntr = cntr + 1
  Loop Until MsgBox("do again", vbYesNo) = vbNo
  
End Sub

Sub bbb(cntr)
  If cntr = 0 Then
    MsgBox "Full action"
  End If
  MsgBox "second part"
End Sub

With this structure, the first run through the entire sub runs, but for any subsequent runs, it only runs from the particular spot.

HTH

rylo

**schmidt62** · 10-03-2012, 09:03 PM

Thanks so much! This forum is awesome. Appreciate your help.

yes, no prompting user to rerun macro once macro has come to end (before END SUB)

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

yes, no prompting user to rerun macro once macro has come to end (before END SUB)

Re: yes, no prompting user to rerun macro once macro has come to end (before END SUB)

Re: yes, no prompting user to rerun macro once macro has come to end (before END SUB)

Re: yes, no prompting user to rerun macro once macro has come to end (before END SUB)

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions