حسين مامون قام بنشر يوليو 26, 2016 مشاركة قام بنشر يوليو 26, 2016 السلام عليكم ارغب في انشاء ماكرو ينقل بيانات خلية الى اخرى وادراج تاريخ اليوم في خلية اخرى الملف المرفق فيه توضيح للمطلوب وشكرا لكم انتقال بيانات من الى.zip رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 29, 2016 مشاركة قام بنشر يوليو 29, 2016 أخي الكريم حسين جرب الكود التالي عله يكون المطلوب إن شاء الله Sub Test() Dim Cel As Range If Not Intersect(ActiveCell, Range("A2:A100")) Is Nothing Then For Each Cel In Selection If IsEmpty(Cel) Then Cel.Value = Cel.Offset(, 1).Value Cel.Offset(, 1).ClearContents Cel.Offset(, 2).Value = Date End If Next Cel End If End Sub تقبل تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان