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

السلام عليكم تم تعديل العنوان للدلالة ونرجو الالتزام بعنوان يناسب المطلوب == جرب دالة التفقيط هذه http://www.officena.net/ib/index.php?showtopic=39447 == وهذه لترتيب العشرة الاوائل http://www.officena.net/ib/index.php?showtopic=38931

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

السلام عليكم اليك المرفق بعد عمل كود للترحيل حسب الحالة (سيتم ترحيل البيانات من الجدول الى ورقة العمل التي اسمها في الخاية C2 حيث سيتم ترحيل البيانات الخاصة بهذه الورقة فقط بالاعتماد على خلايا العمود J) المصنع.rar

السلام عليكم اخي فضل تفضل الملف بعد التعديل (اعيد واقول الكود من ابداع الاستاذ عبدالله باقشير) وضع دائرة على الخلايا الملونة للمواد.rar

بارك الله فيك اخي مجدي معلومات جميل ورائعة

استبدل الكود السابق بهذا Sub Abu_Ahmed() Dim cl As Range For Each cl In [A1:A500] r = 2 For i = 1 To Len(cl.Value) Step 8 Cells(cl.Row, r) = Mid(cl.Value, i, 8) r = r + 1 Next Next End Sub

في هذه الحالة سيصبح الكود Sub Abu_Ahmed() r = 2 For i = 1 To Len([A1]) Step 8 Cells(1, r) = Mid([A1], i, 8) r = r + 1 Next End Sub شاهد المرفق فصل الارقام.rar

السلام عليكم هذا تحدى جديد تم استخدام كود من إبداع الاستاذ عبدالله باقشير (سهل التعديل) افتراض بانك تريد تحويط الخلايا ذات القيم اقل من 25 شاهد المرفق ===== للعلم لو كنت تستخدم 2007 فبامكانك باستخدام التحقق من الصحة عمل هذا بكل سهولة ودون الحاجة الى كود وضع دائرة على الخلايا الملونة.rar

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

السلام عليكم اخي جرب هذا الكود ضع الرقم السابق في الخلية A1 ثم شغل الكود Sub Abu_Ahmed() For i = 1 To Len([A1]) Step 8 MyArr = MyArr & Mid([A1], i, 8) & " - " [B1] = Left(MyArr, Len(MyArr) - 2) Next End Sub

السلام عليكم بفضل الله كل شيء ممكن لكن ارفق ملف للمطلوب

الاستاذ الفاضل بن علية مبدع كعادتك في تطويع المعادلات

السلام عليكم اخي مجدي كل الشكر لك لاخراجنا من جو المعادلات والاكواد الى جو اللعب والتفكير === هذا ليس ضمن اكواد الاكسل بل هو ملف فلاش (لعبة فلاشية) مدرجة داخل الملف اي انها ليست لعبة باكواد الاكسل === طريقة الحل 1. يتم ملى الجرة ذو 7 لترات من البئر ثم يتم تعبئة الجرة ذو 5 لترات من الجرة الكبيرة وبعدها يتم تفريغ الجرة من الصغيرة واعادة تعبئة اللترين الباقيين في الكبيرة الى الجرة الصغيرة 2. يتم اعادة تعبئة الجرة الكبيرة (في الجرة الصغيرة يوجد لترين من العملية السابقة) وبعد ذلك تفريغ الجرة الكبيرة الى الصغيرة ليصبح لدينا 5 لترات في الصغيرة و4 لترات في الكبيرة بعدها يتم تفريغ الصغيرة واعادة تعبئتها بالاربعة لترات التي في الكبيرة 3. تعبئة الجرة الكبيرة (في الجرة الصغيرة يوجد 4 لترات من العملية السابقة) وبعد ذلك تفريغ الجرة الكبيرة في الصغيرة لتنقص لتر واحد فقط فيصبح لدينا في الجرة الكبيرة 6 لترات وفي الصغيرة 5 لترات 4. نقل الجرة الكبيرة الى فوق الميزان لينفتح الباب

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

السلام عليكم اخي ابوجاد الله جرب هذا الكود Sub Abu_Ahmed_Rand() Application.ScreenUpdating = False For i = 2 To 13 For j = 6 To 16 1 x = Int(Rnd * 16) + 1 If x < 6 Or x > 16 Then GoTo 1 Cells(j, i).Value = Cells(x, 1) Next Next Application.ScreenUpdating = True End Sub شاهد المرفق توزيع.rar

اخي لم يكن خيار وانما المعادلة التي وضعتها في RowSource هي الخطاء وما قمت انا به هو تعريف مدى ووضع اسم هذا المدى في RowSource الخاصة بالكومبوبوكس

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

السلام عليكم اخي زوهير راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=24575 فيه ما تريد وزيادة

السلام عليكم اخي فضل اذا اردت ان يتم اعتماد رقم القسم من مدى (افترض هنا انه المدى من C1:C36 ) سيكون الكود كالتالي Sub Abu_Ahmed() Application.ScreenUpdating = False r = 4: rr = 5 For i = 1 To 36 [H2] = Cells(i + 1, 3) [a1:b2852].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[H1:H2], CopyToRange:=Range(Cells(6, r), Cells(6, rr)), Unique:=True r = r + 2 rr = rr + 2 Next Application.ScreenUpdating = True End Sub

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

بصراحة المطلوب غير مفهوم

بارك الله فيك اخي حسين == تم النقل الى القسم المناسب

السلام عليكم هل تقصد هكذا list.rar

اخي الفاضل ضع ملفك وسيتم اضافة الدالة اليه

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