مساعده في ماكرو لحفظ الملف

[شغب نت]

السلام عليكم ورحمة الله وبركاته

حاولت ان اصنع ماكرو لحفظ الملف اللي اشتغل عليه ولكن المشكله ان الماكرو يحفظ الملف تلقائيا بالمجلد اللي سجلت الماكرو عليه

وانا اريد الماكرو يعطيني خيارات من حيث اختيار مجلد الحفظ واسم الملف لا تمكن من الرجوع لنفس الملف وارجع اشتغل ثاني واحفظ وهكذا

ياريت احد يقدر يفيدنا بشي

وشكرا

[ابو اسامة العينبوسي]

السلام عليكم

حيث format folder name

omar10.xls file name

Private RunWhen As Double
Public Sub save()
On Error Resume Next
  ThisWorkbook.save
  ActiveWorkbook.SaveCopyAs "d:\format\omar10.xls"
RunWhen = Now + TimeSerial(0, 10, 0)
  Application.OnTime RunWhen, "save", , True
End Sub

تم تعديل نوفمبر 19, 2007 بواسطه ابو اسامة العينبوسي

[شغب نت]

اخذت الكود بس انا خبرتي بسيطه او معدومه بالاصح

فتحت الماكرو اللي سويته بالاول ورحت لصقت الكود مكانه وماطلعت بنتيجه

ياليت تخبرني اشلون اركب الاكواد

وشكرا على مرورك

[شغب نت]

وينكم ياخبراء الاكسل ارجو الشرح

[أبوعبد الله]

أخي العزيز

أتمنى أن يكون طلبك بالملف المرفق .

تقبل تحياتي .

أبو عبدالله

SAVE_MY_ACTIVE_FILE_WITH_NEW_CRITERIA.rar

[شغب نت]

شكرا استاذ اكسلجي

لكن واجهتني مشكله بسيطه

حيث انني عندما انسخ الماكرو من ملفك الى ملفي اللي اشتغل عليه

يشتغل معاي لكن المشكله انه يفتح ملفك الموجود عندي على الجهاز

وفي حالة حذف الملف لا يتعرف على الماكرو

انا اريد انسخ الكود الى ملفي بس ماقدرت يالت تشرح لي ذلك

ولك تحياتي

[أبوعبد الله]

أخي العزيز قم بتسجيل ماكرو جديد بملف الماكرو الشخصي ( peersonal ) دون تسجيل أي إجراءات فيه وقم بإيقافه فتحصل على ماكرو خالي ثم قم ينسخ الكود بالملف المرفق من بعد عنوان الكودإلى الآخر ثم قم بلصقه بالماكرو الخالي فوق جملة end sub في الماكرو الخالي، ثم قم بحفظ الماكرو وقم بعمل مفتاح تشغيل له في شريط أدوات الإكسيل ، ويوجد في المنتدى مشاركات مختلفة تشرح ما سبق بالتفصيل يمكن الوصول إليها بالبحث .

تقبل تحياتي

أبو عبدالله

[omar elhosseini]

اخى شغب نت

لقد قمت بنسخ الزر من ملف الاخ إكسيلجي

وهذا سبب اعادة فتح ملف الاخ إكسيلجي لان الزر المنسوخ يستدعى الماكرو الموجود فى ملف الاخ إكسيلجي

وهذا سبب فتحه للملف

اعد توجيه الزر الماكرو الموجود فى ملفك

[شغب نت]

الى جميع الاخوه اللي شاركوني في هذا الموضوع وبقية الاعضاء

الف شكرا فقد تعلمت من هذا المنتدى الكثير ولا زالت في بداية الطريق

كلمة شكر قليله في حقكم

وعلى الخير نلتقي