تعديل كود ترحيل البيانات من ورقة الورقة اخرى

[بلال بلال]

السلام عليكم

لدي ورقة اسمها حجز التوقيت اريد اضافة ترحيل الحقول بالون الاحمر الى ورقة اسمها Feuil1 الحقول عند الترحيل لم يتم افراغها

لدي ورقة اسمها Plateform اريد اضافة ترحيل الحقول بالون الاحمر الى ورقة اسمها Feuil2 الحقول عند الترحيل لم يتم افراغ الحقول بالون الأحمر فقط

اما الحقول بالون الأصفر عند الترحيل يتم افراغ الحقول

لدي اوفيس 2010 عند فتح الاكسيل في اوفيس 2007 لم أسطيع هل توجد طريقة

كلمة المرور 19840019 واسم المستخدم 19840019

بارك الله فيكم

Plateform19840019.xlsb

[عبدالله بشير عبدالله]

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

في 14‏/4‏/2026 at 19:16, بلال بلال said:

لدي اوفيس 2010 عند فتح الاكسيل في اوفيس 2007 لم أسطيع هل توجد طريقة

 

الحل قم  بتحديث اوفيس2007 الى 2010 او احدث فالامر بسيط عند اول محل كمبيوتر 

اما بالنسبة لطلبك الاول تعديل كود الترحيل  اليك الملف

Plateform19840019.xlsb

[بلال بلال]

السلام عليكم 

استاذ مازالت  ورقة اسمها Plateform اريد اضافة ترحيل الحقول بالون الاحمر الى ورقة اسمها Feuil2 الحقول عند الترحيل لم يتم افراغ الحقول بالون الأحمر فقط

اما الحقول بالون الأصفر عند الترحيل يتم افراغ الحقول

بارك الله فيك استاذ

تم تعديل April 18 بواسطه بلال بلال
توضيح

[عبدالله بشير عبدالله]

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

نعم اعلم ان هناك طلب ثاني وكان ردي السابق لطلبك الاول

8 ساعات مضت, عبدالله بشير عبدالله said:

اما بالنسبة لطلبك الاول تعديل كود الترحيل  اليك الملف

 

اليك الملف وبه طلبك الثاني

Plateform19840019.xlsb

[بلال بلال]

استاذ افراغ الحقول  بالون الأصفر عند الترحيل فقط

بارك الله فيك

[عبدالله بشير عبدالله]

لديك الحق 

استبدل في الكود     wsSource.Range("A4:I4").ClearContents

الى                    wsSource.Range("A7:I7").ClearContents

بمعنى الرقم 4 غيره الى 7 فقط