خالد الرشيدى

لا يمكن ان اكتفي بالضغط على اعجبني بل وجب الرد العفو استاذى الحبيب - والله انك قدوتى بهذا العمل - ودائماً ما اقوم بدراسه حلول حضرتك - ودائما ما تمثل لى اضافة كبيره جداً جزاك الله عنا كل خير - كل عام وحضرتك بخير - رمضان كريم

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

اخى الكريم اعلم قصدك - واعلم ان ليس لديك فكره - والامر بسيط - ولكن احتاج الى نموزج مبسط جداً به مثال بسيط جداً مشروح به المطلوب للعمل عليه لان الكود سيكون مختلف ان اردت ان يتم الامر على خليه واحده -ام نطاق - ام عمود - ام عده اعمده - لهذا دائما نطلب نموزج مبسط يشبه الملف الاصلى تقبل مرورى وتحياتى

السلام عليكم انظر المرفق عله المطلوب - القيد العام.rar

وحزاك خيرا اخي الكريم كل عام وانتم بخير الحمد لله الذي بنعمته تتم الصالحات

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

السلام عليكم اخى الكريم -هناك اكثر من طريقة لتنفيذ ذلك - منها تنسيق التاريخ نفسه بدون معادلات - ومنها باستخدام المعادلات - ضع هذه المعادلة بالخلية B1 =TEXT(A1,"mmmm") وعليكم السلام بارك الله فيك أخي العزيز الغالي خالد الرشيدي وجزيت خيراً على كل ما تقدمه لإخوانك لإثراء الموضوع جرب الطريقة التالية

السلام عليكم اخى الكريم ليس هكذا يكون الطلب -- وعلى كلاً اجابك استاذنا بن عليه في الموضوع الذي طرحتة تقبل مرورى وتحياتى

السلام عليكم استبدل المعادلة السابقة بهذه المعادلة =VLOOKUP(D3,$D$3:H3,5,0)-COUNTIFS($D$3:D3,D3,$I$3:I3,"<>")

السلام عليكم اخى ناصر الهدف من مسح التسطير ثم اعادته - لانه قد تختلف عدد اسطر واعمده البحث - بافتراض تم البحث وكانت النتائج 20 صف وتم تسطيرها - ثم تم البحث مثلا عن قيمه اخرى وكانت النتائج على 10 اسطر ان لم يكن هناك مسح تسطير ثم اعادته حسب عدد النتائج الجديده ستجد ان التسطير الى الصف 20 في حين ان النتائج الى الصف 10 - وبالتالى حتى وان استخدمت الطريقة السابقه سيكون هناك مسح فى البدايه ثم اعادة تنسيق ( سطرين من الاكواد )) كما هناك امر يجب مراعاته - ((( الوقت ))) - اعتقد ان وقت مسح التسطير واعادته اقل بكثير من ال مسح ال Autofill واعادتة -- اما وان اردت معرفة اسلوب العمل بطريقة ال Autofill بهدف الاستفادة - يرجى ادراج نموزج مبسط جداً مشروح فية المطلوب - ويفضل ان تفتح به موضوع جديد -- تقبل مرورى وتحياتى

السلام عليكم انظر المرفق test.rar

راجع المرفق جيداً ولاحظ النتائج علة المطلوب تماماً =IF(A9>0,INDEX(اليومية!$AP$1:$BB$1,,IF(MIN(IF(اليومية!$AP$2:$BB$25=A9,COLUMN($A:$M)))<>0,MIN(IF(اليومية!$AP$2:$BB$25=A9,COLUMN($A:$M))),MIN(IF(اليومية!$AP$2:$BB$25=MAX(INDIRECT("'"&"اليومية"&"'!"&"AP"&(MATCH(A9,اليومية!$BC$2:$BC$25,0)+1)&":BB"&(MATCH(A9,اليومية!$BC$2:$BC$25,0)+1))),COLUMN($A:$M))))),"") New Microsoft Excel Worksheet_3_2 (2).zip

السلام عليكم ضع المعادلة التالية بالخلية B9 ثم اسحبها لاسفل =IF(A9>0,INDEX(اليومية!$AP$1:$BB$1,,MIN(IF(اليومية!$AP$2:$BB$25=الاستاذ!A9,COLUMN($AP:$BB)-41))),"") والمعادلة التالية بالخلية D9 ثم اسحبها لاسفل =IF(C9>0,INDEX(اليومية!$AP$1:$BB$1,,MIN(IF(اليومية!$AP$2:$BB$25=C9,COLUMN($AP:$BB)-41))),"") ولا تنسي ان كلاهما معادلة صفيف بعد وضعها بالخلية يتم الضغط على Ctrl + Shift + Enter وليس Enter وحدها ولكن هناك سؤال -- هل من المحتمل وجود قيمه غير موجوده باى عمود بصفحه اليومية ؟ وان كان كذلك ماذا تريد ان تظهر لك المعادلة ؟؟

السلام عليكم اخى الكريم الرد ليس صعباً - ولكن عندما يكون المطلوب غير واضح لا يكون هناك رد - لان كل من يفتح الموضوع ليشاهد السؤال لا يفهم ما المطلوب عندها يتركه عل احد غيره يستطيع معرفه المطلوب وهكذا قم بتصميم الفورم وحدد به الخانات المطلوبه - وان لم تستطع على الاقل - ارسم شكله وما الغرض منه - تقبل مروري وتحياتى

اخى الكريم هاوڕێ أحمد گوڵ شكراً جزيلاً لحضرتك على تلك العبارات الرائعة - جزاك الله خيراً وبالتاكيد انت هنا بين اخوانك ولك ان تطلب ما تشاء ولن يتاخر احد في تقديم المساعده كل عام وحضرتك بخير

وجزاك خيراً اخى الكريم على دعائك الطيب - جزاك الله بمثلة واكثر جرب الملف على قدر ما فهمت - والا قم بمزيد من التوضيح ده‌رمان_2.rar

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

السلام عليكم جرب المرفق علة المطلوب ده‌رمان.rar

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

السلام عليكم اخى ناصر - مبدئياً السبب هو عدد اعمدة مصفوفة النتائج Temp -- وكما زكرت لحضرتك سابقاً انه حتى وان لم تقم بالمسح سوف يتم استبدال القيم الموجوده بالقيم الجديده في كل مرة -- كود المسح نستخدمة لهدف واحد - بفرض انه هناك بيانات موجوده حتى الصف العشرين ثم من خلال كود بحث لم نضع به كود مسح - حصلنا على نتيجه من عشر صفوف - عندها ستجد اول عشر صفوف هم النتيجة الجديده والعشره الاخريين هم الموجودون من قبل لاننا لم نمسح النطاق الذي سنضع به النتائج - لهذا نستخدمه لربما تكون نتيجة البحث الجديد عدد اعمدتها وصفوفها اقل من البحث الذي قبله -- مبدئياً غير كود المسح لان حضرتك محدده حتى العمود DW , اجعلة حتى العمود Dj sh.Range("A12:DW1000").ClearContents ثانياً : - ولان عدد اعمده مصفوفة النتائج temp ستتخطى العمود Dj - ولاننا من خلال السطر التالى .Range("A11").Resize(j - 1, UBound(temp, 1)).Value = temp ومعناه بدءأ من الخليه A11 وحتى الصف J - 1 وحتى والعمود ( UBound(temp, 1 انسخ المصفوفة temp -- مع العلم بان ناتج ( UBound(temp, 1 هو 206 اى سيتم نسخ تلك المصفوفة بدءاً من العمود A وحتى العمود رقم 206 -- حقيقة كثره عدد الاعمدة التى يتعامل معها الكود تجعل من الصعب فحصه والتعامل معه - ولكن هناك حل اعتقد انه مناسب -- اجعل النسخ بدءاً من العمود A وحتى العمود Dj فقط من خلال تغيير السطر السابق بهذا السطر ولاحظ النتائج ولا تنسي ان تغير كود مسح البيانات لانه الى DW حاليا ً - مع العلم بان 144 هو رقم العمود Dj -- وكأننا نقول للكود - انسخ مصفوفة النتائج بدءا من العمود A وحتى العمود (Dj (114 .Range("A11").Resize(j - 1, 114).Value = temp

اخى الكريم راجع المرفق وابدى ملاحظاتك المخزن 878_6.rar

السلام عليكم شكراً جزيلاً اخى ناصر على دعائك الطيب جزاك الله خيراً وجزاك خيراً اخى حسين كل عام وحضراتكم بخير

السلام عليكم اخى الكريم كأحد طرق الحل -- استخدم المعادلة التالية بالخليةJ3 ثم اسحبها لاسفل =VLOOKUP(D3,$D$3:H3,5,0)-COUNTIF($D$3:D3,D3)

السلام عليكم اخى ناصر ان كنت تقصد الفورم المسمي Form_Search يمكنك ان تستبدل هذا الجزء If Mycell Like "*" & CM_TextFind.Text & "*" Then بهذا السطر عله طلبك If Mycell Like CM_TextFind.Text & "*" Then

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