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

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

السلام عليكم اعتقد ان الطلب غير ممكن والله اعلم

شكراً لك اخي الزير

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

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

اخي الفاضل اين الفورم

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

اخي الفاضل جميل ان تبحث وتجد والاجمل هو اصرارك على مشاركة ما وجدته مع إخوانك === مساعدتي كانت في منتدى اخونا يحيى حسين http://excel4us.com

حياك الله اخي ابو الحسن واشكرك على دعمك المتواصل

السلام عليكم اخي باسم شكراً على هذه الملاحظة لتعديل الدالة عدل هذا السطر A_ID = Format(DateSerial(Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd") ليصبح A_ID = Format(DateSerial("19" & Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd")

السلام عليكم جرب التعديل الاتي Sub ggg() Dim R As Integer Dim shp As Shapes Range("A5").Select w = 10 ActiveSheet.Shapes("Group 2").Select Selection.Copy For R = 1 To [c2] ActiveCell.Offset(w, 0).Range("A1").Select ActiveSheet.Paste Next Range("A1").Select End Sub

الاخت الفاضلة لما لا تستخدمي كود الاستاذ خبور

السلام عليكم اخي الفاضل المشاركة مبهمة !!!!!!!!!!

السلام عليكم هذه محاولة على قد الحال db1 (1).rar

السلام عليكم امتحان الفصلين الخامس والسادس السوال الاول: قم بعمل قائمة منسدلة مرنة (لا يشترط ان يتم تنفيذ الكود في حدث التغيير)؟ (شرح المطلوب) المطلوب عمله هو ان يتم وضع قائمة منسدلة من 3 عناصر في الخلية A1 وعند اختيار احد هذه العناصر تظهر البيانات الخاصة به (يمكن كتابتها بمصفوفة داخل الكود) في الخلايا B1 - B2 وهكذا ================= السوال الثاني قم بعمل 3 إجراءات لثلاثة انواع مختلفة (هي 4 انواع) من الحلقات التكرارية تؤدي نفس الغرض؟ شرح المطلوب المطلوب عمله هو وضع ثلاثة اكواد لثلاث حلقات تكرارية والمحصلة عند التنفيذ تكون واحدة. ================= السؤال الثالث: قم بتنفيذ السؤال الثاني عن طريق Select Case

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

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

كما وعدتك جرب المرفق bkri_(v1) (1).rar

ما شاء عليك استاذ عبدالله

السلام عليكم شاهد الصورة

السلام عليكم بعد اذن اخي ابوعبدالله تفضل المرفق بعد التعديب Punctuation-USD.rar

حياك الله اخي الفاضل == تمت الاجابة

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

السلام عليكم بعد اذن البشمهندس طارق ولاعجابي بالكود اخي فضل جرب الكود يعد التعديل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$F$4" Then Exit Sub [E5:E100].ClearContents A = 5 LR = [A10000].End(xlUp).Row [B1].Copy ([G11]) Range("A1:B" & LR).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[F3:F4], CopyToRange:=[G11], Unique:=True con = WorksheetFunction.CountA([G11:G20]) Select Case con Case 1: [E5:E100].ClearContents: GoTo 10 Case Else X = [G12] For i = 13 To [G10000].End(xlUp).Row X = X & " - " & Cells(i, "G") Next For Each C In Split(X, " - ") Cells(A, 5) = C A = A + 1 Next End Select 10 [G10:G100].FillDown End Sub

شكراً لك اخي ابوانس