فراخواندن اکسلی دیگر از فرم

[majidartoor]

دوست عزیز واقعا نمیدونم چه جوری ازت تشکر کنم،مشکلم حل شد.بازم ممنون.
راستی اگه بخوام دوباره از لیست کل برگردم به فرم چه کنم؟
یعنی فایل kol رو به کلی ببنده و برگرده به فرم forooshgah

[majidartoor]

سلام دوستان
طبق فایلی که پیوست کردم،از فرمی که در ورک بوک فروشگاه (forooshgah.xlsm) وجود داره،ورک بوک کل (kol.xlsm) رو باز میکنم،
سوالم اینه که با چه کدی میتونم از ورک بوک کل برگردم به فرمم؟
یعنی وقتی باتون خروج رو که در فایل کل (kol.xlsm) وجود داره زدم ورک بوک کل (kol.xlsm) کاملا بسته بشه و برگرده به فرم فروشگاهم.

http://s5.picofile.com/file/8138195834/majid.rar.html

[majidartoor]

دوستان اگه سوالم روشن نیست بگید.
اگه هم خیلی سوالم ابتداییه بازم بگید.
بی تفاوت رد نشید...

[Javid Mokhtari]

سلام دوستان
طبق فایلی که پیوست کردم،از فرمی که در ورک بوک فروشگاه (forooshgah.xlsm) وجود داره،ورک بوک کل (kol.xlsm) رو باز میکنم،
سوالم اینه که با چه کدی میتونم از ورک بوک کل برگردم به فرمم؟
یعنی وقتی باتون خروج رو که در فایل کل (kol.xlsm) وجود داره زدم ورک بوک کل (kol.xlsm) کاملا بسته بشه و برگرده به فرم فروشگاهم.

http://s5.picofile.com/file/8138195834/majid.rar.html

خب دوست عزیز برعکس اون کدی رو که برای مخفی شدن نوشتی برا نمایش بنویس دیگه ...
تو شیت kol ، ماکرو "خروج" کد زیر رو بنویسید...:

Dim ADDRESS As String
ADDRESS = ThisWorkbook.PathWorkbooks.Open (ADDRESS + "\Forooshgah.xlsm")
Application.Quit 

[Javid Mokhtari]

دوستان اگه سوالم روشن نیست بگید.
بی تفاوت رد نشید...

هیچکس بی تفاوت رد نمیشه ...