طارق محمود

الملف الآن ليس محدود بعدد أسطر ، جرب بنفسك وضع اية بيانات في الورقة الرئيسية أكثر من 10000 لو راجعت أول الكود 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 حيث يتم عدد البيانات الموجودة بالعمود "b:b" ، الذي يساوي a ،ثم يكرر العملية من 1 إلي a بإمكانك ألا تلغي القديم موضوع التكرر فقط ، هو الذي سيحتاج جولة اخري

أخي العزيز لاحظ أن: 1. هذا الماكرو تفصيل فقط علي هذه الحالة 2. لايجوز مثلا تغيير أسماء الورقات إلا بتغييرها في الورقه (MAIN) المجال Q156:P7 بالتحديد لأن البرنامج يقرأ منها البيانات 3. لابد أن يكون الوكلاء داخل الورقات بنفس الترتيب الموضوع بالورقه (MAIN) المجال Q156:P7 ممكن عملها بصورة أعم ولكنه سيستهلك كثير من الوقت أعتقد أنه الآن كاف وفقنا الله وإياكم لما فيه الخير

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

أنا تقريبا لم أفعل شيء فقط معادلة بسيطة تفضل المرفق وأكرر لك Book22.rar

جزاك الله خيرا علي كلماتك الطيبة ولاشكر علي واجب فمن واجب المسلم علي أخيه تفريج همه

عفوا أخي لم أقرأ جيدا في الأول ظننت أنك تريد التجميع من الأوراق إلي الورقه (MAIN) وكنت قد بدأت في هذا الإتجاه وهذا الكود غير كامل إن أردت المحاولة Sub Shift() x = Worksheets.Count For i = 2 To x Worksheets(i).Select Range("B5").Select For j = 0 To 9 If ActiveCell.Value > 1 Then GoSub 100: GoSub 200 ActiveCell.Offset(0, 8).Select Next j Next i 100 ' There's a data wn = Worksheet.Name ' Group Number ag = ActiveCell.Offset(-2, 0).Value ' Agent (Wakeel) dd = ActiveCell.Value ' date qa = ActiveCell.Offset(0, 1).Value ' Qaema (List) ad1 = ActiveCell.Address ' ad = Address ActiveCell.Offset(30, 0).Select Selection.End(xlUp).Select ad2 = ActiveCell.Address If ad1 <> ad2 Then GoSub 300 'There's another data 'OR it's only one record ActiveCell.Offset(-1, 3).Select Range(Selection, Selection.End(xlDown)).Select dc = Selection.Rows.Count - 1 'data count Range(ad1).Select Return 200 Return 300 Return 400 Next i End Sub لأنني مشغول الآن فإن لم يتدخل أحد الإخوة سوف أبدأ فيها غدا إن شاء الله

تفضل أخي ____ _______2.rar

لم أقصد الإشارة إلي عدم إستخدام الكود فقط أرجو مراجعة الورقة GRO1 للوكيل A والسؤال هو هل تريد نقل كامل البيانات بجميع الورقات؟

كود الدالة هو Function tax(a As Long) As Long 'Get 1st slib b1 If a > 10000 Then b1 = 10000 Else b1 = a 'Get 2nd slib b2 If a > 30000 Then b2 = 20000: GoTo 50 If a > 10000 And a < 30000 Then b2 = a - 10000 Else b2 = 0 50 'Get 3rd & 4th slibs b3 & b4 If a > 120000 Then b3 = 90000: b4 = a - 120000: GoTo 100 If a > 30000 And a < 120000 Then b3 = a - 30000: b4 = 0 100 ' Tax ratio = b1:0% b2:20% b3:30% b4:35% global_tax = b1 * 0 + b2 * 0.2 + b3 * 0.3 + b4 * 0.35 'Tax Exceptions 40% (min1000 - max 1500) ex_40 = global_tax * 0.4 If ex_40 < 1000 Then ex_40 = WorksheetFunction.Min(1000, global_tax) If ex_40 > 1500 Then ex_40 = 1500 tax = global_tax - ex_40 End Function

قد يكون السبب الفاصلة , والفاصلة المنقوطة ; إستبدل الفاصلة بالمنقوطة في الجهاز الأخير

السلام عليكم هل المطلوب نقل جميع البيانات في الورقات غير الأولي إلي الورقة الأولي إذا كان ذلك، فلماذا لم تنقل يدوي في المثال أول بيانات في الورقة GRO1 للوكيل A

في هذه الحالة يمكن إعتبار أن الزكاة ،كما سبق وذكرت، = 7.3798% من نصيب التاجر في عمود الجمارك هذا الرقم مضبوط علي كل القيم عندك

بارك الله فيك وجزاك خيرا

السلام عليكم أخي العزيز الحل أيضا بطريق الأكواد إستحدثت لك دالة tax() فقط تكتبها وبين القوسين الراتب الشهري ينتج لك الضريبة وقد راجعتها علي كامل القيم التي أرفقتها أنت كانت هناك بعض النتائج الخاطئة في الرواتب بين الـ 20000 وال 30000 دج لكن الأخطاء في أجزاء لاتتعدي 0.4 دينار مرفق الملف به نفس البيانات التي أرفقتها أنت أولا حيث تظهر بعض الفروق التي حدثتك عنها تفضل TAX01.rar

السلام عليكم أين المرفق

السلام عليكم تفضل أخي الملف المرفق تضع الراتب الشهري في أول عمود فيتم حساب الضريبة بالتفصيل أنا راجعته علي قيم كثيرة مما أرفقتها أنت كانت النتائج ممتازة يمكنك مراجعته أيضا TAX.rar

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

السلام عليكم رجاءا إرجع للمشاركة رقم 4 فقط إستخدم الخلايا الصفراء الإيداع مافيه مشاكل السحب ، ضعه بالسالب

السلام عليكم الزكاة بالأصفر علي علاقة وثيقة بنصيب التاجر في عمود الجمارك وبالتحديد = 7.3798% من تلك القيمة لكن لابد أن تكون علي علم بالموضوع ككل مثلا الجمارك إذا كانت = 33.88% من أصل المبلغ فتكون الزكاة = 2.5% × 33.88% = 7.3798% والله أعلم

عفوا أخي لا أدري يجوز النت غير مضبوط تفضل الملف مع بعض التوضيح بالداخل ____ ____ _______ 2.rar

السلام عليكم أخي الفاضل/ علي حسن أذكر أني رأيت الموضوع حين عرضته المرة السابقة لكني لم أرغب في التقدم علي أحد أساتذتنا لأنك خصصت أستاذنا خبور الخير أو أحد العمالقة الكبار بسؤالك وقد ظننت أن المشكلة عويصة لأنه إذا خص السائل بسؤاله أحد المشرفين فغالبا مايكون الموضوع كبير وبه تعقيدات سبق أن ناقشها مع المشرف المطلوب عموما معذرة للإطالة وتفضل أخي المرفق أرجو أن يوفي المطلوب

أخي الفاضل مصطفي جزاك الله خيرا علي مرورك وكلماتك مرفق طريقة مبسطة لعرض العملية في الورقة الأخيرة Sheet4 الورقة محمية ، كلمة السر 123 لايسمح للمستخدم بالتغيير إلا في الخلايا الصفراء مارأيك؟ asd02.rar

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

جزاك الله خيرا أخي حسن وجعلنا عند حسن ظنكم

السلام عليكم السؤال مش واضح ممكن ترسل ملف ؟