أريد ملف حسابات بسيط - لو تكرمتم

[طارق محمود]

أخي أبايوسف

تم وضع العدد وسعر الوحدة سويا تحت المقاس ، كله في صف واحد

أنظر المرفق

Abu_Yousef5.rar

[أبا يوسف]

بارك الله فيك

[أبا يوسف]

أخى الكريم طارق

أنا محرج جدا من حضرتك لكن كرمك هو اللى مشجعنى أن أطلب تعديلات على البرنامج

أريد فى الصفحة الرئيسية

إضافة المدفوع حتى لا أقوم بالدخول فى الصفحة التالية ووضعه

ثانيا عند ترحيل البيانات تقوم بمسح بعض عنواين الجدول مثل إسم المصمم والعدد

ثالثا هل من الممكن أن اقوم بطباعة فاتورة للعميل لو أرد معرفة حساباته كله أو من تاريخ معين بأسماء التصميمات والمبالغ المدفوعة والباقى

ولك جزيل الشكر

ملحوظة قمت بتعديل طفيف فى شكل الجدول الرئيسى

حسابات 2010.zip

[طارق محمود]

لاداعي للإحراج

أطلب ماشئت

لكن التعديلات التي قمت أنت بها أصابت الجدول ببعض الأضرار

أريد فى الصفحة الرئيسية إضافة المدفوع حتى لا أقوم بالدخول فى الصفحة التالية ووضعه

قم بعمل الثلاث تعديلات التالية بالكود

NEW تعني إضافة السطرين المذكورين و

Repair تعني إضافة فقط E21 في سطر الإلغاء

Sub Shift_from_Main()

..

..

..

..

..

..

..

..


..


..

..

..



100 ' Assign Q'ty to d6,d7,d8

d(6) = ActiveCell.Offset(6, 2)

d(7) = ActiveCell.Offset(7, 2)

d(8) = ActiveCell.Offset(8, 2)

d(16) = ActiveCell.Offset(15, 2)               ' NEW



'Shifting

..

..

..

..

..

..


            ActiveCell.Offset(0, 5) = d(4)

            ActiveCell.Offset(0, 19) = d(12)

            ActiveCell.Offset(0, 17) = d(13)

            ActiveCell.Offset(0, 18) = d(14)

            ActiveCell.Offset(0, 20) = d(15)            ' Total at last record if more than one

ActiveCell.Offset(0, 21) = d(16)                           ' NEW



..

..

..

..

..


    Worksheets("MAIN").Select

        Range("C7:C14,C18:C20,E5:E14,E21").Select                                  ' Repair

        Selection.ClearContents



End Sub

تم تعديل يناير 21, 2010 بواسطه TareQ M

[طارق محمود]

ثانيا عند ترحيل البيانات تقوم بمسح بعض عنواين الجدول مثل إسم المصمم والعدد

أليس هذا ماكان مطلوبا

لوتريد تغيير مثلا الإحتفاظ بإسم المصمم ، أخبرني

ثالثا هل من الممكن أن اقوم بطباعة فاتورة للعميل لو أرد معرفة حساباته كله أو من تاريخ معين بأسماء التصميمات والمبالغ المدفوعة والباقى

ممكن لكن اتركها للأسبوع القادم لضيق وقتي

ملحوظة قمت بتعديل طفيف فى شكل الجدول الرئيسى

غالبا هذه التعديلات ستسبب أن نعيد العمل

أفضل لو تظل علي شكله الأول

[أبا يوسف]

بارك الله فيك أخى طارق

ثانيا عند ترحيل البيانات تقوم بمسح بعض عنواين الجدول مثل إسم المصمم والعدد

أليس هذا ماكان مطلوبا

لوتريد تغيير مثلا الإحتفاظ بإسم المصمم ، أخبرني

نعم المطلوب مسح البيانات

لكن هناك عنواين تمسح أيضا

[أبا يوسف]

السلام عليكم ورحمة الله وبركاته

كده كله تمام تمت إضافة الأكواد ويعمل بشكل ممتاز

أما الفاتورة لما وقت حضرتك يسمح

لكن هناك مشكله الملف لا استطيع أن أجعله مشارك

بخاصية مشاركة فى المصنف لأن هناك زميل يعمل على جهاز أخر يشاركنى فى إضافة البيانات فيه

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

[طارق محمود]

من قائمة Tools

ثم من Shared Workbook

ثم Editing

ثم تعلم علي Allow Changes

[أبا يوسف]

أستأذنك بالعربى لإن الإكسيل عندى عربى

[أبا يوسف]

انا بختار من قائمة مراجعة

بختار مشاركة فى المصنف

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

تم تعديل يناير 21, 2010 بواسطه أبا يوسف