اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

saad abed

05 عضو ذهبي
  • Posts

    1380
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    4

كل منشورات العضو saad abed

  1. ابو نصار الابداعات كثرة اخى كل يوم بنتعلم منك شئ جديد جزاك الله خيرا
  2. اخى جمال الفار عظم الله أجركم وأحسن عزاءكم وغفر لميتكم وتغمد الله والدتكم بواسع رحمته وأسكنها فسيح جناته البقاء لله
  3. اخى زوهير بارك الله فيك
  4. اخى احمد زمان فعلا عندك حق وانا والله اشكرك كل الشكر على معلوماتك التى تعلمها لى ولغيرى المساعدين كثر وهم اهل فضل اشكركم جميعا الاستاذ الخالدى شكرا لك فهمت من تعديلك وتعديل ابونصار الكثير اشكرك اخى الف شكر سعد عابد
  5. اخى وحبيبى فى الله ابواحمد عبدالله المجرب اشكرك كل الشكر كل يوم بنتعلم منك شئ جديد بارك الله فيك شكرا لك وجزاك الله خيرا اخى وحبيبى ابونصار احسن انك لم ترى الرد علشان اعرف ان هناك اخوة فى الله هم كثر خلفى يساعدونى اشكرك لانك عدلت الكود لكى افهم الخطأ فين بارك الله فيكم سعد عابد
  6. اخى فى الله احمد زمان(ابوابراهيم) اولا وحشنا اسال الله ان يجمعنا فى جنة الخلد انشاء الله درس جميل جدا ومعلومات قيمة لكن حاولت وفشلت واليك الملف report.rar
  7. صلى الله على سيدنا محمد
  8. اخى مجدى اشكر لك مروركم الكريم
  9. اخوانى الاعزاء السلام عليكم ورحمة الله وبركاته ارجو القاء نظرة على الكود التالى الكود يعمل فى وجود المتغيرات الثلاثة طبيعى سؤالى هو اذا غاب التاريخ من الى لماذا لا يبحث عن المتغير الاساسى اشكركم سعد عابد Sub report1() On Error Resume Next Application.ScreenUpdating = False For R = 5 To Sheets("مشتريات").[b10000].End(xlUp).Row If Sheets("مشتريات").Cells(R, 6) = Sheets("report").[c3] Then If Sheets("مشتريات").Cells(R, 5) >= Sheets("report").[g3] Then If Sheets("مشتريات").Cells(R, 5) <= Sheets("report").[j3] Then With Sheets("report").[b10000].End(xlUp) .Offset(1, 0) = Sheets("مشتريات").Cells(R, 2) .Offset(1, 1) = Sheets("مشتريات").Cells(R, 3) .Offset(1, 2) = Sheets("مشتريات").Cells(R, 4) .Offset(1, 3) = Sheets("مشتريات").Cells(R, 5) .Offset(1, 4) = Sheets("مشتريات").Cells(R, 7) .Offset(1, 5) = Sheets("مشتريات").Cells(R, 8) .Offset(1, 6) = Sheets("مشتريات").Cells(R, 9) .Offset(1, 7) = Sheets("مشتريات").Cells(R, 10) End With End If Next Application.ScreenUpdating = True End Sub
  10. اخى عبدالله باقشير اسال الله ان ينعم عليك بكل نعمه يمكن نكون طمعين بكرمك كتير ولكن عذرنا انك اخ كريم ومعطاء اخى لقد فعلت فعلا ما فعله mido فقد قسمت الكود لثلاث اصناف كود يجلب حساب عميل مورد يبحث فى خمس ورقات كود يجلب حساب العميل يبحث فى ثلاث ورقات (مبيعات وم.مبيعات والخزينة) كود يجلب حساب المورد يبحث فى ثلاث ورقات (مشترياتوم.المشترياتوالخزينة) الكود لم ارى مثيل له فى السرعة بفضل الله بل نستطيع جلب بيانات الاصناف به فهو بداية بل بداية ونهاية لبرنامج كبير لقد حاولت ان استخدم slect case لم افلح فى الوصول للهدف المنشود وهو ان ياتى الحساب بطريقة محاسبية سليمة وهى = المشتريات - (م.مشتريات+المسدد) = حساب المورد وكذلك العميل وكذلك العميل المورد نكون شاكرين لك لو تكرمت واكملت العمل بطريقتك كل الشكر والتقدير اخوك سعد عابد
  11. اخى عبدالله جزاك الله خيرا اعمالك واخلاقك جميلة وفقك الله تقبل تحياتى سعد عابد
  12. أخى الكريم / أبو انس أخى الكريم / زوهير مبروك على الترقية
  13. اخى مرعى تقبل تحياتى وشكرى اخوك سعد عابد
  14. اخى مرعى السيد جزاك الله خيرا عمل جميل وفقك الله
  15. اخى عبدالله باقشير كلمة شكر يا اخى اراه قليله على مجهودك جزاك الله عنا خيرا بارك الله فيك وتعديل الداله الاخير فى مكانه الصحيح ربما يكون هناك حدث فى صفحة وغير موجود فى صفحة اخرى سعد عابد
  16. اخى الفاضل / عبدالله باقشير منذ ان رايتك مره داخل الصفحة واعلم والله انك ستساعدنى كما ساعدتنى انا وغيرى كثيرا قبل ان اطلع على الحل فانا اعلم ان اعمالك واكوادك كلها متقنة جزاكم الله خيرا اعزكم الله ستركم الله فى الدنيا والاخرة شكرا لكم سعد عابد
  17. اخوانى مع كثرة التفكير وجدت حل استخدام فلترة الاوراق بالمتغيرات ثم نسخها لكن التاريخ مش ضابط مع مش عارف ليه برنامج مبيعات.rar
  18. اخوانى حاولوا وانا احاول ايضا جزاكم الله خيرا
  19. اخى رجب اعمال رائعة بارك الله فيك
  20. اعضاء المنتدى الكرام هل استطيع البحث بثلاث متغيرات فى خمس ورقات فمثلا نبحث عن عميل مورد فى فترة بين تاريخين فى المبيعات ومردوداتها والمشتريات ومردوداتها وعن ما تم سداده فى ورقة الخزينة اعلم اننى من الممكن تجميعهم فى ورقة واحدة ولكن نظرا لكثرة البيانات الفصل افضل بانتظار الرد اشكرك برنامج مبيعات.rar
  21. ابو ادم اسال الله العظيم رب العرش الكريم ان يمد فى عمرك ويحسن عملك ويمتعك بصحة وعافية وستر فى الدنيا والاخرة
  22. اخى عبدالله باقشير لقد جعلت الاكسيل مطيع لك بفضل اجتهادك بل جعلته يكلمنى (الاكسيل الناطق) بارك الله فيك كل عام وانتم بخير
  23. اخى عبدالله باقشير اخى ابوتصار جزاك الله خيرا الكود شغال 100% اعمالكم رائعه وفقكم الله
×
×
  • اضف...

Important Information