تعديل كود

[المصري احمد]

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

 كان عندي مشكله والاخ زيزو العجوز جزاه الله خيرا امدني بالكود

بس عند التطبيق لم استطيع ان اعدل الكود ليشمل عده خلايا بدل من خليه واحده

وهذا هو الكود

If Target.Address <> "$B$2" Then Exit Sub
Range("D2") = Range("D2") + Range("B2")
End Sub

 

تم تعديل أكتوبر 24, 2016 بواسطه المصري احمد