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

اخي الشهابي تم شرح لما طلبت على هذا الرابط http://www.officena.net/ib/index.php?showtopic=40565

السلام عليكم اخي فضل اولاً هذا الشرح لما طلبت انت والاخ الفاضل الشهابي ثانياً هذا الكود الجديد (مع التعديل الصحيح) Sub Abu_Ahmed1() Application.ScreenUpdating = False Dim cl As Range For Each cl In [C2:C20] If cl = [K5] Then m = m & Trim(cl.Offset(0, -1)) & "," Min_V = Trim(cl.Offset(0, -1)) End If Next No_V = UBound(Split(m, ",")) For Each c In Split(Mid(m, 1, Len(m) - 1), ",") If Val(c) > Val(max_V) Then max_V = c If Val(c) < Val(Min_V) Then Min_V = c Next [j9] = Min_V: [K9] = max_V: [L9] = No_V Application.ScreenUpdating = True End Sub

السلام عليكم اخي ابو ابراهيم جرب الخطوات التالية اضغط Ctrl + تحريك عجلة الماوس للاعلى === Ctrl + Shift + 8

السلام عليكم جرب هذا الكود ضعه في زر أمر في الشيت Treasury_Daily Sub Abu_Ahmed() w = Range("A1000").End(xlUp).Row W1 = Sheets("Main").Range("B1000").End(xlUp).Row Range("B3:J" & w - 1).Copy Sheets("Main").Range("B" & W1 + 1) Range("B3:J" & w - 1).ClearContents End Sub

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

السلام عليكم راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=40001

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

السلام عليكم اخي الشهابي في كود For Each Sub foreach() Dim cb As Range i = 5 For Each cb In [J5:J7] cb.Value = [j3] i = i + 1 Next cb End Sub ليس هناك داعي للمتغير i وسيصبح الكود هكذا Sub foreach() Dim cb As Range For Each cb In [J5:J7] cb.Value = [j3] Next cb End Sub

بصراحة اخي الشهابي احسنت وحلول رائعة ودليل على الاستفادة مع العلم اني كنت بداءت افقد الأمل في مشاركة الاخوة بالحلول ==== بخصوص استفساراتك الاستفسار الاول نعم ويرجع تطويع الحركة التكرارية الى الحاجة والنتائج المطلوبة (كالترحيل مثلاً) الاستفسار الثاني جرب هذا الكود (فان فهمته كان بها والا انا في الخدمة) Sub Abu_Ahmed() A = 2 For i = 1 To 8 MyArr = MyArr & Trim(Cells(i, 15)) & " " MyArr1 = MyArr1 & Trim(Cells(i, 16)) & " " MyArr2 = MyArr2 & Trim(Cells(i, 17)) & " " Next Select Case [A1] Case "كان وأخواتها": For Each c In Split(MyArr, " ") Cells(1, A) = c A = A + 1 Next Case "كاد وأخواتها": For Each c In Split(MyArr1, " ") Cells(1, A) = c A = A + 1 Next Case "إن وأخواتها": For Each c In Split(MyArr2, " ") Cells(1, A) = c A = A + 1 Next End Select End Sub

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

السلام عليكم اخي الفاضل في المرفق تم عمل قائمة منسدلة باسماء الصفحات عند اختيار اسم صفحة كم الكومبوبوكس والضغط على زر الانتقال سيتم فتح الورقة المختارة بالنسبة لطلب الطباعة ارجو تفصل طريقة الطباعة teste21.rar

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

السلام عليكم ملف جميل تم رفع الملف الى المشاركة لسهولة التحميل

اهلاً بك اخي رضا وان شاء الله نشوف كل يوم المزيد من ابداعاتك

السلام عليكم ملف جميل بارك الله فيك اخي الفاضل ======== تم اضافة المرفق الى المشاركة ومسح الرابط

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

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

السلام عليكم اخواني الكرام هل الاسئلة صعبة ام انه الانشغال ام ماذا؟!

جرب هذا التعديل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A11:D23]) Is Nothing Then [C3].Value = Cells(Target.Row, 1).Value End If End Sub

السلام عليكم اليك المرفق الوقت.rar

السلام عليكم اليك المرفق تحديد رقم الصف النشط.rar

السلام عليكم استخدم هذه المعادلة =MID(A2;LEN(A2);1) في العمود المجاور سيتم فصل اخر حرف في الكلمة وبذلك تستطيع الفرز على اساس هذا الحرف

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

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

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