عبدالله المجرب

هل تقصد ان يكون الكود مرن (يعني يزيد بزيادة الصفوف) ام ماذ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اخي الفاضل هذا حل على السريع هل هذا ما تقصده واذا كان الجواب لا ارجو ان ترفق ملف للعمل عليه نقل البيانات.rar

اخي ياسر الحافظ ابو الحارث شكراً لكلامك المشجع دائماً تحرجنا يا راجل شكراً لمرورك الاستاذ احمد شكراً لكلماتك الجميلة الداعمة ***هذا اقل ما يمكن ان نقدمة لهذه المدرسة العريقة (اوفيسنا) ابواحمد

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

أشكركم كل الشكر ولكن إذا اتسعت قلوبكم أريد أن يتغير عدد الصفوف تلقائيا بناء على الخانة (ُِِAE52)في الجدول ليصل عدد الصفوف إلى 50 صف بدل 45 وسامحوني إن أثقلت عليكم اخي اذا اردت زيادة الصفوف غير هذه الجزئية في الكود For i = 7 To 51 لتصبح For i = 7 To 56 وذلك بعد اضافة الخمسة الاسطر الزيادة والله اعلم

سلمت الايادي استاذ عادل وهذه مساهمة لجعل الزر يعمل بحالتين للاخفاء والاظهار Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "اخفاء الفارغ" Then For i = 7 To 51 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = True End If Next CommandButton1.Caption = "اظهار الفارغ" Else CommandButton1.Caption = "اظهار الفارغ" For i = 7 To 51 If Cells(i, 33) = "" Then Cells(i, 33).EntireRow.Hidden = False End If Next CommandButton1.Caption = "اخفاء الفارغ" Application.ScreenUpdating = True End If End Sub استبدل هذا الكود بكود الاستاذ عادل (هو نفس الكود بس تعديل بسيط) ابواحمد

بعد اذن الاستاذ عادل اذا كان هناك امام الاسم والرقم 2 يعني ان الرقم مكرر مرتين ويوجد رقم مكرر مرتين لكن الاسم مرة واحدة والسبب خطاء في كتابة الاسم وهذه الاسم مكرر في الخليتين (C13 - C29) وشكراً للاستاذ عادل على الحل المرفق

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

الحمدلله ان كان هذا ماتريده اخي ياسر شكراً لمرورك وتعليقك ابواحمد

اخي الفاضل القومي شكراً لكلامك الطيب ابواحمد

اخي الفاضل ضع هذا الكود في محرر الاكواد Function OFFICENA(Cel1, Cel2, Cel3) As String OFFICENA = Cel1 & " " & Cel2 & " " & Cel3 End Function وتصبح هذه معادلة ستجدها بين معادلات الاكسل ولن تحتاج لكتابة اي شيء سوى تحديد الخلايا التي تريد دمجها شاهد المرفق للعلم المعادلة ستجدها بين المعادلات باسم OFFICENA دالة جديدة لدمج الخلايا.rar

اخي الفاضل بالاضافة الى حل الاخ العيدروس والاخ مصطفى تفضل المرفق ويمكنك ان تحدد نوع البحث من القائمة المنسدلة ابواحمد Book111111.rar

اخي الفاضل بخصوص المعادلة =IF(A3="";"";IF(VLOOKUP(A3;rang;2;0)=B3;"مطابق";"غير متطابق")) الجزاء الاول =IF(A3="";""; هذا يعني اذا كان قيمة الخلية في العمود A لاتحتوى على اي قيمة فان هذا الخلية التي بها المعادلة تصبح بلا قيمة اما اذا لم يتحقق شرط الخلو فيتم تنفيذ الشرط الثاني وهو IF(VLOOKUP(A3;rang;2;0)=B3;"مطابق";"غير متطابق")) وهي كما تعرف دالة VLOOKUP للبحث عن القيم اما بخصوص اللون الاصفر فتم استخدام التنسيق الشرطي لعمل ذلك اذهب الى تنسيق ثم تنسيث شرطي ان شاء الله اكون وفقت في ايصال المعلومة واي شيء اخر ان في الخدمة حسب علمي ومعرفتي ابواحمد

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

بصراحة الكود اكثر من رائع ولو ان الموضوع قديم لكن لم اجده الا اليوم :') سلمت الايادي يا استاذ عادل تقبل مروري

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

اخي zomo333 تفضل المرفق 2003 ابواحمد.rar

اخي الفاضل يمكنه ان يستخدم خاصية البحث عن كلمة في الملف وان شاء الله يجده (هذا تم حفظه في مكان لايدري عن) ويمكن يكون بعد نقل البيانات قام بالخروج دون حفظ لذا لم يجد التعديل الذي عمله والله اعلم

اخي رجب تفضل المرفق ** تم استخدام عمود مساعد (تم اخفائه) ابواحمد.rar

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

اخي الكريم راجع الرابط ادناه لعله يفيدك فموضوعك مشابه عبدالله المجرب

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

اخي العزيز HaNcOcK لك كل الشكر علي الكمات الطيبه و اشكرك علي مرورك الكريم خالص تحياتي و تقديري ابواحمد

اخي الفاضل ولو انك لم تغير في المرفق شيء سوء ازالة المعادلات ما كنت اقصده هو الورقة رقم 11 تفضل المرفق * اعتقد انه بامكانك اضافة المعادلات الى الورقة 19 Book111.rar

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