كرتوتي قام بنشر يناير 12, 2014 مشاركة قام بنشر يناير 12, 2014 السلام عليكم اخوتي في منتدانا الغالي .المرجو من اساتذتنا مساعدتي بأكواد أو معادلات للمرفق ادناه بحيث : اخوتي اريد عند مسح قيم او مجموعة قيم في ورقة الديون نتقل قيم الخانات الممسوحة اتوماتيكيا الى ورقة المبالغ المحصلة في نفس الرقم والشهر.مع تلوين الخانات الممسوحة في ورقة الديون كما في المثال association.rar رابط هذا التعليق شارك More sharing options...
كرتوتي قام بنشر يناير 13, 2014 الكاتب مشاركة قام بنشر يناير 13, 2014 للرفع رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر يناير 13, 2014 أفضل إجابة مشاركة قام بنشر يناير 13, 2014 السلام عليكم حدد النطاق الذي تريد مسحة ثم اضغط الزر يعني لازم تستخدم الزر للمسح حتى يعمل الكود Sub kh_CLEAR() Dim cel As Range For Each cel In Selection If Not Intersect(cel, Range("C4:P95")) Is Nothing Then With cel ورقة2.Range(.Address).Value = .Value .Interior.ColorIndex = 16 .ClearContents End With End If Next End Sub المرفق 2003 association.rar رابط هذا التعليق شارك More sharing options...
كرتوتي قام بنشر يناير 13, 2014 الكاتب مشاركة قام بنشر يناير 13, 2014 الف شكر لاستاذنا عبد الله باقشير .ذاك هو المطلوب جزاك الله الف خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها