ابوحمزه المصرى

اخى الفاضل خالد الرشيدى ... هذا هو المطلوب بالضبط ..شكرا لك .. وزاذك الله علما

شكرا اخى الفاضل خالدى الرشيدى حل جميل ... بارك الله فيك ....كلمة مرتجع ستكون فى نفس عامود كلمة فاتورة فى اليومية (RAWDATA)

ما شاء الله اخى زيزو العجوز شكرا لك وبارك الله فيك حل جميل لكن هل من الممكن اضافة الدالة MONTH مباشرة دون اضافة الاعمده المساعده واضافة شرط الفاتورة بحيث اذا تمت كتابة مرتجع لا يضاف الى الكميات المرحلة .

UP

السلام عليكم ورحمة الله وبركاته اخوانى اعضاء اوفيسنا الكرام ..مطلوب ترحيل الاصناف من اليومية حسب الشهر والمحافظة .. مرفق الملف و شرح المطلوب ترحيل الاصناف.rar

موضوع بصراحه رائع التعلم من الاخطاء يجعل المعلومه تلزق فى الجمجمه ... بصراحه السيد ياسر خليل والسيد ياسر العربى صرح من اكواد VBA ... بارك الله فيكما وجعله بميزان الحسنات

شكرا اخى الكريم ياسر العربى على مرورك العطر

السلام عليكم ورحمة الله وبركاته . معلومه عالسريع الدالة ( EOMONTH ) تستخدم لمعرفة اخر يوم في الشهر وتستخدم كما موضح بالصورة منقول

السلام عليكم اخى ياسر ملف جميل ....لكن اين اجد الفولدر للتعديل على الصور

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

up

تمام اخى الفاضل ياسر البرنامج اكثر من رائع .... فى ميزان حسناتك ان شاء الله

تمام اخى الفاضل الـعيدروس حل ممتاز .. بارك الله فيك

up

لم يعمل الملف بالفعل

مش فاتح معاي بيدى الصورة دى فقط

استاذى الفاضل اسامه البراوى اشكرك على الاهتمام بالموضوع .. الفواتير متسلسله على جميع المناطق امام موضوع الاستدعاء فهو فعال والشكر للاستاذ ياسر خليل الذى قام بطرح كود الاستدعاء حيث يقوم الكود بفرز اليوميه رقم الفاتورة ويدخل البيانات فى الفاتورة السؤال الان عند استدعاء فاتورة يتم استدعائها بسبب التعديل عليها او حذفها اى تم الغاء الفاتورة فالمطلوب بعد عملية الاستدعاء والتعديل على الفاتورة يتم الترحيل بالتعديل الجديد وليس ترحيل بالاضافة حتى لا تتكرر الفاتورة فى اليومية وعند الحذف يتم حذف كل بانات الفاتورة من اليومية ... ارجوا انا اكون وفقت فى ايصال الفكره .

up

كود ممتاز اخى الحبيب مختار حسين محمود مشكور على الموضوع .. بس انا خايف لا يقفش عشان انا عارف الصعايده كويس

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

اليك هذا الكتاب الرائع قد يفيدك كثيرا http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar

اولاً شكراً على تفاعلك فى الموضوع اخى الحبيب احمد عبدالناصر وشكراً آخر على الاضافه الجميله ... لكن كنت اود ان استخدم ARRAY او FOR NEXT لان هذا مجرد مثال اما الموضوع الاصلى فعدد الجداول فيه اكبر بكثير.. اتمنى من اخوانى اعضاء اوفيسنا التفاعل فى الموضوع لأهميته الكبيره.

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى اعضاء المنتدى الرائع اوفيسنا حفظكم واعزكم الله بعد المجهود الرائع لكل من اخى الفاضل خالد الرشيدى فى ترحيل الفاتورة واخى الفاضل ياسر خليل فى استدعاء الفاتورة الان بعد عملية الاستدعاء يتم التعديل على بيانات الفاتورة المطلوب ترحيل البيانات المعدله بحيث لا يتم ترحيل الفاتورة مرتين .. اليكم المرفق الاستدعاء والترحيل.rar

اليك اخى الحبيب رابط قسم اكواد الـ VBA بالمنتدى لعله ينفعك http://www.officena.net/ib/forum/51-قسم-أكواد-فيجوال-بيزيك-التطبيقات-vba/

هذا آخر اختصار للكود قمت بالتوصل اليه ويعمل جيدا لمن يريد الاضافه Sub auto_filtr() With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول1").Sort .SortFields.Clear .SortFields.Add Key:=Range("a1"), Order:=xlAscending .Apply End With With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول2").Sort .SortFields.Clear .SortFields.Add Key:=Range("b1"), Order:=xlAscending .Apply End With With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول3").Sort .SortFields.Clear .SortFields.Add Key:=Range("c1"), Order:=xlAscending .Apply End With With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول4").Sort .SortFields.Clear .SortFields.Add Key:=Range("d1"), Order:=xlAscending .Apply End With With ActiveWorkbook.Worksheets("ورقة1").ListObjects("الجدول5").Sort .SortFields.Clear .SortFields.Add Key:=Range("e1"), Order:=xlAscending .Apply End With End Sub