hoodahooda

رائع وتسلم ايدك

وهذا هو البرنامج

الموردين - Copy.zip

اريد عمل استعلام لعمل كشف حساب المورد

بين استعلام total واستعلام dd1

dd1 خاص بالدفعة

total خاص بالفاتورة

اريد ترحيل المشتريات للموردين

المقصود الترحيل لشيت المورد

عندك 12 صفحة مشتريات كل شهر بمشترياته

واريد الترحيل منها لشيت المورد

اريد ترحيل قيمة الفاتورة الي كل مورد علي حدي فعند تسجيل قيمة المشتريات في بيان المشتريات لشهر 1 ينتقل القيمة للمورد وهكذا عند تسجيل المشتريات لشهر 2 ترحل بالترتيب في حساب المورد حسب اسم المورد

New Microsoft Excel Worksheet.zip

رائع بجدددددددددددد

كل ما اقوم بعمل save تظهر لي هذه الرسالة ما هو علاجها

ولكنه غير مفتوح حتي يتم الاستفادة منه اكثر في معرفة المعادلات والجداول والعلاقات

شكرررررررررررررررررررررررررر

هذا هو برنامجي الذي اريد اغلاق نماذجه بعد التعبئة والتعديل بعد كتابه الباسوورد

شكرا جدا

عند تعبئة البيانات من نموذج معين ويتم اضافة صف جديد وادخال بيانات جديدة يتم اغلاق ولا يتم التعديل الا بعد ادخال باسوورد معين

السابق له حتي لايتم التعديل فيه فكيف ذلك

كيف الربط بين برنامج مكون من جزئين جزء خاص به الجداول الاساسيه بقاعدة البيانات

وجزء خاص بالنماذج والاستعلامات والتقارير

مثلا اسم قاعدة البيانات data1

واسم القاعدة الخاصة بالنماذج والاستعلامات والتقارير data2.

فكيف اربط الاستعلام والنماذج والتقارير التي في data2 بالجداول الاساسيه في data1

علي الرغم ان كل منهم ملف اكسس منفصل عن الاخر

شكرا ولكن ليس هو المطلوب

المطلوب الاول زر حفظ المعادلات وعند الضغط عليه يقوم بالترحيل في شيت حفظ المعادلات

وزر الاستدعاء عند الضغط عليه ياتي بالصفوف التي فيها الأرقام التي تساوي والمحصورة بين الرقمين المكتوبين في خانه e1 ,c1

وشكرا

ارجو مساعدتي في عمل زر حفظ بعد كتابه المعادلة يتم حفظها في شيت حفظ المعادلات بالترتيب

ارجو مساعدتي في عمل زر استدعاء عند كتابه عرض شريحة معينه في الخانه C1 والخانه E1 يعمل بحث علي الارقام الموجوده في الخانتين والارقام اللي بينهم ايضا لو موجوده ويتم البحث في جميع الصفوف من المعادلات التي تم تخزين وحفظها مسبقا في شيت حفظ معادلات

وشكرا

_____.zip

شكرا جدا ولكن لي طلب شرح هذا الكود

Sub trheel()

r = Sheets(1).Cells(1000, 1).End(xlUp).Row + 1

Sheets(1).Cells(r, 1).Value = Cells(11, 3).Value

Sheets(1).Cells(r, 2).Value = Cells(13, 3).Value

Sheets(1).Cells(r, 3).Value = Cells(20, 8).Value

Sheets(1).Cells(r, 4).Value = Cells(25, 3).Value

Sheets(1).Cells(r, 5).Value = Cells(26, 3).Value

End Sub

حتي يتثني فهمه و تطبيقه علي اكثر من عمل لدي

وشكرا

ممكن مساعدة من الأستاذ خبور

ممكن عمل كود ترحيل لهذه الورقة مع شرحه

Book2.zip

برجاء المساعدة في عمل كود ترحيل لهذه الصفحة

Book2.zip

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

ما في رد من احد

برنامج الصيانه والنسخة مفتوحة لمن يحب التعديل

ولا تنسونا من صالح دعئكم

http://www.ziddu.com/download.php?uid=arGg...yZlJyiZrCWlp2r6

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

وانا تاركه مفتوح لتعم الفائدة والتعديل عليه علي حسبالأستخدم

ولا تنسونا من دعائكم

http://www.ziddu.com/download.php?uid=bbGb...qhkZSrYayimpiq4