خالد الرشيدى

khaled.rar السلام عليكم انظر المرفق وابدى ملاحظاتك على النتائج

السلام عليكم اخى الكريم .. لم تضع تصور للفورم المطلوب ..ووضعت ملف به اسماء المعلمين من خلال قائمة منسدلة محذوف مرجعها .. عموما اليك الملف التالى .. جربة وابدى ملاحظاتك.. اما ان لم يظهر معك نتائج احد الاسماء فى احد الايام او كل الايام .. اعد كتابة الاسم بجدوا الحصص او تجعل للقائمة المنسدلة مرجع Book1_3.zip

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

السلام عليكم استاذى / رجب جاويس جزاك الله خيراً .. كود رائع .. وارجو من حضرتك ايضاح ما فائدة هذا الجزء من الكود .. Set Rng = .Range("B6:B" & Cells(Rows.Count, "B").End(xlUp).Row) فلم يستخدم فى سطر الترحيل .Cells(S_name.Row, 3) = Cells(x, 4) تقبل فائق احترامى

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

السلام عليكم اخى الكريم لم افهم المطلوب جيداً .. عموماً جرب الملف التالى وابدى ملاحظاتك .. osamah3_2.rar

السلام عليكم استاذنا الحبيب / ياسر خليل ربنا يكرمك .. ابداع مستمر تحياتى للاستاذ القدير / رجب جاويش اخى الكريم انصحك بتفقد الرابط التالى حيث يتناول شرح الكود المستخدم .. تقبلوا مرورى وتحياتى http://www.officena.net/ib/topic/63175-تعديل-في-الأكواد-تعبئة-الكومبو-بقيم-فريدة-باستخدام-scriptingdictionary/?_fromLogout=1

السلام عليكم استاذى الحبيب / محمد الريفى...بعد التحية ارى ان السبب فى ذلك هو افتقار المواقع العربيه الى الشروحات على الرغم من الابداعات التى تخرج من اساتذتنا الكرام اثناء تقديم الحلول شخصيا لو اردت مرجع فى موضوع معين ..بالتاكيد ساذهب الى مثل تلك المواقع لوجود كتب وشروحات .. على عكس المواقع العربيه التى تحوي كنوز ولكنها غير مجمعه والدليل ان اكثر الموضوعات بداخل اوفيسنا مشاركة هى الشروحات .. اتمنى لو يكون هناك فكرة لذلك خالص حبى وتقديرى واحترامى

السلام عليكم اليك رابط فيديو لشرح ذلك .. https://www.youtube.com/watch?v=8JNU7cWg8a4

السلام عليكم جرب المعادلة التالية بافتراض ان القيمة فى A1 =INT(A1/3)

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

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

السلام عليكم استاذى الفاضل سليم حاصبيا اعتذر عن المشاركة رغم تقديم نفس الحل من حضرتك فانا لم انتبه لذلك .. او لم يكن ظاهراً عندى اكرر اعتذارى

اخى الكريم استخدم الكود التالى .. وابدى ملاحظاتك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B1:B10000")) Is Nothing Then If Target.Offset(, -1) <> "" Then With Target(1, 2) .Value = Date End With End If End If End Sub

السلام عليكم اخى الكريم .. هناك مشكله فى تحميل الملف يرجى اعادة تحميله

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

السلام عليكم الحمد لله الذى بنعمته تتم الصالحات شرح الفكرة تفصيلاً علها تمثل إضافه لاحد الاخوة التطبيق بالمرفق El RashedY_ VlookUp.rar

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

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

http://www.officena.net/ib/topic/62305-vlookup-من-البداية-وحتى-الاحتراف/ Vlookup Problem.rar السلام عليكم بعد شكر الاخ محى الدين ابو البشير الخطأ ناتج عن كون الدالة Vlookup تعتبر ان العمود الاول بالجدول هو عمود البحث لهذا من المفترض تكوين جدول افتراضى بذاكرة الجهاز عموده الاول هو عمود البحث والاخر هو عمود النتيجه وهذه وظيفة الدالة Choose والدالة if بالمعادلتين التاليتين -- يمكنك استخدام اى منهما وسيؤدى الغرض كما بالمرفق -- الرابط به الشرح التفصيلى =VLOOKUP($A2;CHOOSE({1,2};Jobs!$B$4:$B$19;Jobs!$A$4:$A$19);2;0) =VLOOKUP($A2;IF({1,0};Jobs!B4:$B$19;Jobs!A4:$A$19);2;0)

السلام عليكم اخى الكريم استخدم المعادلة التالية علها المطلوب بافتراض ان الرقم بالخليه A1 =MROUND(A1;0.1) التطبيق بالمرفق kkk.rar

السلام عليكم ضع المعادلة التاليه فى الخليه G2 =IFERROR(INDEX($A$2:$A$200;MATCH($J2;$A$2:$A$200;0));"") والمعادلة التاليه فى الخليه H2 =IFERROR(INDEX($A$2:$A$200;MATCH($K2;$A$2:$A$200;0));"") ثم قم بالسحب لاسفل ولاحظ النتائج وابدى ملاحظاتك

اخى الكريم جرب الملف التالى علة المطلوب Date.rar

السلام عليكم يمكنك استخدام المعادلة التالية =IFERROR(IF(G2<>"";IF(LOOKUP(2;1/($G$1:G1=$G2);$I$1:$I1)>0;"";"مكــرر");"");"")

السلام عليكم الاخ الفاضل / محمد الموافى ما هو الغرض من عرض البيانات طالما انها تمثل بيان شخص واحد يكرر فى كل مرة ارجو التوضيح