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

[بلال بلال]

السلام عليكم

لدي ورقة Horaire2027    اريد ترحيل البيانات الى ورقة Feuil1 و  Feuil12 و Feuil13

 

            1- ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل 

            2-ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأصفر وعند الترحيل تفرغ الحقول

            3-ترحيل البيانات الى الورقة Feuil13 الحقول بالون الأحمر وعند الترحيل تفرغ الحقول

 

Horaire-18-06-2026-(04.12.06).xlsb

[أبومروان]

السلام عليكم

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

Copy of Horaire-18-06-2026-(04.12.06).xlsb

[بلال بلال]

استاذ 

ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل 

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

تكون بأيقونة 

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

تكون بأيقونة

والحقول الفارغ لم يتم ترحيل

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

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

 استاذنا الفاضل

طلبك واضح ولكن  ملفك المرفق لا يتوافق مع طلبك

الطلب الثاني والثالت في شيت Horaire2027 عدد الخلايا 8 وفي الشيتين المرحل اليها 9 خلايا

وخود كلمة المؤسسة في الشيتين Feuil12 وFeuil13 وعدم وجودها في شيت Horaire2027

على كل حال  الكود المرفق تم عمله حسب الموجود في شيت Horaire2027  وهي 8 خلايا

حسب الشيت المرفق تم تقسيم الكود الى جزئين بزرين  الاول للترحيل الى Feuil1 وFeuil12 والكود الثاني الى وFeuil13

Horaire-18-06-2026-(04.12.06).xlsb

[بلال بلال]

السلام عليكم 

استاذ لقد قمت بإضافة حقل كلمة الموسسة في شيت Horaire2027 التي يتم ترحيل الى ورقة Feuil13 التي بالون الأحمر

 لقد نسيت الحقلين ولقد اضافة الحقلين 

استاذ اما شيت Feuil12  توجد كلمة المؤسسة في الشيت Horaire2027   بالون الازرق

استاذ  الحقول لي بالون الازرق لم يتم ترحيل البيانات انه يقوم بترحيل بالون الأخضر

استاذ ترحيل البيانات الى ورقة  Feuil1 لي بالحقول الازرق فقط مرة واحدة فقط .

بارك الله فيك

 

Horaire-18-06-2026-(04.12.06).xlsb

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

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

منذ ساعه, بلال بلال said:

استاذ ترحيل البيانات الى ورقة  Feuil1 لي بالحقول الازرق فقط مرة واحدة فقط .

 

اذا الامر لا يحتاج الى كود ترحيل يمكنك كتابة البيانات مباشرة في سيت Feuil1

ثم

منذ ساعه, بلال بلال said:

استاذ اما شيت Feuil12  توجد كلمة المؤسسة في الشيت     بالون الازرق

 

  شيت Feuil12   خاص باللون الاصفر وليس الازرق   كما ذكرت ولا وجود لكلمة المؤسسة في الخلايا الصفراء في شيت Horaire2027 

بالنسبة

منذ ساعه, بلال بلال said:

استاذ  الحقول لي بالون الازرق لم يتم ترحيل البيانات انه يقوم بترحيل بالون الأخضر

 نعم يوجد خطا في رقم الصف المرحل- فقط قم بتغيير  B3:I3 الى B4:I4 في مكانين بالكود حسب الموضح الاتي

      For Each cell In wsSource.Range("B3:I3, B6:I6, B9:I9")
الى
    For Each cell In wsSource.Range("B4:I4, B6:I6, B9:I9")

وكذلك تغيير 
wsFeuil1.Cells(nextRow1, 1).Resize(1, 8).Value = wsSource.Range("B3:I3").Value

الى
    wsFeuil1.Cells(nextRow1, 1).Resize(1, 8).Value = wsSource.Range("B4:I4").Value

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