ترحيل السطور الملونة باللون الأحمر فقط ( عنوان معدل )

[elouaadoudi]

المرجو المساعدة

ryn.rar

[أبو إيمان]

السلام عليكم 

مرحبا أخي الفاضل في مدرستك العظيمة

اولا : نأمل تغيير أسمك للغة العربية حتى يسهل التواصل بيننا

 

هل ترغيب نقل البيانات في الصفحة الثانية على أي أساس  -  وهل الأسطر هذه سوف تتغير فيما بعد أم ماذا

وسوف أقدم لك ملف مبدئي للنقل عن طريق ربط الخلايا في الورقة رقم 2 بالمقابل لها في الورقة الأولى

إلى أن تضع تصور كامل لطريقة النقل 

 

 

نقل البيانات.rar

[أبو إيمان]

تم نقلها في المرفق السابق وقم بتغيير أي قيمة للخلايا في الاسطر الملونة وسوف تجدها في الورقة الثانية وهذة طريقة بدئية للنقل إلى أن تضع تصورك 

[رجب جاويش]

أخى الفاضل /elouaadoudi

أولا : مرحبا بين إخوانك عضوا جديدا فى منتدى أوفيسنا العريق

ثانيا : لك منى دعوة طيبة بتغيير اسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) تأكيدا لما قاله أخى الحبيب / محمود الشريف

ثالثا : سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب

     ولكن برجاء الإهتمام بهذه النقطة فى المرات القادمة

 

يرجى عدم تكرار الموضوع الواحد أكثر من مرة

تم حذف الموضوع الآخر وتغيير عنوان هذا الموضوع

 

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[رجب جاويش]

أخى الحبيب / أبو إيمان

شكرا جزيلا لك على دقة الملاحظة

وعلى النشاط والمتابعة

[أبو إيمان]

وإياكم أستاذي القدير هذا ما نتعلمه منكم ومن الأساتذة في هذا الصرح العظيم وأسأل الله الكريم أن يجعل مجهودك خالصا لوجهه تعالى وفي ميزان حسناتك

[elouaadoudi]

السلام عليكم,  أريد ترحيل السطور الملونة باللون الأحمر فقط
----    جزاكم الله خيرا    ----
***    أنتظر ردكم    ***

ryn.rar

[أم عبد الله]

الأستاذ / elouaadoudi

 

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

 

حضرتك لم تجاوب على أسئلة الأستاذ الفاضل / أبو إيمان جزاه الله خيراً لأنها شرط الترحيل وحاولت فهم  ما تقصده من الملف هل على تاريخ المغادرة أم المدة المتبقية وحاولت ربط بين تاريخ المدة المتبقة من التاريخين الممثلة في العمود Fوالمدة الفعلية الموجودة بالعمود C على أقل مثلاً من يوم او يومين لاحظت أنه يوجد حالات متشابهة ولم يتم تلوينها فذلك يكون حل الأستاذ الفاضل /او إيمان هو الحل فقط غير تنسيق العمودين G , H من تنسيق الخلايا اختار من رقم اختار تاريخ . أو حضرتك حدد على أي أساس تم التلوين.

[رجب جاويش]

السلام عليكم

تفضل أخى

 

نقل البيانات.rar

[رجب جاويش]

السلام عليكم

وهذا حل آخر باستخدام كود

يعمل الكود من أى صفحة الأولى أو الثانية كما تريد

Sub ragab()
Dim cl As Range
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheet1: Set ws2 = Sheet2
'====================================================
LR1 = ws1.Cells(Rows.Count, 2).End(xlUp).Row
LR2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
ws2.Range("B7:I" & LR2).ClearContents
'====================================================
T = 7
Set Rng = ws1.Range("I2:I" & LR1)
For Each cl In Rng
    If cl = "Expire" Then
        x = cl.Row
        ws1.Range("B" & x).Resize(1, 8).Copy
        ws2.Range("B" & T).PasteSpecial xlPasteValues
        T = T + 1
    End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Set ws1 = Nothing: Set ws2 = Nothing
End Sub

نقل البيانات1.rar

[أبو إيمان]

بسم الله ما شاء الله

أعمال رائعة لأستاذنا القدير 

وشكرا لأختنا الفاضلة على المشاركة

[رجب جاويش]

أخى الحبيب / أبو إيمان

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