نقل بيانات من خليه بشروط

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

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

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

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

نقل بيانات من خليه بشروط.rar

[ابراهيم الحداد]

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

ضع هذا الكود فى موديول وخصص له زر

ملحوظة : لا تضغط على الزر مرتين الابعد تغيير القيمة فى " B2"

Sub Add_Amount()
Range("D2") = Range("D2") + Range("B2")
End Sub

 

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

وعليكم السلام اخي الغالي

جزاك الله خيرا علي ردك خير الجزاء

هل ممكن اخي الغالي نقل القيمة تلقائي بدون زر

[ابراهيم الحداد]

السلام عليكم ورحمة الله
تفضل اخى الكريم

 

نقل بيانات من خليه بشروط.rar

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

بارك الله فيك اخي وجعله بميزان حسناتك 

تمت اضافه القيمة بنجاح 

وارجو ان يتسع صدرك لطلباتي هل ممكن حذف القيمة من الخليه B2 بعد اضافتها عل علي

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

 

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

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

للرفع

[ابراهيم الحداد]

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

اضف هذا الجزء الى الكود

Range("B2").ClearContents

 

 

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

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

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

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

للرفع