برنامج مخازن

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

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

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

إخوتي ...أحبتي الكرام وأساتذتي الأجلاء

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

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

نهلت من علمكم وقد رأيت دروساً للأستاذ الكريم عماد غازي فطبقتها في محاولة صنع برنامج لا يصل إلى غبار علمكم فلكم السبق في كل شيء وكذلك نسخت أكواد شاشة البداية من أستاذي الصقر (لا يوجد جديد إلا محاولتي إعداد برنامج فلا تؤاخذونني على التقليد الذي لا أعتبره كذلك)...

أرجو أن أكون قد خطوت خطوة إلى الأمام...راجياً منكم إبداء آرائكم به علماً أنني اعتمدت الجداول بدلاً من النطاقات وقد تكون نقطة ضعف لدي 

اسم المستخدم :admin

كلمة المرور: 123

حماية الأوراق داخل المصنف دون كلمة مرور

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

ملاحظة: يرجى توجيهي نحو كل خطأ أو تقصير لاستدراكه

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

[ياسر العربى]

اخي الغالي ابو يوسف يشرفني ان اكون. من اوائل المهنئين المباركين لك علي عملك هذا الذي سيكون باذن الله متقن 

لم انتظر رؤيته فكتبت لك من الموبيل  حتي يتاح لي رؤيته من الكمبيوتر 

تقبل مروري المتواضع 

ياسر العربي

 

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

11 دقائق مضت, ياسر العربى said:

اخي الغالي ابو يوسف يشرفني ان اكون. من اوائل المهنئين المباركين لك علي عملك هذا الذي سيكون باذن الله متقن 

لم انتظر رؤيته فكتبت لك من الموبيل  حتي يتاح لي رؤيته من الكمبيوتر 

تقبل مروري المتواضع 

ياسر العربي

 

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

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

[gad122001]

رائع ... بارك الله فيك .... يرجي زيادة عدد الأصناف في شاشة تكويد الصنف إلى 1500 صنف

 

 

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

السلام عليكم

جزاكم الله خيرا أخي العزيز gad شكرا على كلماتكم الطيبة....الشكر موصول لمن علمني ..

لاحظ أن البرنامج غايته الدعاء لنا بظهر الغيب وأوراقه ليست محمية بكلمة مرور..

إن شاء الله تعالى سألبي طلبك ...ولكن أرجو التنويه عن أية مشكلة كوني مبتدئ لأطرحها على أساتذتي الكرام لتعديلها..والسلام عليكم.

أخي الكريم :تم تعديله كما رغبت ...أنظر المشاركة الأولى حيث تم استبداله 

[محمود_الشريف]

أخى الكريم // محمد حسن المحمد

بارك الله فيكم ، وجعل كل ما تقدموه من جهد فى ميزان حسناتكم

 

وأستأذنك فى ملاحظة سريعة لأنى لم أفحص كامل الملف

المعادلة الخاصة بالتكويد لا تعمل بالشكل المناسب

يرجى استبدالها للمعادلة التالية

=IF(C6="";"";SUBTOTAL(3;C$6:C6))

حتى لا تتأثر الخلية التالية بالخلية التى تسبقها 

وتقبل منى وافر الاحترام والتقدير 

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

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

أخي الكريم محمود الشريف أكرمك الله بالدارين وجزاكم الله خيراً 

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

أفعل إن شاء الله تعالى...

مروركم عطر وكلامكم طيب 

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

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

أخي الكريم محمود الشريف تم التعديل المطلوب في المشاركة الأولى

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

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

 

ولو أنا تقاربنا لكنَّا --- إلى العلياء دوماً في تسامي
ولكنـا تجافينا فكـ --- ـان البعد منا في تنامي

[saad abed]

حبيبى ابويوسف

عمل ممتاز بارك الله فيك

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

السلام عليكم

جزاكم الله خيرا أخي العزيز سعد أدعو الله أن يجعلك من سعداء الدارين ...آمين.

 شكرا على كلماتكم الطيبة....أحبك الله الذي أحببتني لأجله.

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

 

 

 

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

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

أستاذي القدير و أخي الحبيب الغالي

"محمّد حسن المحمّد"

صدّقني و الله على ما أقوله شهيد

في هذه اللّحظات فقط إنتبهت لموضوعك هذا ..

أهنّيء نفسي قبل تهنئتك بهذا العمل المميّز

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

و ها قد أصبحتَ و الحمد لله متمكّنًا و متلاعبًا بأكواده خير لعبٍ

أسأل الله العظيم ربّ العرش الكريم أن يمنّ عليك بالصحّة و العافية و طول العمر و نرى عملك رقم مليون بعالم الاكسل المثير

شكرًا على الهديّة القيّمة لمنتدانا الغالي ..

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

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

فائق إحتراماتي و إعجاباتي

 

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

أخي الحبيب عبد العزيز السلام عليكم

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

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

 

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

[حسام ميلكانا]

بارك الله فيك اخى الكريم واستاذنا العظيم

عمل ممتاز جزاك الله كل خير

 

 

 

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

أستاذي الكريم حسام ميلكانا السلام عليكم

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

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

 

[محمد علي الطيب]

بارك الله فيك اخي محمد حسن

 

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

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

أخي الحببب محمد علي الطيب الذي اجتمعت في اسمه أفضل وأطيب الشمائل ...

بارك الله بك وبمرورك العطر الذي تشرفت به

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

 

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

[مختار حسين محمود]

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

أخى و أستاذى الفاضل محمد حسن

الحمد لله بالفعل حضرتك خطوت ولكن خطوات وثابة

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

تحياتى و مزيد  من التقدم والرقى و الى الأفضل ان شاء الله

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

أخي الحبيب مختار حسين محمود

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

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

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

 

 

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

 

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

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

ولا أخفيكم أنني أفكر بـ :هل يمكن إدراج كود حلقة تكرارية لطباعة تقرير حركة الأصناف من الصنف رقم ...إلى الصنف رقم...

وذلك بعد  تصفية تلقائية للأيام التي تحتوي حركته  في كل مرة لكل صنف..لتكون أسرع؟!.

بدلا من طباعة كل صنف على حده كما هو في المرفق السابق(بداية البحث).

ماجدوى هذه الفكرة؟..

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

 

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

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

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

ألف شكر أخي الغالي " محمد حسن المحمّد " على الجهود المبذولة

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

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

 

 

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

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

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

شكراً على كلماتٍ عطرة تبثها لي  كما أرجو لك أن تكون مبرمجاً لامعاً على مستوى الوطن العربي..بل العالم

فائق احترامي وشكري وتقديري 

 

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

 

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

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

إخوتي الكرام: بعد التفكير بطريقة للطباعة السريعة قمت بوضع الكود التالي في موديول:

يقوم بالتصفية التلقائية ثم الطباعة ثم إلغاء التصفية لينتقل إلى الصنف التالي: ضمن مدى معين من الأصناف 

لكنني أرغب من علماء الإكسيل الكرام إيجاد إمكانية لتحديد مدى الأصناف من:..... إلى:......

وذلك بخلاف ما هو عليه الآن إذ يبدأ برقم وينتهي بنهاية الأرقام للأصناف...

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
For I = 1 To 6

If ورقة6.Range("j1") = I And ورقة6.Range("j1") <> "" Then
 ورقة6.Range("g3") = I

    ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6, Criteria1:= _
        "<>"
    ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1, Criteria1:= _
        "<>"
    ورقة6.PrintOut Copies:=1
    ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1
    ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6
 
   ورقة6.Range("j1") = الجدول6.Range("j1") + 1
   End If
  Application.ScreenUpdating = True
 
Next I

End Sub

فائق احترامي وشكري وتقديري 

 

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

 

 

•  

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

[أبو أنس80]

عمل رائع و مجهود كبير

تسلم يدك

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

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

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

تقبل تحياتي والسلام عليكم.

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

للرفع ...رفع الله قدركم ..

جمالُ اللغةِ العربيةِ

سئل أحدُهم :

من أسعدُ الناسِ؟   

فأجاب قائلاً:

من أسعدَ الناسَ

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