أبو حنــــين

العفو أخي : / skyblue

و هذه محاولة أخرى

السلام عليكم اخي هل تقصد بهذه الطريقة اظهار الحساب المالي ومركز المسئولية لكل مبلغ4.rar

العفو اخي : / توكل

هذا المرفق يقوم بالعملية كما طلبت 3.rar

************************************************************ دائما تشرفنا بمروركم اخي الفاضل : / عبد الله باقشير جزاك الله خيرا ************************************************************

هنا في هذا المثال يتم نسخ المعلومات ثم حفظ الملف جديد.rar

لم استوعب جيدا ما ذكرت لكن قمت ببعض الشيئ جربه و اخبرني مجلد جديد.rar

الملف محمي بكلمة مرور

السلام عليكم هذا الملف يحتوي على امكانية : نقل الى صفحة معينة او نسخ الى صفحة معينة 33333.rar

الحمد لله و هذا مبتغانا

لو فرضنا ان عدد الموردين هو 50 كل مورد لع اسم معين فيكون الملف يحتوي على 50 صفحة باسم كل مورد مثلا لو كان اسم المورد هو محمد فيجب وجود صفحة اسمها محمد و كود المورد يكون بجوار الاسم اي الاسم ثم كود المورد في هذه الحالة ما يتغير في الكود هو هذا السطر : For t = 1 To 6 تصبح بالشكل : For t = 1 To 50 مع ملاحظة موقع الاسم في العمود D و موقع كود المورد في العمود E اخي ارسل مثالا و ان كان ملفك يحتوي على اشياء لا تريد ظهورها هنا فأرسل نموذجا يشبه ملفك الاصلي ببيانات وهمية ليتم العمل بطريقة صحيحة تحياتي

عمل ممتاز اخي يوسف لا بد انه اخذ الكثير من الوقت و الجهد جعله الله في ميزان حسناتك

قمت بتجربة الملف على اوفيس 2003 و وندوز XP لكن يظهر خطأ

هذا شرح اخي للكود ولو وضعت مثالا للعمل عليه لكان اسهل لك و للاخوة الاعضاء للادلاء بآرائهم الشرح Sub recherche() '************************************************************************************************************* ' ان وجد خطأ ما ، فأكمل الكود الى آخره On Error Resume Next '************************************************************************************************************* '************************************************************************************************************* 'هذه حلقة تكرار و ثمثل عدد الموردين انا استعملت 6 لان عدد الموردين = 6 في هذا المثال For t = 1 To 6 '************************************************************************************************************* '************************************************************************************************************* ' E9 اذا كانت القيمة المكتوبه الخلية ' E تساوي احدى القيم الموجودة في عمود الرقم في الصفحة الرئيسية و هو العمود If Range("E9").Value = Cells(t + 1, 5).Value Then '************************************************************************************************************* '************************************************************************************************************* ' فإنه ان وجد هذه الخلية يحدد الخلية التي على يسارها مباشرة و التي تمثل اسم المورد و في نفس الوقت اسم الورقة ' ثم يقوم بالذهاب الى هذه الورقة Sheets(Cells(t + 1, 5).Offset(0, -1).Text).Select '************************************************************************************************************* '************************************************************************************************************* ' أكمل حتي نهاية العدد 6 End if Next '************************************************************************************************************* End Sub

و هذا كود آخر بطريقتين بعد اذن اخي عبد الله 5.rar

هذا كود لاستاذنا الكبيير : عبد الله باقشير حفظه الله وجدته في المنتدى التنقل بين الصفحات.rar

جرب هذا المثال 222222.rar

هذه محاولة جربها 11111111.rar

هذه محاولة بالكود توزيع التلاميذ حسب المادة.rar

هذا مثال Book1.rar

و في الخلية N10 تصع نفس المعادلة مع تغيير P1 الى P8

يمكن ان تضع هذه المعادلة في الخلية N3 =DAY(1) & "-" & MONTH(P1)-2 & "-" &YEAR(P1)

استعمل هذه المعادلة =IF(OR(D7="";E7="");"";IF($E7>=10;"ينتقل";IF($D7>16;"يوجه";"يعيد")))

اكتب المعادلة في =IF(AND(D7>16;E7<10);"يوجه";IF(AND(D7<=16;E7<10);"يعيد";IF(AND(D7>16;E7>=10);"ينتقل";IF(AND(D7<=16;E7>=10);"ينتقل";"")))) الخلية F7