عاطف عبد العليم محمد قام بنشر سبتمبر 9, 2013 مشاركة قام بنشر سبتمبر 9, 2013 السلام عليكم ورحمة الله وبركاته عندي الكود التالي (Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean If Target.Column = 5 Then Call myActiveRow End If End Sub وفيه بالضغط دبل كليك على أي خلية في العمود رقم 5 ( العمود e ) ينفذ الماكرو myActiveRow المطلوب بارك الله فيكم أن يتم ذلك فقط من الصف السابع إلى الصف الذي فيه نهاية التسجيل في العمود 5 d = Range("f7", Range("f7").End(xlDown)).Count أي طالما يتم الضغط فقط على أي صف في المجال d وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 9, 2013 مشاركة قام بنشر سبتمبر 9, 2013 السلام عليكم If Target.Column = 5 And Target.Row => 7 Then رابط هذا التعليق شارك More sharing options...
أفضل إجابة عاطف عبد العليم محمد قام بنشر سبتمبر 9, 2013 الكاتب أفضل إجابة مشاركة قام بنشر سبتمبر 9, 2013 (معدل) وعليكم السلام ورحمة الله وبركاته أخي عباد وجزاك الله خيرا استفدت من ردك فما كنت أعرف تعبير Target.Row والحل بعد تطبيقه هو d = Range("f7", Range("f7").End(xlDown)).Count If Target.Column = 5 And Target.Row > 6 And Target.Row < (d + 7) Then وفقكم الله وغفر الله لنا ولكم ووالدينا ووالديكم ولجميع من في المنتدى عامة ولكل المسلمين تم تعديل سبتمبر 9, 2013 بواسطه atef0977 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.