نقل بيانات ملونة في عمود الى عمود مجاور

[فراسكو]

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

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

[مصطفى كمال]

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

أخي الكريم الموضوع متشعب ، رجاء حمل ملف ليسهل للأخوة العمل عليه

[فراسكو]

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

فرز خلايا ملونة.rar

[الحسامي]

السلام عليكم

اخي الكريم جرب الكود التالي

مرفق ملف

Dim c As Range

For Each c In Range(Cells(1, 2), Cells(Cells(Rows.Count, _

[b2:b15000].Column).End(xlUp).Row, "b"))

If c.Interior.ColorIndex = 6 Then Cells(Cells(Rows.Count, _

[d2:d15000].Column).End(xlUp).Row + 1, "d") = c

Next

فرز خلايا ملونة.rar

[دغيدى]

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

[saad abed]

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

اخى الحسامى

خير الكلام ما قل ودل بسم الله ما شاء الله لا قوة الا بالله

[فراسكو]

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

اخي انا اشكرك على الرد الجميل وبارك الله فيك وبصراحة انا تعلمت الكثير من هذا المنتدى و من القائمين بهذا المنتدى اتمنى ان تقدموا لنا يد العون لكي نتعلم الكثير عن الاكسل وبارك الله فيك يا اخي . فراس العراقي

[الحسامي]

اخي فراس كن على قناعة

بانه لن يبقى لدينا اي

معلومة او مساعدة إلا

وسنقدمها للجميع

ارضاءا لوجه الله

----------------

اخوتي بالله جمال وسعد ... بسم الله وما شاء الله عليكم

[فراسكو]

اشكرك اخي اثلجت قلبي بكلامك وبارك الله فيكم اجمعين . اخوك فراس العراقي .

[فراسكو]

الله يبارك فيم اخي اثلجت قلبي باهتمامك ويارب يبارك فيك وبكل اعضاء المنتدى الاخيار وكنتم خير عون في تعليمي ومساعدتي . اخوكم العراقي فراس