اضافة checkbox لبيان حالة الكتاب وعمل احصائية

[أبو سـما]

 السلام عليكم وكل عام وانت بخير وتقبل الله طاعتكم

أخواني عندي طلبان بعد إذنكم الطلب الاول :

عند تسجيل كتاب وارد جديد من خلال اليوزر فورم اضافة checkbox عند تفعيله والضغط عليه يتم كتابة " لا يحتاج الى رد " في عمود (متابعة الكتب) في ورقة عمل WARED وعند عدم تفعيله لا يكتب شئ ، كما أريد عند الذهاب الى (البحث والتعديل) في اليوزر فورم والبحث في ( الوارد ) أو في (الوارد والصادر معا ) أن يظهر الـ checkboxلبيان حالة الكتاب هل يحتاج رد أو لايحتاج مع إمكانية التعديل عليه.

 

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

 

 

وجزاكم الله خيرا ورزقنا الله وإياكم ليلة القدر.

 

  

 

 

تنظيم المعاملات.rar

[أبو سـما]

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

 

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

 

المهم أنا هبدأ بنفسي وهقول إني أقدر أحل من الطلب رقم (2) اللي هو الاحصائية رقم (1) و (2) اللي هما معرفة عدد الكتب الواردة والصادرة المسجلة .

 

فياريت اي عضو من الاعضاء عنده فكرة عن اي من المطلوب اعلاه يكتب الرد فورا ولا ينتظر حتى يكتمل معرفته ببقية المطلوب .

 

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

[أبو سـما]

السلام عليكم . اخواني في الله

استطعت بفضل الله وتوفيقه أن أنجز الطلب الاول وبقية جزئية وحيدة صعبت علي وهي عند البحث عن الكتاب الوارد واذا وجد في العمود M (متابعة الكتب) في ورقة عمل WARED كلمة (لا يحتاج رد) ان يفعل الـ checkbox2 بعلامة الصح واذا لم يجد الكلمة لا يفعل الـcheckbox2 ويتركها كما  هي بدون علامة الصح.

 

الرجاء الاهتمام والمساعدة في هذه الجزئية وفي الطلب الثاني أكرمكم الله.

 

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

تنظيم المعاملات.rar

[أبو حنــــين]

السلام عليكم

في آخر كود  SAMA_1    ضف هذا السطر :

If Not WARED.Cells(Mh, 13) = "" Then CheckBox2.Value = True Else CheckBox2.Value = False
 

[أبو سـما]

 

جزاك الله خير يا أخي أبو حنــــــين وألف شكر لك. كنت أعرف الكود ولكني لا أعرف أين أضعه فجزاك الله عنا خيراً ورزقنا الله وإياك ليلة القدر.

هل إلى الطلب الثاني من سبيل ؟!! أو الاستعاضة عنها بأفكار أخرى.

[أبو سـما]

السلام عليكم ،،،

 

أريد عمل كود يطبق على العمود M (متابعة الكتب) في ورقة عمل WARED .

 

وظيفة الكود كالتالـي :

البحث في العمود E (رد على وارد) في ورقة عمل (SADER) فإذا كان هناك رقم مكتوب* في أي خلية فإنه يأخذ الرقم الموجود في العمود (A) في الخلية المقابلة له ويقوم بوضعه في العمود M (متابعة الكتب) في ورقة عمل WARED في الخلية المقابلة للرقم المكتوب*.

 

* الرقم المكتوب يعبر عن رقم الوارد في ورقة عمل WARED.

 

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

تنظيم المعاملات2.rar

[أبو سـما]

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

 

اخواني الأعزاء لقد وجدت طريقة أخرى يمكن أن أنفذ بها المطلوب والكود سوف يكون أبسط من الكود المطلوب أعلاه والطريقة كالتالي :

عند تسجيل كتاب صادر جديد وعندما أقوم بالضغط على إتمام عملية التسجيل فإنه سوف يقوم بأخذ الرقم الموجود في خانة رد على وارد (TEXTBOX14) ويبحث عنه في ورقة عمل الوارد في نطاق العمود (A) فإذا وجده فسوف يسجل الرقم الموجود في خانة رقم الصادر (TEXTBOX10) في ورقة عمل الوارد في العمود (M).

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

With WARED
SH = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
kh = WorksheetFunction.Match(ii, .Range("A2:A" & SH), 0) + 1
If TextBox14.Text = WARED.Range("A", kh).Value Then
WARED.Range("M", kh).Value = TextBox10.Value

 

الرجاء مساعدتي وتصحيحه وجزاكم الله خير.