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

أنا منتظر أتعلم كيف سيدمج أستاذنا هذه المعادلات جربت دمجها فخرجت عن الحد المسموح أظن ممكن نخفى الأعمدة التى قبل العمود النهائى

طبعا أخى أحمد لا يستوى البحران يكفينى أن أحاول بارك الله فيك

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

أدلى بدلوى هذا حل بالمعادلات غير موضع الخلية c5 c6 c7 ... تعديل_ارقام_اللوحات-kemas.rar

ينبغى كتابة القيم يدويا ثم ضغط مفتاح الإدخال

هذا الملف ربطنا فيه الصفحة الأولى بالثانية وذلك فى العمود الأول أو الثانى فقط اكتب أى شىء فى الصفحة الأولى بأحد العمودين وانظر الصفحة الثانية ربط صفحتين لكل الخلايا.rar

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

لكن استفدنا كودا خفيفا لتصفية قائمة بها عناصر مكررة كما أنه سريع جدا ضممته لمكتبة أكوادى ينفع عند الحاجة Dim myrng As Range Dim mycl As Range Dim MyEndR As Long With Sheets(1) MyEndR = .Range("a" & .Rows.Count).End(xlUp).Row Set myrng = .Range("a2:a" & MyEndR) End With For i = 2 To 100 For Each mycl In myrng mycount = Application.WorksheetFunction.CountIf(myrng, mycl) If mycount > 1 Then mycl.EntireRow.Delete End If Next mycl Next i بارك الله فيك أستاذ أحمد مرحبا بكل ما يأتى منك

مشكور جدا أخى على بارك الله فيك

عليكم السلام و رحمة الله تشرفت بمرورك سعادة المشرف بارك الله فيك

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

الأ خ أبا أحمد المدى الذى نبحث فيه عن القيمة لابد أن يكون عموده الأول مشتملا على هذه القيمة يعنى يكون العمود الأول s1 s2 m1 m2 لأن الدالة عندما تجد القيمة المطابقة بهذا العمود فإنها تتحرك بنفس الصف تجاه العمود المحدد فى المعادلة جرب أن تغير s1 إلى s2 فى جدول البحث

بالكود : هذا الكود يصفى القائمة بحيث تكون قيمها فريدة Dim myrng As Range Dim mycl As Range Dim MyEndR As Long With Sheets(1) MyEndR = .Range("a" & .Rows.Count).End(xlUp).Row Set myrng = .Range("a2:a" & MyEndR) End With For i = 2 To 100 For Each mycl In myrng mycount = Application.WorksheetFunction.CountIf(myrng, mycl) If mycount > 1 Then mycl.EntireRow.Delete End If Next mycl Next i القيم الفريدة فى عمود - كود.zip

أسامة اتبع ما يلى مع أى عمود به تكرار حدد العمود " بدون عنوانه " من بيانات اختر " إزالة التكرار سيتم وضع القيم الفريدة بدون تكرار فى العمود التالى كون قاعدة التحقق من الصحة كما هو معتاد

تم تصليح الملف TEST-kemas.rar

انزل بالمعادلة فى الورقات خانة المسلسل والاسم بعض السطور الفارغة

حياك الله أخى حسين وأخى على

نعم أخى أبا أحمد تظهر الخطوط فى المعاينة لكن حين الطباعة لا تظهر

عند طباعة هذا الجدول لاتظهر خطوط الجدول سأعطيك و الإخوة كنزا من كنوز إكسل لكن بمقابل أن تضع عناوين مناسبة لموضوعاتك نفهم منها المطلوب اتفقنا ؟ الكنز هو عند الطباعة افتح إعداد الصفحة ثم الضبط إلى غير ال 100% إلى 99 جرب وأخبرنا

أما وقد كان فى الخلايا حروف غير مرئية فهذه فرصة للتعرف على دالة التنظيف clean =CLEAN(C3)

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

جربت هذا الحل لاحظت أن الشهر يأتى ناقصا يعنى شهر 9 يأتى 8

برنامج رائع و تنسيق بديع جزاك الله خيرا أخانا عماد و بارك فيك

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

كلامك تمام أخ بن علية لكن لعلك تقصد العكس 2007 يعتبر التشكيل حرفا مستقلا 2003 يعتبره من ضمن الحرف المشكل عزيزى الأخ خبور المشكلة من الإصدار 2007 حتى ملفك الأخير يحتاج أن تكون الكلمة مشكولة انظر الصورة عموما هذا موضوع مبارك كثير العلم إن شاء الله نزداد علما فيه جزاكم الله خيرا