عادل حنفي

اخي ماجد

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

تحياتي

خط سير.rar

اخي ابو يحيي

جرب المرفق حيث تم عمل كود مع الاخذ في الحسبان انه تم اعتبار العمود F  هو عامود ايام الاعيـاد

تحياتي

المصنف1100.rar

اخي ابو عبد الرحمن

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

تحياتي

تفعيل الكود2.rar

اخي ابو عبد الرحمن

مااستطعت فهمه هو انك عند لصق اسماء المدارس يقوم الكود بادراج كودها

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

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

اتمني ان يكون هذا هو المطلوب

تحياتي

تفعيل الكود1.rar

اخي ولد الحجاز

شرحك غير وافي

وانا فهمت قصدك  علي النحو التالي انه عند حدوث اي تغيير بالعمود 3 او4 يتم الجمع في العمود6

مرفق ملف بهذا الفهم وان لم يكن هذا قصدك ارجو التوضيح

777.rar

السلام عليكم

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

مع شكري وتقديري

اخي

ما الدور الذي تريد ان يقوم به الكود اشرح بالتبسيط

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

اخي الحبيب سعد عابد وانت ايضا وحشتني والله انت وجميع الاصدقاء

اخي الحبيب الصفر وانا اتشرف بمعرفتك والله يعوضنا عن اخا حبيبا لن انساه وهو الحسامي

اما السؤال عن الاسماء التي ذكرتها وغيرهم من الاسماء كثيرا و الذي يساوي كل اسم منهم وزنه ذهبا فهو واجب اعادهم الله الينا سالمين

اخي الحبيب محمد الخازمي اشكرك علي كلماتك الرقيقة

اخي ابراهيم ابو ليله اشكرك اخي علي كلماتك ودعاءك

اخي وحبيبي خقا والمجتهد دائما ياسر خليل انا السعيد بوجودي بينكم وكلنا نتعلم من بعض لا فضل لاحد علي اخر واتمني فعلا ان يجمعنا المنتدي مرة اخري باسماء لن ننساها ابدا فلم يبخل احد بعلمه او تفاخر به اكرمهم الله جميعا

اخي الحبيب ابو يوسف واتشرف بك انا ايضا واشكرك علي كلماتك العطره

اخي الحبيب ياسر فتحي وبارك الله فيك ولك كل احترامي وتقديري
 

اخواني الاعزاء

السلام عليكم

لن اقول افتقدتكم فهذا اقل مما اشعر به ولكن مشاغل الدنيا اعاننا الله عليها

وكذا الاثار النفسية التي مرت علينا بمصر في السنوات القليلة الماضية

وقد افتقدت اخوة كنا علي اتصال دائم معا وتم انقطاع الاتصال بضياع الهاتف وعليه ارقامهم

وهم يعرفون انفسهم فليساعدوني علي عودة الاتصال

واتمني الا يحرمني الله منكم جميعا.

فانا اشتاق للتعلم منكم  والتحاور  معكم يا كل اعضاء ومشرفي واداري المتتدي الاعزاء

فدعواتكم لنا بعودة نشاطنا بالشكل الذي نستطيعه

وفقنا الله
 

لا اجد ما يعبر عما بداخلي عندما قرات خبر رجيل عماد الحسامي

واتذكر روعة خلقه وعلمه وتواضعه فقد عاهدناه اخا وصديقا

وما اكثر ما انار به الطريق لنا بعلمه والذي ندعوا الله له بان يكون في

ميزان حسناته وان يدخله جناته انه السميع العليم

ومهما قلت فلن اجد الكلمات التي يستحقها والتي توفيه حقه

اللهم احشره في زمرة الصديقين والشهداء

اللهم امين

ايضا بنفس الطريقة

يتم نقل البيانات من عدة ملفات الي الملف الذي اسمه 2.xls

اتبع ايضا نفس الخطوات السابقة

مرفق الملف بالرابط التالي

نقل البيانات من ملف اخر.rar

السلام عليكم

اخي و استاذنا محمد طاهر

بارك الله فيك و جزاك الجنة

واذن لي بالمشاركة واتمني ان اكون قد فهمت المطلوب

ايضا حاولت رفع ملف الي المنتدي و لم استطع ذلك لا اعرف من اين المشكلة هل من المنتدي ام من عندي

اخي leprince2007

قم بفك الملف المرفق بالكامل في اي مكان

افتح الملف الذي اسمه 2.xls

اضغط علي زر انقل البيانات

يوجد شرح بداخل الملف

و الكود المستحدم هو

Sheets("data").Range("A1:f1000") = ""

m = ThisWorkbook.Path & "\" & "1.xls"

Set wb = Workbooks.Open(m, True, True)

For Each cell In Sheets("sheet1").Range("A1:f1000")

If cell <> "" Then

n = cell.Address

If cell.HasFormula Then

m = cell.Formula

Windows("2.xls").Activate

Sheets("data").Range(n) = m

Else

m = cell.Value

Windows("2.xls").Activate

Sheets("data").Range(n) = m

End If

End If

Next

Windows("1.xls").Activate

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.DisplayAlerts = True

علما بان نقل البيانات يتم علي الخلايا اذا كان بها بيانات او معادلات

عموما هذا رابط للملف

نقل البيانات من ملف اخر.rar

السلام عليكم

اخي بالفعل تم رفع ملف لكن اعتقد ان هناك مشكلة بالموقع لرفع الملفات

عموما هذا رابط للملف

====

تم إضافة الملف للمرفقات

select.rar

السلام عليكم

اخي عبد الله

بارك الله فيك و اشجعك علي القيام بهذه الدورة و اتمني ان يكون لدي الوقت للمشاركة معكم

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

الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

With Selection.Interior

			.Pattern = xlSolid

			.PatternColorIndex = xlAutomatic

			.ColorIndex = 46

	End With

End Sub

رابط للف مرفق به الكود

http://www.4shared.com/file/dBVu_kyH/select.html

السلام عليكم

اخي الحبيب عبد الله المجرب

تحياتي علي هذا اللغز الذي جعلني ابدا في التفاعل

و عند الدخول لعرض الحل

وجدت نفس الطريقة تقريبا من اخ حبيب الي قلبي و هو عماد الحسامي

عموما اهو تشجيع لمحالة العودة للمشاركة اي تسخين

لو افترضنا ان

الارانب س

البط ص

الدجاج ع

و بالتطبيق علي اللغز فان

ص+ع=4

س+ع=6

س+ص=8

و باعطاء قيمة افتراضية لل ص تنحصر بين ال 1 و ال 3 بعدة محاولات وجد ان ال ص=3

و بالتعويض في المعادلة الاولي

ص+ع=4

3+ع=4

اذن ال ع =1

و بالتعويض بهذه القيم في باقي المعادلات نجد ان

س+ع=6

بما ان ال ع =1

س+1=6

اذن ال س=5

و بما ان ال س=5

نعوض بها بالمعادلة الاخيرة و هي

س+ص=8

و بما ان ال س=5

اذن

5+ص=8

اذن ال ص=3

و هكذا يكون العدد الكلي =س+ص+ع

اي =5+3+1=9

الارانب (س)=5

البط(ص)=3

الدجاج(ع)=1

تحياتي

السلام عليكم

الاساتذة الكبار مقاما

ا/ محمد طارهر

ا/ محمد صالحMas123

ا/ طارق TareQM

ا/ ابو عبد الله

ا/ يحيي حسين

ا/ ياسر حافظ

ا/ عبد الله المجرب

ا/ سعد عابد

ا/ سعيد بيرم

ا/ mhrrd

اسعدني جدا مروركما و الشعور الذي افتقدته من دفئ يربطنا جميعا بهذا المنتدي

كما اخجلني تواضع اساتذة كبار تعلمت منهم انا ايضا

الرد علي كلماتكم لا يستوفي بكتابة سطرين بل كتابة الكثير و لن يكفي

كفاني الشعور بالصلة القريبة بيننا جميعا

خالص و ارق تحياتي داعيا الله بتوطيد سبل المحبة و الاخاء بيننا جميعا

السلام عليكم

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

و اشكر كل من قام بالسؤال

و اخص بالشكر كل من الاخ الحبيب سعد عابد علي مبادرته بالسؤال عن كل غائب و اخي الحبيب عبدالله المجرب الدائم الاتصال للاطمئنان

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

خالص تحياتي و تقديري

ساقية اللجان.rar

بارك اللع فيك اخي

و سلمت يداك بنر جميل

تحياتي

لقد حاولت ان اجد طريقة و لم افلح في ذلك