2abadi قام بنشر أبريل 15, 2015 قام بنشر أبريل 15, 2015 السلام عليكم ورحمة الله هل هناك طريقة لمنع اي تغيير على اي خلية بعد تعبئتها يدويا أو تلقائيا من التغيير ؟ كما في الملف المرفق 1.rar
سليم حاصبيا قام بنشر أبريل 15, 2015 قام بنشر أبريل 15, 2015 تم عمل كل شيء و زيادة حبتين يمكنك منع تكرار البيانات و نقل المعلومات الى صفحة ثانية او مسحها fix data.rar 1
2abadi قام بنشر أبريل 15, 2015 الكاتب قام بنشر أبريل 15, 2015 لكن هل من طريقة في حال ترحيل التاريخ لا يمكن تغييره ؟ يعني لو الخليه إنكتب فيها بيانات لا يمكن لأي شخص تغييرها أشكرك أخي سليم على التفاعل
سليم حاصبيا قام بنشر أبريل 15, 2015 قام بنشر أبريل 15, 2015 التاريخ مرتبط بالاسم و هو يعطينا تاريخ النهار لحظة ادخال المعلومات اذا اردت يمكنك فك هذا الاتباط و جعله تاريخاَ عادياَ
صلاح الصغير قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 ا / سليم دائما ما تمتعنا باعمالك و لكن لى سؤال بعد اذن حضرتك عند الضغط على مسح و اختيار no للمسح لا يقوم بعمل شئ انا ملاحظ ان الكود فيه شرط لاختيار yes و لكن ليس هناك else و عذرا انا لست خبير بالاكواد و لكن بحاول اتعلم من منتداكم الرائع
سليم حاصبيا قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 لا اعلم اذا لاحظت ذلك لكن اختيار No يدرج لك البيان في الجدول حتى ولو كان مكرراً
صلاح الصغير قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 ا / سليم عند الضغط على زر مسح او نقل البيانات و اختيار لا لم يفعل شيئا
سليم حاصبيا قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 ورد خطأ مطبعي في المشاركة رقم 7 عندما تضغط على تسجيل سوف يدرج المحتوى في السطر الاخير من الجدول 1-اذا كان هناك تكرار تعرض الرسالة و يتم الاختيار نعم او لا (اختيار Yes يبقي على السطر الاخير بعد ادراجه في الجدول اختيار No يحذف من الجدول اخر سطر تم تسجيله ) 2-اما اذا لم يكن هناك تكرار يبقى السطر الاخير في الجدول
صلاح الصغير قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 ا / ياسر عذرا راجع عمل الزر الثانى و ليس الاول
سليم حاصبيا قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 عذرا اخي ابو صلاح لم اعرف انك تتحدث عن الزر الثاني قد صححت الكود ليعمل كما تريد مجرد نقل كلمة 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 1
صلاح الصغير قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 ا / سليم انا باعتذر لحضرتك و اسف للاثقال الكود كده تمام بس ممكن اعرف الفرق انا كتبت كلمة else فى هذا المكان و تم نفس الغرض و الله انا ما اعرف اكواد
سليم حاصبيا قام بنشر أبريل 19, 2015 قام بنشر أبريل 19, 2015 لا فرق اطلاقاً لكن اذا كنت تريد استعمال 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 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.