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

[jawad80]

هل بالامكان تعديل الكود ليصبح عملة ضمن خلايا محدده وهي 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
 

[أبو حنــــين]

السلام عليكم

استبدل السطر

If Target.Column = 5 Then

بالسطر التالي

  If Target.Column = 5 And Target.Row > 2 And Target.Row < 51 Then

[بن علية حاجي]

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

 

أخي الكريم، أعتقد أن الكود يكون بالشكل التالي:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("E3:E50")) Is Nothing = True Then
     Call ShowCalendar
     Cells(Target.Row, 5) = Range("A1")
   End If
End Sub

أخوك بن علية

[jawad80]

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

[jawad80]

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

ولكم الشكر

[jawad80]

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