Prompt where to save - capture user pressing cancel

sharky12345

Well-known Member
Joined
Aug 5, 2010
Messages
3,303
Office Version
2016
Platform
Windows
I'm using this to prompt the user to save a a word document in their chosen location;

Code:
With Application.Dialogs(wdDialogFileSaveAs).Name = "Welfare Document - RM " & TextRM.Value
.Format = wdFormatXMLDocument
.Show
End With
If they do go on to save I need the userform to be unloaded, but the bit I am struggling with is how to simply return to the userform if they click cancel and don't save?
 

Some videos you may like

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying

Kamolga

Well-known Member
Joined
Jan 28, 2015
Messages
1,172
Maybe

Code:
[COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Application[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Dialogs[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]xlDialogSaveAs[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Show [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#858C93][FONT=inherit]' User saved[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Else[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#858C93][FONT=inherit]' User canceled[/FONT][/COLOR][COLOR=#303336][FONT=inherit] 
[/FONT][/COLOR]End[COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#222222][FONT=Verdana]
[/FONT][/COLOR]
 

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
6,328
Office Version
365
Platform
Windows
Try this
Code:
Private Sub CommandButton1_Click()
    With Application.Dialogs(wdDialogFileSaveAs)
        .Name = "Welfare Document - RM " & TextRm.Value
        .Format = wdFormatXMLDocument
        If .Show Then Unload Me
    End With
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,102,101
Messages
5,484,672
Members
407,460
Latest member
Fakxi

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top