سليم حاصبيا

أخي ياسر لو لاحظت ماذا يوجد في مشاركة السائل الاولى(رقم 1) هنا فترات زمنية مختلفة 10 ثواني 5 ثواني الخ....

وقع سهوااً هذا الامر تم معالجة الخطأ ترحيل salim 1.rar

تم معالجة الامر

التسلسل الاول هو عادي اما الثاني فهو عبارة عن رقم السخص في اللائحة الاساسية

رائع اخي ياسر لكن هناك مشكلة عند الاخ السائل انه لا توجد فترة زمنية محددة بين تحديد احدى الصفحات و التي تليها فانا فكرت في نفسي (سيبه يحدد الامربنفسه يا راجل)

عسى ان يكون المطلوب تم ادراج صفحة اضافية للاختيار ترحيل salim.rar

اليك هذا النموذج لعله المطلوب تحديد حسب الوقت.rar

ربما كان المطلوب الفلترة او اخفاء الصفوف لا تئثر على التسلسل ترصيد#1 salim.rar

ربما كان المطلوب Book11 salim.rar

لا فرق اطلاقاً لكن اذا كنت تريد استعمال else يستحسن استعمال الامر Cut بدل Copy اليك كيف يكون ذلك Sub reset() Sheets("æÑÞÉ1").Unprotect lrsh2 = Sheets("sheet2").Cells(Rows.Count, 4).End(xlUp).Row + 1 lrd = Cells(Rows.Count, 4).End(xlUp).Row '''''''''''''''''''''''''''''''''''' answer1 = MsgBox("åá ÊÑíÏ ãÓÍ ÇáÈíÇäÇÊ Çã äÞáåÇ Çáì æÑÞÉ ÇÎÑì ÇÖÛØ ßáÇ ááãÓÍ äÚã ááäÞá ", vbYesNo) If answer1 = vbYes Then Range("d2:g" & lrd).Cut Sheets("sheet2").Cells(lrsh2, 4) Application.CutCopyMode = False Else Range("d2:g" & lrd).ClearContents End If Range("b3").Select Sheets("æÑÞÉ1").Protect End Sub

عذرا اخي ابو صلاح لم اعرف انك تتحدث عن الزر الثاني قد صححت الكود ليعمل كما تريد مجرد نقل كلمة End if سطرين الى الاعلى ليصبح الكود Reset هكذا Sub reset() Sheets("æÑÞÉ1").Unprotect lrsh2 = Sheets("sheet2").Cells(Rows.Count, 4).End(xlUp).Row + 1 lrd = Cells(Rows.Count, 4).End(xlUp).Row '''''''''''''''''''''''''''''''''''' answer1 = MsgBox("åá ÊÑíÏ ãÓÍ ÇáÈíÇäÇÊ Çã äÞáåÇ Çáì æÑÞÉ ÇÎÑì ÇÖÛØ ßáÇ ááãÓÍ äÚã ááäÞá ", vbYesNo) If answer1 = vbYes Then Range("d2:g" & lrd).Copy Sheets("sheet2").Cells(lrsh2, 4) Application.CutCopyMode = False Range("b3").Select ''''''''''''''''''''''''''''''''''' End If Range("d2:g" & lrd).ClearContents Range("b3").Select Sheets("æÑÞÉ1").Protect End Sub

ورد خطأ مطبعي في المشاركة رقم 7 عندما تضغط على تسجيل سوف يدرج المحتوى في السطر الاخير من الجدول 1-اذا كان هناك تكرار تعرض الرسالة و يتم الاختيار نعم او لا (اختيار Yes يبقي على السطر الاخير بعد ادراجه في الجدول اختيار No يحذف من الجدول اخر سطر تم تسجيله ) 2-اما اذا لم يكن هناك تكرار يبقى السطر الاخير في الجدول

لا اعلم اذا لاحظت ذلك لكن اختيار No يدرج لك البيان في الجدول حتى ولو كان مكرراً

ملف قديم من مكتبتي حول هذا الموضوع prim or not.rar

نموذج عما يمكن ان تعمله NV salim.rar

اليك نموذج عن الحل يمكنك ان تبني عليه انه يعمل على 2003 وبطريقتين الكود والمعادلات فقط املأ الخانات بالاسم والنتيجة صفحة nageh /raseb للكود و الصفحتين الباقيتين للمعادلات ناجح راسب salim 1 2003.rar

جرب هذا الشيء المستحقون.rar

استعمل هذه المعادلة (مع تبديل الارقم 1و2 3و4) COUNTIFS($C$4:$C$20,1,$D$4:$D$20,3)

الف مبروك هو دا الكلام الصحيح انا مستنّي الخبر دا من زمان يا اخي و حبيبي ياسر

انا استطعت ان انجزها بــــ 3 دقائق و لا يهمك على التمرين تستطيع ان تعمل نفس الشيء و حتى اكثر

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

اختر تنسيق الخلية بهذا الشكل اكيد بعد اختيار Time [hh]:mm

تم عمل كل شيء و زيادة حبتين يمكنك منع تكرار البيانات و نقل المعلومات الى صفحة ثانية او مسحها fix data.rar

تم التعديل حسب الحاجة كلما اضفت اسماً غي مكرر يضاف الى اللائحة hide_colums 1.rar

اضغط على الزر لاخفاء الاعمدة الفارغة و مرة اخرى لاعادتها القائمة المنسدلة ديناميكية (تتجدد كلما أضفت اسماً غير مكرراً) اضغط اعجبني في حال كان كذلك hide_colums.rar