تجميع كشف حساب العملاء

[محمد مصراوى]

السلام عليكم

فى المرفقات يوجد كشف حساب عملاء

1- ارجوا عند ادخال اسم عميل جديد ان يتم ادخالة فى صفحة العملاء برصيدة

2- اذا تكرر العميل فى كذا عملية وهذا يمثل فى الشيت فهل يمكن ان اقوم بتجميع الصفحات الخاصة او الاوراق الخاصة باسم العميل فى صفحة العملاء مجمع لحسابة

 

7878(1).rar

[محمد مصراوى]

اية ياجماعة اعمل اية محتاج ضرورى عمل الملف

[محمد مصراوى]

ياريت حد يرد

[حمادة عمر]

السلام عليكم

الاخ الكريم / محمد مصراوى

 

بارك الله فيك

ارجو ان انبهك حضرتك بانه تم الرد في الموضوع الاساسي

حيث انك قمت بوضع موضوع جديد به نفس الطلب ... واظن انه يعتبر مكرر

http://www.officena.net/ib/index.php?showtopic=46480&hl=

 

جرب المرفق التالي به فورم آخر لاضافة شيت جديد كما تريد باسم العميل الذي تريده

من احد اعمال الاستاذ القدير / عبد الله باقشير ... تم اضافة الجزء الخاص بترحيل اسم العميل الي صفحة العملاء

جرب ذلك ...

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

 

 

اضافة ورقة عبر فورم11.rar

تم تعديل أبريل 26, 2013 بواسطه حمادة عمر

[احمدزمان]

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

فرد من الجماعة

7878.rar

7878.rar

[عبدالله باقشير]

السلام عليكم

 

 

الشكر واصل لاخي حمادة........حفظه الله

ولاخي احمد يعقوب .......حفظه الله

 

انا جهزت هذا قبل ان ارى مشاركتكما

 

في المرفق ادخال الكود والاسم والرصائد في صفحة العملاء

 

 

شاهد المرفق 2003

78s78.rar

[احمدزمان]

السلام عليكم

استاذي الفاضل عبدالله باقشير

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

 

 

اخي الفاضل حمادة عمر

اعتذر منك

لم اشاهد ردك الا في هذه اللحظة

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

[حمادة عمر]

السلام عليكم

الاستاذ القدير العلامة الخبير / عبدالله باقشير

 

بارك الله فيك

استاذنا القدير كل الردود بعد ردك تساوي لاشئ

فلقد اجبت فأحسنت فأبدعت فأوجزت

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

واضافة لطلب آخر للاخ / محمد مصراوي ... في الموضوع الاساسي وفي الملف الموجود بهذا الموضوع

طلبه بكود للانتقال للصفحات سأقدم له هذا الكود من اعمالك ايضا ( كود الانتقال للصفحات ليستخدمه في ملفه )

Sub GO_TO()
On Error Resume Next
  Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
  If Err.Number > 0 Then
    Err.Clear
    Application.CommandBars("Workbook Tabs").ShowPopup
  End If
  ActiveWindow.ScrollColumn = 1
  ActiveWindow.ScrollRow = 1
  On Error GoTo 0
End Sub

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

[حمادة عمر]

اخي الفاضل حمادة عمر

اعتذر منك

لم اشاهد ردك الا في هذه اللحظة

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

 

السلام عليكم

استاذي القدير / احمدزمان

 

بارك الله فيك

مثلك لا يعتذر او يستأذن استاذنا بل يأمر دائما

فلقد تعلمنا التسابق في الخير وتقديم المساعدة منكم انتم

فهو دين نرده لكم في مشاركاتنا

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

[عبدالله باقشير]

السلام عليكم

 

اخي الحبيب حمادة -------حفظك الله وجزاك خيرا

يعجبني نشاطك الفعال في كل المنتدى ما شاء الله عليك

 

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

وانما انا استخدمته كثيرا في اعمالي وخاصة الاعمال المدرسية

 

هذا اختصار للكود:

يكفي هذا السطر ليقوم بذلك

Application.CommandBars("Workbook Tabs").ShowPopup

تقبل تحياتي وشكري

[محمد مصراوى]

السلام عليكم

اشكر اخوتى على المجهود الرائع

تكرراى للموضوع لاننى لم اجد احد لكى يكمل لى الموضوع وانتظرت كثيرا وبعت رسائل لاكثر من شحص على الرسائل الخاصة به لكى يكمل لى الموضوع ولم يستجب لى احد لعلهم لم يرو الرسائل

والحمد لله اكثر من شخص رد على الان لله الحمد

لى طلب اخر من الاستاذ عبدالله

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

شاكر تعب الاخوة الاعزاء

جعلة الله فى ميزان حسناتكم

[عبدالله باقشير]

السلام عليكم

اخي الفاضل / محمد مصراوي

اصلا لا يمكن تكرار شيت بنفس الاسم

لذا لا يمكن تكرار الاسماء

 

تحياتي

[محمد مصراوى]

شكرا اخى

طيب هل يمكن عمل ملف باسم العميل وبه العمليات 

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