عبد الفتاح كيرة

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

جزاك الله خيرا أستاذى وشكرا لمرورك

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

تفضل مساعدة3kemas.rar

عليكم السلام الكود التالى يغلق الملف بعد حفظه بدون رسائل تحذير Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sheets(1).Range("a1") = 1 Then with Application .ActiveWorkbook.Save .ActiveWorkbook.Close .DisplayAlerts = False End With End If End Sub أما فتح نفس الملف بعد إغلاقة! فكيف سينفذ كود الفتح و الملف مغلق أصلا؟ ربما رزقنا الله علما فى هذا Example-kemas.rar

غير المعادلة فى e10 ومابعدها إلى =IF(LEN(D10)<14;"";IF(LEN(TRIM(D10))=0;"";IF(OR(NOT(ISNUMBER(D10));LEN($D10)<>14);" ";DATE(IF(LEFT(D10)="2";MID(D10;2;2);"20"&MID($D10;2;2));MID($D10;4;2);MID($D10;6;2))))) بإضافة شرط فى البداية لوكان طول الخلية التى بها الرقم القومى أقل من 14 يعرض فراغا وشكرا مجربة لو أردت رفعت لك الملف بعد التطبيق

اضغط الملف ثم ارفعه مضغوطا

تفضل أستاذى ادراج صفوف كيماس3.rar

شكرا لك أستاذنا بارك الله فيك

تفضل بالباسوورد 123 ادراج صفوف 1passKEMAS.rar

نعم الصفحة 1 و 2 و4 ضغطة واحدة ادراج صفوف 1-2-4KEMAS.rar

أستاذنا جرب و أخبرنا بالنتائج ادراج صفوف حسب الطلب مفيدKEMAS.rar

تفضل حدد 4 اختيارات ثم اضغط زر الفرز فرز kemas 4قوائم منسدلة.rar

شكرا لتشريفك أستاذى الفاضل بارك الله فيك

Application.ScreenUpdating = False ' Range("O3:AA36").Select Range(Selection, Selection.End(xlDown)).Select Range("O3:V30").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("Q1:Q2"), Unique:=False Application.ScreenUpdating = True تفضل الملف العمود بكامله فرز kemas.zip

يجب إما : توسيع عرض الخلية ليظهر الرقم تصغير الخط داخل الخلية ليظهر الرقم

مرحبا لطباعة أكثر من صفحة فى شيت واحد اتبع ما يلى : 1 - افتح نافذة الطباعة 2 - اختر طباعة المصنف بكامله 3 - ثم أمام الطابعة اختر خصائص الطابعة 4 - من نافذة خصائص الطابعة اختر تصميم layout 5 - زر عدد الأوراق فى الشيت غير إلى 3 ( أو كما تريد) 6 -0 أغلق نافذة خصائص الطابعة و اضغط طباعة وشكرا

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

عفوا أخى وجدت أيضا المواقع مكررة هذا هو الملف بصورته النهائية equipment-kemas.zip

الملف فى مشاركتى التالية

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

حيا الله الأستاذ جمال نورت الموضوع أشكرك لشعورك الطيب

المزيد من التوضيح مطلوب أين ستكتب تعمل أو لا تعمل ( اكتب اسم الشيت) أين تريد إجمالى المعدات التى تعمل (اكتب اسم الشيت و الخلية)

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

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