اذهب الي المحتوي
أوفيسنا

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


شغب نت

الردود الموصى بها

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

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

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

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

وشكرا

رابط هذا التعليق
شارك

السلام عليكم

حيث 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

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

ولك تحياتي

رابط هذا التعليق
شارك

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

تقبل تحياتي

أبو عبدالله

رابط هذا التعليق
شارك

اخى شغب نت

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information