مشكله توقف اكمال عملي بسببها

[ماشي حافي]

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

المرفق فيه شرح تفصيلي

666.rar

[سليم حاصبيا]

جرب هذا الكود

Sub transfer_data()
Dim ws1, ws2 As Worksheet
Dim Rg_to_Copy, Rg_to_Paste As Range

Set ws1 = Sheets("ورقة1"): Set ws2 = Sheets("ورقة2")
lr1 = ws1.Cells(Rows.Count, 1).End(3).Row
lr2 = ws2.Cells(Rows.Count, 2).End(3).Row
If lr1 < 2 Then lr1 = 2: If lr2 < 2 Then lr2 = 2

 Set Rg_to_Copy = ws1.Range("a2:c" & lr1)
 Set Rg_to_Paste = ws2.Range("b" & lr2 + 1)
 
ws2.Range("a" & lr2 + 1) = Format(Date, "dd/mm/yyyy")
 Rg_to_Copy.Copy Rg_to_Paste
 

End Sub

 

[ماشي حافي]

34 دقائق مضت, سليم حاصبيا said:

لا اعلم كيف اضيف الكود هل بلامكان التكرم بوضعه في المرفق على 

 

34 دقائق مضت, سليم حاصبيا said:

 

تم تعديل فبراير 27, 2017 بواسطه asd2222
مكرر

[hicham2610]

السلام عليكم

أتمنى أن يكون المطلوب هذا

وضعت لك زرا في الورقة الأولى

Microsoft Office Excel Worksheet جديد.rar

[ماشي حافي]

8 ساعات مضت, سليم حاصبيا said:

لا اعلم كيف اضيف الكود هل بلامكان التكرم بوضعه في المرفق على 

للاسف لم يحل المشكله

[سليم حاصبيا]

49 دقائق مضت, asd2222 said:

للاسف لم يحل المشكله

تم معالجة الامر

اضغط على الزر Run

 

Mabi3at.rar

[ماشي حافي]

في ٢٧‏/٢‏/٢٠١٧ at 23:06, سليم حاصبيا said:

لا اعلم كيف اضيف الكود هل بلامكان التكرم بوضعه في المرفق على 

للاسف لم يحل المشكله الى الان 

الظاهر طلبي في صعوبه او ماقدرت اوصل لكم المطلوب

للاسف لم يحل المشكله الى الان 

الظاهر طلبي في صعوبه او ماقدرت اوصل لكم المطلوب

 

[سليم حاصبيا]

6 دقائق مضت, asd2222 said:

للاسف لم يحل المشكله الى الان 

الظاهر طلبي في صعوبه او ماقدرت اوصل لكم المطلوب

للاسف لم يحل المشكله الى الان 

الظاهر طلبي في صعوبه او ماقدرت اوصل لكم المطلوب

 

السلام عليكم 

يهمنا جداً تقديم المساعدة

1-لذا يجب معرفة اصدار الاكسل الذي تعمل عليه

2- قم يارسال ملف صغير بالبيانات  والبيانات المتوقع الحصول عليها

[ماشي حافي]

استخدم اوفيس ٢٠١٠

ابغى اذا وضعت رقم معين في خليه a1

ينتقل الى الخليه b1

 

وعند مسح بيانات a1 وادخال بيانات جديد اريدها تنتقل البيانات الجديده الى خليه b2

مع ملاحظه مهمه جدا وهي ان المعلومات الاوله في خلية b1 لا اريدها ان تختفي اريدها تبقى ولا تتغير بالبيانات الجديده

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

[ماشي حافي]

في ١ مارس، ٢٠١٧ at 11:41, asd2222 said:

استخدم اوفيس ٢٠١٠

ابغى اذا وضعت رقم معين في خليه a1

ينتقل الى الخليه b1

 

وعند مسح بيانات a1 وادخال بيانات جديد اريدها تنتقل البيانات الجديده الى خليه b2

مع ملاحظه مهمه جدا وهي ان المعلومات الاوله في خلية b1 لا اريدها ان تختفي اريدها تبقى ولا تتغير بالبيانات الجديده

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

هل من حل ياشباب