Abo Judy

جزاك الله كل خير يا أستاذ محمد و فى ميزان حسناتك ان شاءالله و بارك الله فى أعضاء هذا المنتدى العظيم و فى جهودكم جميعا

السلام عليكم و رحمة الله و بركاته كيف حالكم جميعا ان شاءالله تكونوا بخير عندى ملف اكسيل فيه تجميعة للرواتب لكل فرد على حدا و المطلوب فيه تفقيط عدد العملات الورقية لكل راتب لتجميعها فى جدول منفصل مثال : عندى مثلا الرقم 6885 عايز احسب عدد كل عملة ورقية لوحدها كالتالى عدد الورقة النقدية 1000 = 6 عدد الورقة النقدية 500 = 1 عدد الورقة النقدية 200 = 1 عدد الورقة النقدية 100 = 1 عدد الورقة النقدية 50 = 1 عدد الورقة النقدية 20 = 1 عدد الورقة النقدية 10 = 1 عدد الورقة النقدية 5 = 1 و اذا كان الرقم 6995 يكون عدد الورقة النقدية فئة الـ 200 = 2 و فئة الـ 20 = 2 و هكذا أرجو ان تكون الفكرة واضحة و مرفق جدول بالمطلوب و حطيت فيه الاكواد على قدر استطاعتى و ارجوا منكم التعديل عليه و التصحيح لأن إجمالى قيمة الرواتب بيتم عمل شيك بها لصرفها من البنك على حسب عدد كل قيمة ورقية و جزاكم الله كل خير رواتب.xlsm

الله يرحمه و يغفرله و يسكنه فسيح جناته و يتجاوز عنه

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

السلام عليكم استاذ سليم بعد نقل الكود للملف الاصلى ظهرت رسالة خطأ فى هذا السطر و الترقيم التلقائى اختفى With Sheets("SALIM_BALANCE") xx = .Cells(Rows.Count, "b").End(3).Row For i = 2 To xx If .Range("A" & i).Interior.ColorIndex <> 35 Then .Range("A" & i) = k k = k + 1 Else k = 1 End If ثانيا عند اضافة شيت جديد لعمل تجميعة الرواتب و حسابات اخرى بتظهر رسالة خطأ اخرى مختلفة عن الاولى With Sheets(m) If .Name <> "SALIM_BALANCE" Then x = Application.Max(.Range("a:a")) + 1 y = .Range("B:B").Find("*", after:=Cells(x, 2), LookIn:=xlFormulas).Row Sheets("SALIM_BALANCE").Range("B" & D + 1).Resize(x - 1, 9).Value = _ .Range("b2").Resize(x, 9).Value t1 = D + 1 With Sheets("SALIM_BALANCE") مرفق الملف حساب التريبات شهر مارس 2019.xlsm

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

جزاك الله خير جارى تحميل الملف و التجربة

تمام يا استاذ سليم و جزاك الله خير ملاحظة بسيطة : انا عايز الترحيل يكون للبيانات المتسجلة فقط و ليس باقى الصفحة الفارغ بمعنى ترحيل البيانات ذات التاريخ فقط و بدون فاصل بين كل شيت و آخر و باقى الصفحة الخالى من التاريخ لا يتم ترحيله ثانيا ما هى طريقة تجميع خانات سعر الطن فى كل شيت لانها تحتوى على كود ولا اجد طريقة للتجميع الملاحظات كتبتها فى الشيت الاخير و يوجد ملاحظة اخرى فى الشيت الاول (40104) فى آخر الصف و اعتذر على الاطالة و جزاك الله خير tartib _mars.xlsm

جزاك الله خير استاذ سليم جارى تحميل الملف و التجربة

السلام عليكم و رحمة الله و بركاته حياكم الله و جزاكم الله خير على مجهودكم فى نشر المعرفة بين الاعضاء بعد اذنكم عندى جدول لحركة الشاحنات عدد 10 شيت مطلوب تجميع ارقام الصف المسمى (سعر الطن) و انا حاولت و ما عرفت لان الصف يحتوى على اداة شرطية تم استخدام و تعديل كود ترحيل البيانات من تصميم الاخ الفاضل مصطفى شرف من هذا الموضوع و لكن فى نهاية صفحة التجميع يوجد خطأ و هو اضافة الصفحة الاخيرة مرة اخرى كاملة المطلوب بعد اذنكم أولا : حل لعملية تجميع صف سعر الطن فى كل شيت ثانيا: ترحيل البيانات لحد آخر تاريخ تسجيل فى كل شيت ثالثاً : ايجاد الخطأ فى كود ترحيل البيانات الى الشيت الاخير و عدم تكرار اضافة الشيت الاخير مرة اخرى لانى بعمل تصفية للبيانات و ترقيم تلقائى و جزاكم الله خير مرفق الملف و به التوضيح المطلوب التريبات شهر مارس 2019.xlsm