حسين مامون

اخي الكريم اشرح ماذا تريد ولكن بعد اعادة تصميم الفورم من جديد حاول تشرح طلبك بلغة الاكسيل مثلا:............... اريد ترحيل البيانات من الفورم الى ورقة العمل حسب رقم الكود المختار ضع بعض البيانات في احدى الصفحات كنمودج لما تريد ولا تنسى ترتيب تصميم الفورم تصميم الفورم

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

الحمد لله ان تم الامر على خير بالنسبة لطلبك من الاحسن انشاء textbox لادخال باس الحماية واخر لالغائه وهكذا يمكن جعل الكتابة بدل ارقام او حروف شكل اخر جرب المرفق تعديل كود حماية الصفحات-1 (2).xlsm

اخي الكريم تم ادخال بعض التعديلات في كود الحماية واضافة كود الغاء الحماية اتنمى ان يكون هذا في مستوى تطلعاتك تحياتي الباس pwd تعديل كود حماية الصفحات-1 (2).xlsm

الحمد لله ان تم الامر على خير

تفضل Increment (1).xlsm

تفضل ربما يكون ما تريد اخي الكريم ادخل التاريخ في العمود "C"وانقر بالماوس الايسر دوبل كليك مثلا تاريخ التعيين هو: 12/12/2014 النتيجة : 12/12/2016 12/12/2018 12/12/2020 اتمنى ان يكون ما تريد تحياتي Increment (1).xlsm

جرب هذا المرفق الكود يعمل في حدث الشيت "change" Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rng, lr lr = Cells(Rows.Count, "c").End(3).Row Set rng = Range("c5:c" & lr) If Not Intersect(Target, rng) Is Nothing Then If Not IsDate(Target) = True Then Target = "" Else Target = Format(Target, "dd-mm-yyyy") Target.Offset(, 1) = Format(DateAdd("yyyy", 2, Target), "dd-mm-yyyy") Exit Sub End If End If End Sub Increment (1).xlsm

ربما يكون كود افضل جرب المرفق Increment.xlsm

تلك احسن طريقة لاختصار النطاق

اخي الكريم يمكنك تسمية اي نطاق تريد انظر الصورة

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

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

ربما يكون طلبك في المرفق تغيير بيانات العاملين في كل الشيتات مرة واحدة على اساس رقم الكود.xlsm

اين يستدعي البيانات ؟ ماهو المكان المصدر للبيانات الى صفحة التغيير علما ان كل الشيتات فيها نفس الكود100

اخي الكريم حاولت فهم طلبك وسيحاول غيري ايضا ولكن لم افهم غايتك في ملفك حوالي 10 شيتات الاولى اعتقد هي الرئيسية والثانية اظن لشرح الطلب اما باقي الشيتات لا أعرف علما ان بعضها فارغ تماما ان كان ممكنا شرح ما تريد بلغة الاكسيل مع تبسيط الشرح وتقليص عدد الشيتات مثلا : الشيت كذا "" هو قاعدة البيانات الرئيسية والشيت كذا "" لاستدعاء البيانات وترحيلها حسب الشرط كذا اريد عند ادخال الكود في خلية "A2" مثلا استدعاء بيانات من شيت كذا الى شيت كذا حاول شرح طلبك مع ادخال مخرجات للبيانات في صفحة كما تريدها كمثال

استاذي الفاضل أحمد يوسف شكرا لك على تشحيعاتك لنا و تنبيهاتك لاعضاء المنتدى استاذ ASUS2020 انسخ هذا الجزء والصقه في الكود بزر "حضور" ويكون هو الاول If TextBox1 = "" Then MsgBox "المرجو ادخال الكود اولا": TextBox1.SetFocus: Exit Sub 'اذا كان التكست بوكس1 فاضي اديني رسالة "المرجو ادخال الكود اولا" واخرج من ساب

وجزيت خيرا اخي الحمد لله ان تم المطلوب

اعتذر اخي وقع خطأ تفظل hr2.xlsm

رما يكون في التعديل ما تقصد _سجل حضور وانصراف.xlsm

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

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

بعد اذن الاستاذ واتراء للموضوع يمكنك استخدام الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rng Dim lr lr = Cells(Rows.Count, 1).End(3).Row Set rng = Range("a3:a" & lr) If Not Intersect(Target, rng) Is Nothing Then Range("j3:j" & lr).Formula = "=B3&"" ""&C3&"" ""&D3&"" ""&E3" Value = Value End If End Sub

بعد اذن الاساتذة الافاضل واتراء للموضوع جرب المرفق قم بفك الضغط وضع المجلد في اي فولدر تريد MyFolder.rar

اخي الكريم جرب المرفق خطا في كود حد الصفحة (1).xls