اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


شغب نت

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

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

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

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

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

وشكرا

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

السلام عليكم

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