الترحيل من ورقة الى اخرى حسب لون الخلية

[الرايق2080]

 

ضمان (تم الحفظ تلقائياً).rar مرفق برنامج بحيث يتم الترحيل حسب لون الخلية التي أنتهى تاريخ الضمان بحيث يتم نقل جميع البيانات في الورقة الاولى إلى الورقة الاخرى ولكم مني خالص الشكر والتقدير 

[أبوعيد]

المرفق الذي أرفقته به خلل

لا يمكن فك الضغط عنه

الرجاء إعادة تحميله مرة أخرى

[الرايق2080]

اسف لا اعلم السبب ولاكن تم حل الاشكال 

الضمان النهائي.rar

[أبو حنــــين]

مرحبا

جرب هذا الكود

Sub ssCOPY()
Dim sh As Worksheet, sh1 As Worksheet, x As Integer, i As Integer
Set sh = Sheets("البيانات")
Set sh1 = Sheets("الضمانات المنتهية ")
'---------------------------------------------------------
x = 4
Application.ScreenUpdating = False
With sh
Last = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 5 To Last
If .Cells(i, 4).Interior.ColorIndex = 2 Then
.Cells(i, 4).Resize(, 13).Copy
sh1.Range("A" & x).PasteSpecial xlPasteValues
x=x+1
End If
Next
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[الرايق2080]

ا

الاخ العزيز ابو حنين

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

شاكر ومقدر تعاونك معي ولا كن الكود الذي وضعته لا يفي بالغرض حيث يتم عرض كامل البيانات حاولت التعديل ولاكن لم اتمكن من ذلك 

المطلوب توضيحة : 

الورقة الاولى البيانات تتكون من 14 عامود تبداء من الخانة A 1 وتنتهي بي الخانة N1 

الورقة الثانية تتكون من 9 أعمدة تبداء في B1 وتنتهي في الخانة H1 

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

اعتذر على التعديل المتأخر

ضمان (تم الحفظ تلقائياً).rar

[أبو حنــــين]

السلام عليكم

جرب المرفق

 

ضمان (تم الحفظ 2تلقائياً).rar

[صلاح الصغير]

عند التنفيذ تظهر هذه الرسالة

[الرايق2080]

الاخ والاستاذ ابو حنين 

بعد السلام 

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

أمل التعديل اذا أمكن ولك مني خالص الشكر والتقدير 

[أبو حنــــين]

عد الى المحرر 

و من القائمة 

Tools ------> References

ستجد في الاسطر الأولى كلمة Messing

انزع علامة الصح منها ثم موافق

كلمة  Messing لا ادري هل تكتب هكذا او لا

[صلاح الصغير]

الاخ / ابو حنين

شكرا للاهتمام

تم حل المشكلة الاولى مع وجود مشكلة ان الكود ينقل جميع البيانات

و ليس ذات اللون الاحمر فقط

مع تعديل بسيط على التنسيق الشرطى للاخ الرايق وفقا لشروطه

حيث كان هناك اسماء شركات محققة للشرط و لكن تاريخ الانتهاء لا يحقق الشرط

 

ضمان (تم الحفظ 2تلقائياً).rar

[صلاح الصغير]

للرفع

 

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع