حسين العصلوجى

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

اذا كانت المشكله فالتنفيذ :- فعليك ادخال رقم الاسبوع ثم ادخال البيانات والضغط علي صورة الديسك للحفظ

اذا كان الملف لايفتح من الاساس :- قم بفك ضغط الملف اولا او حمل من هنا http://www.gulfup.com/?C84CGs اذا كانت المشكله فالتنفيذ :- فعليك ادخال رقم الاسبوع ثم ادخال البيانات والضغط علي صورة الديسك للحفظ

تم عمل المطلوب جرب المرفق لعله يفى بالغرض H-الأجرة.rar

اذا افترضنا ان سياسة الشركة تعطي علي المئة حبه بونص 25 حبه : - الخصم = 25 / 100 اي 25% اذا كانت سياسة الشركة تعطي خصم 25 % :- البونص = .25 * الكمية الموجوده بالفاتورة

اثراءا للموضوع بعد حل الاخت / ام عبدالله ده حل اخر باستخدام sumproduct عد خلايا بشروط.rar

هذه فكره بسيطه بعيدا عن الاكواد المعقده جربها لعلها تفي بالغرض * يجب ادخال التاريخ علي هذا النحو 03022014 اي لابد من اضافة 0 في حالة اذا كان الشهر او ايوم رقم واحد وليس رقمين Book1.rar

تم اضافة التالي للمرفق : - 1- لايمكن سداد قسط قبل الاخر 2- لايمكن سداد قسط تم ادخاله من قبل H-ll.rar

تم تعديل الملف كما طلبت جرب المرفق لعله يكون المطلوب عاطف جريش23ــ12H.rar

اشكركم علي مروركم العطر وتشجيعكم لي علي الدوام

شكرا اخي الكريم / حماده علي مرورك العطر

عملت الكود علي حسب ما فهمت من الملف اذا يوجد اي تعديلات اخبرني بها H-حساب المرضى 23ــ12.rar

هل تقصد جلب البيانات من صفحة البيانات ام صفحة شيت 1 لان صفحة شيت 1 لاتحتوي علي اي بيانات وماهي البيانات المراد نقلها

Me.TextBox1 = "" المشكلة في هذا السطر لانك كاتب الكود في حدث تغير التكست بوكس فبعد ظهور الرسالة اول مره يقوم هذا السطر بمسح محتوي التكست بوكس فيعمل الكود مره اخري وتظهر الرسالة مره ثانيه جرب المرفق لعله يكون حلا لمشكلتك h-MSGBOX.rar

الاخ / firas هل عملية السداد تكون متسلسلة اجور التسجيل ثم مبلغ الكتاب ثم القسط الاول الخ ام انه يمكن ان يسدد مبلغ قبل الاخر ان كان هناك تسلسل فالسداد من الممكن تعديل الكود لاعطاء رسالة تحذير اذا تم سداد دفعه قبل الاخري

ws2.Cells(2, 23) هي الخلية w2 وهي الخلية التي تقوم بادخال برقم اول اسم فيها ومنها يقوم الكود بتحديد بداية الجدول الذي سيتم نسخه

الخطاء في الكود هو في هذا السطر:- X = ((ws2.Cells(2, 23) - 1) * 3) + 11 حيث ان الخلية المرجعية هي w2 وليس x2 كما اضفت 14 في المرة الاولي لان عدد صفوف رؤوس الجدول 14 سطر لكن في حالتك 11 سطر فقط H-الأول الثانوي.rar السطر الاول : لتحديد اول سطر في الجزء المطلوب نسخه لورقة الطباعه حيث ان الاسم مكون من 3 صفوف وتضيف عدد الصفوف المكونة لراس الجدول ------------------- السطر الثاني : لمس محتويات صفحة ورقة الطباعة التي سبق نسخها من قبل ------------------- السطر الثالث : لتحديد الجزء الذي سيتم نسخه حيث x اول سطر ويتم زيادة 30 صف (10 اسماء * 3 بنو للاسم ) و22 عمود الموجودين بالجدول ------------------- ارجو ان اكون وفقت في توضيح الفكرة لك

الاخ الفاضل / خالد لنقل اعمده معينه يمكن استخدام for next وصيغة الخلايا علي هيئة cells(r,c) لنقل الاعمده المطلوبه فقط اذا لديك ملف يمكن ارفاقه للتطبيق عليه

بعد مشاركة استاذنا الفاضل / رجب جاويش ده حل اخر عن طريق الاكواد H-مثال.rar

مشاركات مميزه مثل مشرفنا المميز

اثراءا للموضوع بعد حل الاخت / ام عبدالله ده حل لطلبك عن طريق اكواد vba جرب المرفق لعله يفي بالغرض H-ll.rar

فكرة الكود تقوم علي نسخ 10 اسماء من الورقة 1 الي ورقة 2 بناءا علي الرقم الذي تقوم انت بادخاله X = ((ws2.Cells(2, 24) - 1) * 3) + 10 Set srng = ws2.Range("a9:v38") srng.Clear Set srng2 = ws.Cells(X, 1).Resize(29, 22) حيث ان قيمة ال x تعتمد علي القيمة التي قمت بادخالها بالورك شيت ومنها يتم تحديد المدي المطلوب ونقله الي صفحة الطباعة راجع الكود مره اخري وحدد الاجزاء التي صعب عليك فهمها وستجد الشرح مني ومن كافة اعضاء المنتدي الكرام

جرب المرفق لعله يفي بالغرض ولاتتردد في طلب اي تعديلات مستخلص جاري11 H-.rar

اثراءا للموضوع :- ده حل عن طريق الاكواد اتمني ان يفي بالغرض الأول أساسي تجربة.rar

الاخ الفاضل / ابو رائد الملف يعمل بصورة صحيحة قد يكون الخطأ الذي حدث معك نتيجة لنقلك الكود من ملف لاخر انا طبقت لك نفس الكود علي الملف الذي ارفقته جرب المرفق لعله يكون المطلوب H-جدول الاختبارات.rar