aar005

آسف على التأخير الاخ / بن علية شكرا لك وجزاك الله كل خير، لقد أفادتني مشاركتك والشكر للبقية على المرور

السلام عليكم ورحمة الله وبركاته مساء الخير أخواني، لدي هذا الكود ليعطي رسالة حينما تكون الخلية فارغة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsEmpty(Range("G1")) Then MsgBox ("Empty Cell – Please ensure there is a value in all grey cells. Thanks") Range("G1").Value = " " Range("G1").Select End If المطلوب / كيف أطبق هذا الكود على كل خلية في هذا العمود حتى خلية G40 مثلاً. و شكراً مقدماً

مرحبا بك وشكرا للاستجابة يا اخي اكتشفت المشكلة بأن اللغة العربية في الفيجوال بيسك ما تظهر في نافذة project explorer فهل عندك حل

السلام عليكم ورحمة الله صباح الخير يا اخواني، انا عندي ملف اكسل فيه بعض الاكواد و لما أرسلته بالايميل إلى كمبيوتر آخر وفتحت الملف لم تشتغل الاكواد ارجو المساعدة شكرا مقدما