angelloay قام بنشر ديسمبر 16, 2012 قام بنشر ديسمبر 16, 2012 السلام عليكم ورحمة الله احبائي الرجاء مساعدتي في طلبي وهو كالتالي لدي صفحة فيها معطيات وعند تدقيقها اقوم بتلون الصف او خلية محددة بلون ما المطلوب ترحيل الصف كاملا من ورقة1 الى ورقة2 اذا قمت بتلون الصف او خلية محددة منه مع مسح الصف من الورقة 1 حاولت كثيرا ولكن لم استطع الترحيل حسب اللون والصف كاملا نجحت معي الطريقة حسب اللون ونجحت ايضا حسب الصف ولكن لم تنجح معي مجتمعتين اللون والصف معا وفي كلتا الحالتين لم ينحج المسح معي شكرا لتعاونكم واسف على اي ازعاج لكم
أبو حنــــين قام بنشر ديسمبر 16, 2012 قام بنشر ديسمبر 16, 2012 السلام عليكم أخي كان من الأحسن رفع ملف للعمل عليه هذا تصور لما طلبته و لا ادي هل تقصد بهذه الطريقة ام هناك خطأ في فهمي للسؤال ترحيل صف كامل الى ورقة جديدة حسب اللون.rar
عبدالله المجرب قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 اخي ابو حنين جربت الملف لكن الكود لا يرحل == الافضل وضع الكود في زر أمر وننتظر مرفق صاحب الطلب لمعرفة ما يريد
angelloay قام بنشر ديسمبر 17, 2012 الكاتب قام بنشر ديسمبر 17, 2012 شكرا لك اخي على الرد اولا هذا طلبي تمام ولكن لايوجد زر ترحيل ولا استطيع الترحيل من صفحة الى اخرى اريد زر ترحيل وبمجرد الضغط عليه يقوم بترحيل الصف الملون اى ورقة اخرى ويمسح الصف من الورقة الاولى وشكرا لك
angelloay قام بنشر ديسمبر 17, 2012 الكاتب قام بنشر ديسمبر 17, 2012 اخي عبد الله شكرا لك ولم انتبه الى مشاركتك قبل اضافة مشاركتي تماما اخي الكود لم يعمل وهل ارفاق الملف امر ضروري؟ لانه ملف فارغ وانا اقوم بانشائة من جديد واول عمل به هو نسخ الصف اذا كان ملون الى ورقة اخرى ومسح البيانات من الورقة الاولى
عبدالله المجرب قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 السلام عليكم بعد تجربة ملفك الاخير عمل كود الاستاذ ابو حنين === قمت بعمل كود في زر امر للترحيل مع حذف المرحل Sub Abu_Ahmed() Dim cl As Range For Each cl In Range("A2:J" & [A10000].End(xlUp).Row) If cl.Interior.ColorIndex <> xlNone Then Cells(cl.Row, 1).Resize(1, 10).Copy Sheets("COPYY").Range("A" & Sheets("COPYY").[A10000].End(xlUp).Row + 1) cl.EntireRow.Delete End If Next End Sub شاهد المرفق 111.rar
angelloay قام بنشر ديسمبر 17, 2012 الكاتب قام بنشر ديسمبر 17, 2012 الله يعطيك العافية الامر تمام وهذا الطلب تمام ولكن هناك امر بسيط عندما اقوم بتحديد اي خلية يقوم بنقل الصف كاملا وانا اريد عند تحديد خلية معينة كما زكرت سابقا (خلية معينة مثل H ) يقوم بترحيل البيانات
عبدالله المجرب قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 هل تقصد ترحيل بيانات الخلية دون حذف الصف ام ماذا
angelloay قام بنشر ديسمبر 17, 2012 الكاتب قام بنشر ديسمبر 17, 2012 اخي جربت تعديل بسيط Sub Abu_Ahmed() Dim cl As Range For Each cl In Range("A2:A2" & [A10000].End(xlUp).Row) If cl.Interior.ColorIndex <> xlNone Then Cells(cl.Row, 1).Resize(1, 16).Copy Sheets("COPYY").Range("A" & Sheets("COPYY").[A10000].End(xlUp).Row + 1) cl.EntireRow.Delete End If Next End Sub في هذا التعديل قمت بتفعيل الخلية A2 فقط ولو انه قمت بتلون اي خليه اخرى بالصف لن يرحل الصف ابدا اما اذا قمت بتلون الصف كاملا فانه تلقائيا سوف يقوم بتلون الخلية المحددة A2 وبالتالي سوف يقوم بترحيله وحذفه اريد ان يكون هذا الامر مفعلا على كامل العمود A او B او اي عمود اخر لافرق لدي وشكرا
الـعيدروس قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 الكود هذا عمله يقوم بالتشييك على الاعمدة من A الى J اذا اين منم به لون يرحل الصف الى الورقة 2
angelloay قام بنشر ديسمبر 17, 2012 الكاتب قام بنشر ديسمبر 17, 2012 نموذج عن الكود الذي قام الاستاذ عبد الله باعطائه له بعد التعديل وهو يعمل بنجاح ولكن يرحل عدد معين من الصفوف في كل مرة ارجو الاصلاح وشكرا الملاحظات بداخله 222.zip
الـعيدروس قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 تفضل جرب هذا التعديل Sub Trheel1() With Application .ScreenUpdating = False .EnableEvents = False For R = [A10000].End(xlUp).Row To 3 Step -1 For C = 1 To 16 If Cells(R, C).Interior.ColorIndex <> xlNone Then Range(Cells(R, 1), Cells(R, 16)).Copy _ Sheets("المناقلات المنتهية").Range("A" & Sheets("المناقلات المنتهية").[A10000].End(xlUp).Row + 1) Cells(R, 1).EntireRow.Delete End If Next Next .ScreenUpdating = False .EnableEvents = False End With End Sub
أبو حنــــين قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 السلام عليكم اعتذر عن تأخري في الرد لظروف العمل لكن الكود الذي ارسلته للاخ في مشاركتي رقم 2 يعمل بطريقة عادية عندي بحيث : ـ اولا قم بتلوين اي خلية ـ اخرج من الخلية ثم عد اليها تجد البيانات قد ثم ترحيلها للورقة الثانية ـ تستطيع عمل زر و نسخ الكود الى هذا الزر مع حذف السطر الاول من الكود
angelloay قام بنشر ديسمبر 17, 2012 الكاتب قام بنشر ديسمبر 17, 2012 بارك الله بكم اساتذه بكل معنى الكلمة الموضوع بعد التعديلات من الاخوة انحل بشكل كامل واصبح الملف ممتاز ولدي طلب اخر واسف لازعاجكم به ولكنه ملف جديد ومنفصل تمام عن هذا الملف هل استطيع كتابة طلبي هنا او اضعه بموضوع مستقل وشكرا جزيلا لكم
عبدالله المجرب قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 ولدي طلب اخر واسف لازعاجكم به ولكنه ملف جديد ومنفصل تمام عن هذا الملف هل استطيع كتابة طلبي هنا او اضعه بموضوع مستقل وشكرا جزيلا لكم ضعه في طلب جديد === بالفعل اخي ابو حنين فكودك يعمل تمام
أبو حنــــين قام بنشر ديسمبر 17, 2012 قام بنشر ديسمبر 17, 2012 (معدل) جزاك الله خيرا أخي : أبو أحمد على مروركم تم تعديل ديسمبر 17, 2012 بواسطه أبو حنين
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.