برنامج مخازن

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

بارك الله فيك أبي الحبيب أبو يوسف وجزيت خير الجزاء على الموضوع الجميل

تقبل تحياتي

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد:

السلام عليكم ورحمة الله وبركاته ...شرفني مروركم العطر وكلماتكم الطيبة ...حبيبي في الله أبو البراء الذي أرجو الله له من خيري الدنيا والآخرة...

فقد وفقني الله تعالى يوم الجمعة المبارك إلى أمرين

أولهما: حضوري خطبة جمعة أبهرتني :"عن النفس وإصلاحها، وأن كل منا يسير نحو آخرته منذ لحظة ولادته"فليحاسبها حساب الشريك الشحيح قبل أن تعرض للحساب أمام الله تعالى.

وأما ثانيهما:فهو رؤية كلماتك الطيبة العطرة التي كنت أشتاق لسماعها بل مشاهدتها لأنني أعجز عن الأولى ...وهي كلمات مشجعة ترفع همة النفس إن بقي في العمر بقية.

إلا أنني أرجو الإجابة على سؤالي خشية تكرار المواضيع عما ذكرته سابقاً والمتمثلة بقولي:

كيف لي أن أحصر الطباعة بين رقمين حتى لا تتجاوز الثاني الطباعة إلى نهاية الأصناف المسجلة ...راجياً الاستجابة لطلبي هذا وتسجيله ليستفيد من التعديل كل من نزل الملف.

علماً وإن كنت كهلاً فإنني كغصن غضٍّ طريٍ يحتاج إلى الرعاية والسقاية ليشتد عوده...

تقبل تحياتي العطرة

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

 

تم تعديل فبراير 12, 2016 بواسطه محمد حسن المحمد

[اسامةمحمد]

بارك الله فيك ونفع بعلمك

برنامج روعة من استاذ رائع

 

[محمد حسن المحمد]

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

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

 

 

[ياسر خليل أبو البراء]

وعليكم السلام أخي وحبيبي في الله أبو يوسف

بارك الله فيك وجزيت خيراً على كلماتك الرقيقة والجميلة .. جمعنا الله في مستقر رحمته يوم القيامة

 

بالنسبة لسؤالك عن كيفية حصر الطباعة بين رقمين فلم أدرك الطلب بشكل جيد ..فهلا فصلت الأمر تفصيلاً وجعلته واضحاً .. هل تقصد الطباعة من صفحة كذا إلى صفحة كذا ؟ أم عدد مرات الطباعة ؟

[محمد حسن المحمد]

السلام عليكم أخي الحبيب أبو البراء

جزاكم الله خيرا على حسن كلامكم واستجابتكم 

هناك زر في المرفق الأخير أسميته طباعة سريعة لاحظ أن الكود المتعلق به في الخلية j1 تم تحديد رقم الصنف كبداية للأصناف التي ستطبع بين تاريخين في ورقة تقرير حركة الأصناف .

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

فلا يتجاوزه إلى بقية اﻷصناف التي لا نرغب طباعتها أو إيقاف عمل الكود عندما لا تكون هناك حركة لرصيد الصنف بين إضافة وصرف.

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

والسلام عليكم.

[عبد العزيز البسكري]

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

واصل أخي الغالي " محمد حسن المحمّد " إبداعاتك .. و الله الموفّق

فائق إحتراماتي

[قلم-الاكسل(عبدالعزيز)]

عمل متعوب عليه وشغل عدل وبرنامج رائع وابداع ممتاز وتصميم رائع

بارك الله فيك اخي وغفر لك ذنوبك ووسع عليك من واسع افضالاته ورزقك من حيث لا تحتسب وعافاك من كل مرض وحفظك من مكروه

لا تحرمنا من جديداتك

 

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته...شرفني مروركما العطر وكلماتكما الطيبة ... أخوي العزيزين عبد العزيز البسكري وعبد العزيز-قلم اﻹكسيل  أدعو الله أن يعزكما باﻹسلام وأن يملأ قلبيكما إيمانا ويقينا صادقا وأن يجعلكما ممن يقال لهم ادخلوا الجنة لا خوف عليكم ولا أنت تحزنون....

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

[ياسر خليل أبو البراء]

أخي الحبيب أبو يوسف

اطلعت على الملف ولا أدري ما المطلوب بالضبط ...حاول تحدد ورقة العمل المطلوب عليها ؟ والنطاق الذي تستخدمه للطباعة ؟

حاولت في الورقة المسماة Report ووجدت أن الخلية J1 فارغة ... !

[محمد حسن المحمد]

السلام عليكم أساتذتي الكرام: أخي الحبيب أبو البراء

 

 ما أرغبه تكوين كود حلقة تكرارية يرتكز على المعطيات المسجلة في الخليتين J1    وK1   يقوم هذا الكود أثناء طلب الطباعة السريعة بالتنقل ضمن تسلسل الأرقام المسجلة بين الخليتين المذكورتين أعلاه فيتحول كل مرة إلى صنف جديد ضمن شرطي تاريخ بداية ونهاية التقرير معتمداً أيضاً على كود الصنف G3

 

أما عن مدى الطباعة فهو بدءاً من الخليةB1  وانتهاء بالخلية  I2600 لأنني وضعت الجدول ليشتمل على سنوات فإن أردتم تصغير الجدول ليشمل سنة فلكم التصرف به كما تشاؤون . 

والسلام عليكم.

 

ملاحظة: يرجى الأخذ بعين الاعتبار أن عدد الأصناف سيكون أكبر مما هو بين الخليتين ليتجاوز 100 صنف مثلاً.

 

 

تم تعديل فبراير 13, 2016 بواسطه محمد حسن المحمد

[ياسر خليل أبو البراء]

أخي الحبيب أبو يوسف

جرب الكود التالي عله يكون المطلوب

Sub طباعة()
    Dim I As Long
    For I = Range("J1").Value To Range("K1").Value
        Range("G3").Value = I
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next I
End Sub

تقبل تحياتي

[محمد حسن المحمد]

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

بارك الله بك وباهتمامك في شتى المواضيع أخي الحبيب ياسر خليل أبو البراء سأقوم غدا إن شاء الله تعالى بتطبيق الكود الذي أرفقتموه علما أنني على ثقة تامة من فعاليته ونجاحه ولكن يتبادر إلى ذهني التساؤل التالي: هل أخذ أبو البراء بالحسبان التصفية لكيلا تظهر كافة اﻷيام التي تحتوي فراغات إذ لا جدوى من طباعتها في المدى ضمن الجدول 

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

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

[ياسر خليل أبو البراء]

أخي الغالي أبو يوسف

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

لقد جربت ملفك ووجدت أن عملية التصفية تتم بشكل تلقائي بناءً على الخلية G3 ومن ثم فإن البيانات يتم تحديثها تبعاً لتلك الخلية التي يقوم الكود بتغيير قيمتها في كل حلقة تكرارية

أرجو أن يفي بالغرض .. إن شاء الله

 

[أبو أنس80]

بارك الله فيكم عمل رائع 

مجهود كبير

 

[belkacem_1980]

[محمد حسن المحمد]

السلام عليكم جزاكم الله خيرا ووفقكم إلى ما يحب ويرضى ويجعلكم من أهل طاعته ورضاه ..آمين

أشكركم جزيل الشكر أخي الحبيب أبو البراء

كما أشكر الأخ العزيز أبو أنس على الكلمات الطيبة

والسلام عليكم

 

السلام عليكم أخي العزيز بو علام بلقاسم

جزاكم الله خيرا على مروركم العطر وطيب كلامكم

ووفقكم إلى طاعته ورضاه واتباع نهج حبيبه المصطفى صلى الله عليه وسلم

والسلام عليكم.

 

[عماد محمد غازى محمد رحمة]

بسم الله الرحمن الرحيم

والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى الة وصحبة وسلم

استاذنا الكبير ( ابو يوسف )

اولا : احب ان اهنئك على هذا العمل الرائع الذى يتميز بالبساطة والرقى والاحتراف

وهذه معادلة صعبة لاتوجد فى معادلات الاكسيل = بساطة + رقى + احتراف  = تميز

وهذة منة من الله عزوجل يمن بها على من يشاء من عبادة

ولقد من الله عز وجل عليك بها

ماشاء الله لاقوة الا بالله عمل رائع وممتاز ابهرتنا بالتصميم المميز للبرنامج

استمر ---  طور-----    ابدع

وفقك الله لما يحب ويرضى

ثانيا : والله انا لم ارى الموضوع الا الان

فتقبل اعتذارى على التاخير فى التهنئة بهذا العمل الرائع

تم تعديل فبراير 13, 2016 بواسطه عماد محمد غازى محمد رحمة

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد:

فقد تشرفت بمشاركتكم التي تفوح طيباً وتشجيعاً أستاذي الكريم عماد غازي المحترم ...فمن لم يشكر الناس لم يشكر الله

لقد استفدت من خبراتكم بدروس صمم برنامجك بنفسك لأقدم هذا العمل الذي أرجو الله أن ينفعنا الله به في الدنيا وأن يجعل لنا جميعاً حظاً وافراً نسعد به في الآخرة

وقد أنزل الله تعالى في كتابه العزيز:"وقل ربِّ زدني علماً " ونحن إذ نطلب العلم النافع نرجو به رحمة الله ومغفرته ونسعى لإرضائه عنا 

وقد ذكر الله تعالى فضل العالم والمتعلم بقوله:"قل هل يستوي الذين يعلمون والذين لا يعلمون" .

اللهم اجعل غايتنا رضاك عنا وقبولك لأعمالنا الصالحة ومغفرة لذنوبنا وسيئاتنا فنحن وإن اتسعت مداركنا وعلومنا نبقى صغاراً أمام علم الله الواسع وفضله الغامر 

تقبل تحياتي العطرة  

والسلام عليكم.

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد:

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

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

لأستاذي الكريم إسلام رجب، فإنني أتشرف بعرض البرنامج عليكم بشكله النهائي حيث نقوم بالخلية J1 بورقة تقرير حركة الصنف بوضع

رقم الصنف الأول الذي نرغب طباعته وبالخلية K1 

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

 ليقوم بشكل تلقائي بالتصفية حسب كل صنف ثم الطباعة.

"هذا من فضل ربّي"

أرجو الله أن يكون عملاً نافعاً نبتغي به وجه الله تعالى ، لأننا فقراء إلى الله تعالى، والله في عون العبد ما كان العبد في عون أخيه

تقبلوا تحياتي العطرة

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

برنامج المخازن.rar

تم تعديل فبراير 15, 2016 بواسطه محمد حسن المحمد

[AHMED MONIR]

جزاكم الله خيراً ونفع بكم

 

[AHMED MONIR]

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

اشكرك وارجو من الله عز وجل ان يعلمنا ما ينفعنا

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

 

[عبد العزيز البسكري]

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

الحمد لله الذي بنعمته تتم الصّالحات

ألف ألف مبروك .. الانتاج الرائع .. روعة روح أبا يوسف ..  و المميّز و الممتاز

فائق إعجاباتي

 

 

[محمد حسن المحمد]

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

أنتم الأروع وكلماتكم الأجمل.. لا أقدر على مكافأة كلامكم الطيب وتشجيعكم إلا بقولي جزاكم الله خيرا. .

تقبل تحياتي ومحبتي

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

[محمد حسن المحمد]

تم التعديل على البرنامج كونه تالف تقريباً

برنامج المخازن.xlsm