كيف اختار خليه من خلايا محدده فيشتغل الكود

[atob]

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

اشكر كل مشرفين هذا المنتدى على تجاوبهم معنا دائما والحقيقه انني اعجز عن شكرهم واعطائهم حقهم فلهم مني الدعاء بصلاح حالهم في الدنيا والاخره

وقد تعلمت من هذا المنتدى الشئ الكثير ولكن قد يواجهني بعض الاستفسارات وخاصه في الاكواد فأتمنى انني ما اثقل عليكم

سؤالي هو كيف اجعل الكود يشتغل عندما اختار خليه ما من ضمن خلايا محدده وليس بضغط زر الكود وما هي الجمله التي تضاف للكود لكي يتم السابق (طبعا الاخ تامر الله يجزاه خير سبق ان ساعدني في مرفق سابق من هذه النوعيه ولكن صعب علي تنفيذه على ملفات اخرى )

واذا امكن عندي مرفق يوضح ما اطلب ولكم مني جزيل الشكر والتقدير

_____.zip

[علي السحيب]

الكود التالي ينفذ لك ماتريد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For R = 6 To 35
If Target.Address = "$C$4" Then
Cells(R, 10) = Sheet2.Cells(R, 4)
Cells(R, 11) = Sheet2.Cells(R, 5)
Cells(R, 12) = Sheet2.Cells(R, 6)
[I4] = Target
ElseIf Target.Address = "$C$5" Then
Cells(R, 10) = Sheet2.Cells(R, 9)
Cells(R, 11) = Sheet2.Cells(R, 10)
Cells(R, 12) = Sheet2.Cells(R, 11)
[I4] = Target
ElseIf Target.Address = "$C$6" Then
Cells(R, 10) = Sheet2.Cells(R, 14)
Cells(R, 11) = Sheet2.Cells(R, 15)
Cells(R, 12) = Sheet2.Cells(R, 16)
[I4] = Target
ElseIf Target.Address = "$C$7" Then
Cells(R, 10) = Sheet2.Cells(R, 19)
Cells(R, 11) = Sheet2.Cells(R, 20)
Cells(R, 12) = Sheet2.Cells(R, 21)
[I4] = Target
End If
Next
End Sub

شاهد المرفق،

______________________________________.rar

[atob]

اخي علي الله يكتب لك الاجر والحقيقه انك مبدع ويا حظك بالاجر الكبير