[حل شده] کد خروج

[kazem1359]

سلام
کد زیر در یوزر فرم ، فقط روی علامت ضربدر خروج ( قرمز رنگ ) بالای یوزر فرم قابل اجرا هست حالا بنده چطور می تونم این کد را برای یک دکمه ( CommandButton ) در یوزر فرم قرار بدم. ممنون میشم راهنمایی کنید

Private Sub 1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Sheet1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit

End Sub

[alfa]

سلام
متوجه منظورتون نمیشم
امیدوارم فایل پیوست مشکلتون را حل کند

[kazem1359]

سلام منظورم اینه که همون کدی را که دادم در CommandButton قرار بدم. ممنون میشم راهنمایی کنید

[iranweld]

سلام منظورم اینه که همون کدی را که دادم در CommandButton قرار بدم. ممنون میشم راهنمایی کنید

کد ذیل را در یوزر فرم تست کنید

Private Sub CommandButton1_Click()

Unload Me

Sheets("Sheet1").Select

ActiveWorkbook.Save

Application.Quit


End Sub 

[alfa]

سلام منظورم اینه که همون کدی را که دادم در CommandButton قرار بدم. ممنون میشم راهنمایی کنید

خوب من همین کار را در فایل پیوست براتون انجام دادم دیگه!!!!!!
مگه شما به پیامها و فایلهای ارسالی توجه نمیکنید؟!!!

[kazem1359]

ممنون حل شد