طارق محمود

السلام عليكم أخي الفاضل أبايوسف أولا لإرفاق الملف بالمنتدي بدلا من إستعمال مواقع أخري ، لابد من ضغطه أولا باستخدام winrar or winzip ثانيا أرفقت لك الملف وقد حللت لك نقطة ولي إستفسار في الترحيل أرجو الرد علي إستفسار في الملف المرفق صفحة "ترحيل البيانات" Abu_Yousef.zip

السلام عليكم أول مشكلة أن يتم الايداع فى يوم الخميس التالى يتم إستبدال الرقم 12 بالمعادلة إلي 11 ثم 1 في آخر المعادلة المشكلة التانية تبديل يوم الخميس بالأحد رقم 12 أصلا 7+5 وقد تم تغييره ليكون 7+4 +....1 آخر المعادلة في المشكلة الأولي يتم تغييره إلي 7+0 + ....1 أنظر المرفق 111_2.rar

السلام عليكم بإستخدام دالة VLOOKUP مدعوما بشرط ISERROR تفضل المرفق ____2.rar

السلام عليكم أخي أبا يوسف لاحظ: 1. تحديد المدخلات في كلا من القسم والنوع والمقاس 2. تغير لون حالة العميل من دائن / مدين 3. تستطيع معرفة حالة كل عميل ببساطة بالفلتر تفضل المرفق وأخبرني النتيجة Hesabat2.rar

المعادلة طويلة لكن هذا هو طلبك تفضل المرفق Book1-3.rar

الأسهل عدم إلغاؤه أنت غير مطالب بعمل أي شيء فيه فهو معادلات وتعلم أنك تستطيع إخفاؤه من الطباعة ولكني سأحاول

السلام عليكم تفضل أخي المرفق وبه الشرح Book1-2.rar

ياأهلا ثم أهلا نورت يا أبوأسامة أنا لازم أترك الآن إذا حضر الماء السلام عليكم

السلام عليكم أخي الفاضل تفضل المرفق test2.rar

السلام عليكم باستخدام شرط تواجد تاء التأنيث أنظر المرفق Girls.rar

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

السلام عليكم هذا هو الكود بالكامل Sub Shift_from_Main() Worksheets("MAIN").Select a = WorksheetFunction.CountA(Range("b:b")) - 1 Range("B4").Select For i = 1 To a ' check how many data rows Worksheets("MAIN").Select 10 ActiveCell.Offset(1, 0).Select 20 If ActiveCell.Value > 1 Then GoTo 30 ' loop till found there's a data GoTo 10 30 ad1 = ActiveCell.Address 'there's a data rw = 1 ' check how many data rows 110 ActiveCell.Offset(1, 0).Select If ActiveCell.Value > 1 Or ActiveCell.Offset(0, 4).Value < 1 Then GoTo 130 ' loop till found next data rw = rw + 1 If rw = 20 Then GoTo 900 GoTo 110 130 If ActiveCell.Offset(0, 4).Value < 1 Then xx = "STOP" Range(ad1).Select agnt = ActiveCell.Offset(0, 2).Value ' Wakeel - Agent For j = 0 To 149 'gr_sht = the Sheet which have Group which contain that agent If agnt = Range("Q7").Offset(j, 0).Value Then gr_sht = Range("P7").Offset(j, 0).Value pos_ = (j / 10 - Int(j / 10)) * 10 GoTo 135 End If Next j 135 ad2 = ActiveCell.Offset(rw - 1, 1).Address ad3 = ActiveCell.Offset(0, 4).Address ad4 = ActiveCell.Offset(rw - 1, 7).Address Union(Range(ad1, ad2), Range(ad3, ad4)).Select Selection.Copy Worksheets(gr_sht).Select ' going to the correct worksheet Range("B4").Offset(100, (8 * pos_ + 3)).Select 'going to the correct Agent-Wakeel position Selection.End(xlUp).Select ActiveCell.Offset(1, -3).Select ActiveSheet.Paste If xx = "STOP" Then GoTo 900 Next i 900 Application.CutCopyMode = False Worksheets("MAIN").Select Range("B4").Select End Sub فقط عليك بتغيير الرقم 7 إلي 9 في السطر الثالث من العنوان 135 (الخامس عشر من الأسفل لأعلي) الذي كان ad4 = ActiveCell.Offset(rw - 1, 7).Address ليكون ad4 = ActiveCell.Offset(rw - 1, 9).Address

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

السلام عليكم مرحبا بك أخي أنظر الصورة المرفقة إن لم يكن بها الحل ، إرفق الملف

تفضل أخي المرفق Book22.rar

السلام عليكم حاولت إختصار المعادلة عن طريق تسمية بعض المجالات أيضا اخفيت ورقة Sheet4 تحتوي علي نسبة الحافز تفضل المرفق _____2.rar

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

السلام عليكم الخطأ ناتج عن القسمة علي صفر لتفادي ذلك أضفت لك شرط إذا كان المقسوم عليه =0 فالناتج صفرا ولايقسم شيئ تفضل المرفق 555_2.rar

عندك حق يحدث هذا في حالة آخر بيان في الورقة الرئيسية تم تدارك هذه الحالة مرفق الملف الجديد Shifttt2.rar

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

السلام عليكم أخي الفاضل لم أنساك ولكن أعذرني لضيق الوقت

السلام عليكم ممكن تضبيط الدالة vlookup أنظر الملف المرفق ___ ____2.rar

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

السلام عليكم غير المعادلة في الخلية E2 من: =tax(C2) إلي: =tax(ROUND(C2,-1))

شكرا جزيلا أخي HaNcOcK علي مرورك وكلماتك الكريمة