حسين مامون

اخي الكريم ضع اسماؤها في العمود A كما هي back.rar

و اتراء للموضوع وبعد اذن استاذي Ali Mohamed Ali جرب المرفق Book3.xlsm

عليكم السلام الاخ محمد عبدالسلام 1 - المرفق عبارة عن تجربة وضعت مجلد باسم back وبداخله ملف فاتورة وكذلك مجلد backup . 2 - المجلد backup مخصص لتخزين النسخ كما قلت في مشاركتك ولكن ستنقله الى مجلد back وكذلك الملف الرئيسي فاتورة 3- في الملف فاتورة اضفت صفحة وفي العمود "A" انسخ اسماء الملفات المخزنة في المجلد backup كما يمكنك التعديل على كود النسخ لديك لكي يضيف اسماء السخة الاحتياطية في العمود "A" sheet1" back.rar

هذه معادلة لاحد الاساتذة في المنتدى لم اتذكر صاحبها جزاهم الله خيرا انسخها فالخلية A3 واسحب نزولا =IF(B11="";"";IF(COUNTIF($B$3;B11)>1;INDEX($A$2:A10;MATCH(B11;$B$2;0));MAX($A$2:A10)+1)) Book1.xlsx

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

ساجهز مرفق للتجربة انشاء الله ونرى

استاد ashraf_abdalla لن ينجح مادام هناك اكثر من حركة لموظف واحد انصحك باضافة رقم الحركة في العمود "g" وهكذا ستعدل اي حركة تريد بناء على رقمها . تحياتي

جرب المرفق حركة السلف.xlsm

هذا ما تكلمت عنه عند اضافة منطقة جديدة ينسخ زر ترحيل من شيت"copier" وهذا احسن من سابقه المناطق (3).xlsm

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

ادخل بياناتك في اي منطقة وستجدها ان شاء الله اترحلت تحياتي المناطق (3).xlsm

طلبك غير واضح يا اخي في مشاركتك الاولى قلت ما يلي لسلام عليكم اريد فتح الفورم على طول بدون فتح الاكسل ووضع حماية على الاكسل حتى لا يتم التعديل كلمة المرور 0505442208 ما عرفت ازيلها 1441.xlsm

استاد KHMB لما نزلت الملف من مشاركتك الاولى صار عني مشكلة كما عندك حاول تشغيل الملف انا عني شغال 100/100 عموما انت طلبت تعديل كود اضافة مناطق جديدة ليرحل البيانات الى صفحتي"رخص التشغيل و رخص الدفاع المدني اما الطلب الثاني تريد ترحيل التاريخين الاولين من كل منطقة الى ص رخص التشغيل و ص الدفاع المدني هناك زر في صفحة رخص التشغيل المناطق (3).xlsm

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

الشكر موصول ولك الف الف تحية اخي جرب المرفق وضعت زر في صفحة "رخص التشغيل" يستدعي البيانات من الشيتات حسب رقم المنطقة المناطق.xlsm

جرب المرفق اسم المستخدم abc كلمة السر 123 اضفت شيت "pass" يمكنك تغيير كلمة السر او المستخدم 1441.xlsm

نعم استادي سليم هذا صحيح

احسن الله اليك اخي احمد يوسف وتحية لاستاذنا سليم

جرب المرفق لعله يفي بالغرض خيثر.xlsm

تقبل الله جميع الاعمال وجعلها صدقة جارية

علكم السلام هذه تجربة متواضعة يمكنك العمل عليها ان اعجبتك التنقل بين الصفحات.xlsm

Private Sub CommandButton1_Click() Dim sh As Worksheet Dim ws As Worksheet Set ws = Sheets("ÝÇÊæÑÉ") Dim lr Application.ScreenUpdating = False Dim rng1, rng2, rng3, rng4, rng5, rng6, rng7, rng With ws Set rng = .[b8] Set rng1 = .[b4] 'ÇáÊÇÑíÎ Set rng2 = .[a4] 'ÑÞã ÇáÝÇÊæÑÉ Set rng3 = .[b29] 'ÇáÚÏÏ Set rng4 = .[d31] 'ÇÌãÇáí End With For Each sh In Sheets ' ' حلقة تكرارية للتنقل بين الشيتات If sh.Name = "فاتورة" Then GoTo 1 ' ادا كان اسم الشيت "فاتورة" انتقل الى الشيت الاخر If rng.Text = sh.Name Then 'الشرط هنا يعود الى قيمة الخلية"ب8" وادا تطابق مع اسم احد الشيتات ينفد lr = sh.Range("a" & Rows.Count).End(3).Row + 1 ' متغير لمعرفة اخر خلية فارغة العمود "ا" sh.Range("a" & lr) = rng1 'يضع قيمة مخزنة في متغير "ر ن ج 1" في اخر خلية فارغة العمود "ا" sh.Range("c" & lr) = rng2 ' يضع قيمة مخزنة في متغير "ر ن ج 2" في اخر خلية فارغة العمود "س sh.Range("d" & lr) = rng3 'يضع قيمة مخزنة في متغير "ر ن ج 3" في اخر خلية فارغة العمود "د sh.Range("e" & lr) = rng4 'يضع قيمة مخزنة في متغير "ر ن ج 4" في اخر خلية فارغة العمود "و sh.Range("a" & lr).Resize(1, 7).Borders.LineStyle = 1 ' End If 1: Next sh Application.ScreenUpdating = True End Sub اتمنى ان يكون الشرح كافي

جرب المرفق ترحيل خلايا محددة لاخري محددة في شيتات مختلفة.xlsm

الحمدلله وبفضله تتم الصالحات والشكر موصول للاستاد احمد بدرة

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