دبل كليك مطلوب تعديل بسيط جدا

[عاطف عبد العليم محمد]

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

عندي الكود التالي 

(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

 

 

 

وجزاكم الله خيرا 

 

 

[الـعيدروس]

السلام عليكم

If Target.Column = 5 And Target.Row => 7 Then

[عاطف عبد العليم محمد]

وعليكم السلام ورحمة الله وبركاته  أخي عباد  وجزاك الله خيرا

استفدت من ردك فما كنت أعرف تعبير 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