jawad80

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

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

السلام عليكم ارجوا من الاخوة الخبراء مساعدتي بتعديل الكود ادناه ليقوم بمسح نطاقين مختلفين من الخلايا في اوراق متعددة ولكم الشكر مثال2.rar

اخي العزيز في المرفقات المثال ولك الشكر مثال2.rar

جربت ولم يفلح الامر

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

السيد بن علية هذا الكود رائع ولكن هل بالامكان تطبيقة على اثنين من الصفحات الصفحة الاولى ضمن الرينج A3:D45 والصفحة الثانية ضمن الرينج D6:U21

شكرا لك اخي العزيز على الرد السريع وبارك الله فيك

السلام عليكم ورحمة الله وبركاته هل بالامكان تغير الكود ليقوم بحفظ الملف باسم السنة الحالية والشهر السابق ولكم الشكر والتقدير

الف شكر لكم تم حل الموضوع

ممكن سؤال ثاني لو سمحتوا لماذا يكون ناتج الخلية بعد الاختيار في A1 وهل بالامكان تغيرة ولكم الشكر

شكراً لك يا ابو حنين

هل بالامكان تعديل الكود ليصبح عملة ضمن خلايا محدده وهي E3:E50 علماً ان نطاق عملة كما مبين في كامل العمودE واريد استثناء عمل الكود في E1,E2,E3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Then Call ShowCalendar Cells(Target.Row, 5) = Range("A1") End If End Sub