عادل حنفي

اخي

اولا بالرغم من انفعالي الذي تتحدث عنه لم ولن يصدر لفظ خارج

فهذا الانفعال علي شكل عتاب لشخص تكن له التقدير

فمن لا تقدره لا تعاتبه

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

و حديثنا معا لم يجرح احدنا الاخر

و لاتتصيد اخي

وخليك محضر خير

عهدكم علي ذلك دائما

كتبه الله في ميزان حسناتكم

؟؟؟؟؟؟

شكرا علي مرورك اخي ابو اسامه

و انت اثرت نقطه هامه اشكرك عليها

اخي mgd

اذا انت كنت تعمل عل ملف اخر غير الذي ارسلته لك يجب نسخ الداله

كما اشار الاخ ابو اسامه الي ملفك

اخي بداية انا نزلت الملف ويعمل عندي بكفاءه

يوجد حلين

الاول سارسل لك ملف باسم

Mdule

فك ضغطه في اي مكان ومن visual Basic editor

,وتحت قائمه vba project

كليك يمين و اختر import file و اختر الملف الذي حفظته سابقا

الحل الاخر قديكون في اعدادات الاكسل

سارسل لك ملفين

الاول 10

هذا اذا كان اصار الاكسل عندك version 10

الثاني 11

هذا اذا كان اصار الاكسل عندك version 11

و اعلمتي بالنتيحه

Module.rar

Excel_10.rar

Excel_11.rar

اخي العزيز

قد يفيدك هذا

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

وادعوا الله له بالشفاء

______41.rar

الاخ خبور المحترم

السلام هليكم

اعذرني لسرعة انفعالي وضع نفسك مكاني

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

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

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

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

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

من الجايز علشان ده اول موضوع لي مستقل في المنتدي فانني اشعر بغيرة عليه

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

وسعدت لهذا

فانت من احد الذين تنطبع عليه افكارنا بمكانه خاصه داخل المنتدي

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

الخلاصة :

اننا اشتغلت الملف

ان كان لك او لغيرك

عرفت الموضوع ؟؟؟؟؟

تحياتي

Up

برجاء الرد للاهميه

اخي و استاذنا خبور خير

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

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

ان هذا البرنامج هو نتاج مجهود شخصي لي

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

احدهم باستثناء الاخ العزيز نزار سليمان و الاخ العزيز احمد يعقوب

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

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

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

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

وهذا هو الاثبات تدرجا من الطلب الي النهاية

الطلب

اضغط هنا هذا هو بداية طلب البرنامج

العرض1

اضغط هنا عرضي للموضع كموضوع لم يرد عليه و اخذ راي الاخوة الاعضاء فيه

العرض2

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

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

تحياتي

Last_change_in_credit_Adel.rar

ندعوا له بالشفاء العاجل

و العوده لنا بالشفاء العاجل

ان شاء الله

اخي العزيز ابو اسامه بعد اذنك

اخي h63

لقد جهزت لك هذا اثناء رد استاذنا ابو اسامه

فليسمح لي

Book1.rar

اخي hat اعتقد ان المعلومات التي قدمها لنا الاخ

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

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

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

فمرحبا بكل من عنده معلومه طالما انها غير المقصود منها التباس في المعلومات عن الثوابت بهذا العلم ........

ومرحبا بك اخي مصطفي

اضم صوتي اخي احمد لصوتك

فهو يعز علينا جميعا

وان شاء الله يكون خيرا

السبب

فيمن تعرفهم يساعدوهم لنكون كما نحن عليه

انشا الله يجلهم نقطه

اخي العزيز خبور خير

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

اولا اشكرك علي تعليقك

فتعليقكم هذا شرف لي وخصوصا عندما يكون من استاذ مثلكم فاشكرك كثير الشكر

طريقتك اكيد هي الاسهل وقد تعلمت منها معلومه جديد (INDIRECT) اشكرك عيها

ولي تعليق بسيط ان سمحت لي

عند تشغيلي لملفك للوهلة الاولي اعتقدت انه لا يعمل

و بعد فتره وجدت انه يعمل و لكن الخليه التي تكون ظاهره في القائمه الثانيه لاتتغير مباشرة

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Sheet1").Range("D1").Value = "ford" Then
Sheets("Sheet1").Range("E1").Value = ""
End If
If Sheets("Sheet1").Range("D1").Value = "gmc" Then
Sheets("Sheet1").Range("E1").Value = ""
End If
If Sheets("Sheet1").Range("D1").Value = "toyota" Then
Sheets("Sheet1").Range("E1").Value = ""
End If
End Sub

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

اعلم ذلك من الكود و لكني احاول

اكيد الموضوع منتظر لمساتك

فهل هناك طريقه لعمل هذا

و اشكرك مره اخري

اخي العزيز

من قائمة insert اختر Name ثم Define

سيظهر لك صندوف حواري لاضافة تسميه لمدي معين

اكتب في المكان المحدد لكتابة الاسم اي اسم لتسمية المدي الذي تريده و ليكن Rng

و يوجد خانه اخري بالاسفل اضغط بالزر الايسر للماوس داخله

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

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

خليه خليه او مجموعة خلايا كما تريد و عندما تنتهي ابعد يدك عن مفتاح كنترول ثم اضغط علي زر Ok

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

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

وجرب و اخبرني بالنتيحه

ارجو ان يحقق لك هذا ما تطلبه

_____.rar

نرجوا رؤية المزيد من الاعمال

اخي العزيز

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

تحياتي

Hid_compo.rar

اخي مصطفي

تسلم يداك

اخي العزيز

لاشك في طريقة الاستاذ خبور جزاه الله خير

وعندي محاوله اردت فقط عرضها

____.rar

عمل رائع

اخي نزار

اللهم ارجع وحدتنا وابعد العملاء عنا

و اجعلنا يدا واحدة عليهم ياقادر ياكريم

ننتظر يوما يقودنا فيه صلاح الدين قد اكون احلم

و لكنه آت نعم آت رغم أنف المغرضين وويلهم منا

يوم يصحو ماردنا سوف نكون طوفانا فادعوا الله معي

بجعل هذا اليوم قريب

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

فسنبتروها يوما و يعود حماسنا

فادعوا معي ان يعود صلاح الدين

اخي العزيز خبور خير

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

اعمالك كلها ممتازه و يتعلم منها الكثيرين

حتي من مشاركاتك القديم منها و الجديد

و شرف لي ان اكتب اليك كلمة شكر لا توفيك حقك

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

فشكرك يستحق الكثير

تحياتي و احترامي لشخصك الكريم