khaledHHH قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 اخوانى اعضاء ومشرفى المنتدى الكريم السلام عليكم ورحمة الله وبركاته عندى ملف به بيانات عملاء كثيرة مقسمة الى اربع حالات الاولى طلب جديد الثانى طلب مفوض الثالث طلب مؤشر الرابع طلب تم تسليمة اريد الطلبات التى تم تسليمها ترحل الى ورقة اخرى وجزاكم الله خيرا طلب تسلم.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 السلام عليكم ورحمة الله أخي الكريم، هذه محاولة بسيطة في ترحيل الطلبات التي تم تسليمها إلى الشيت 3 بواسطة كود (ربما ستجد أحسن منه)... فقط أنبه أنه يجب كتابة (في العمود F) العبارة "طلب تم تسليمه" بهذه الصيغة وليس كما وجدتها في ملفك "طلب تم اتسليمه"... والكود يقوم بتعيين خلايا العمود F التي تحوي العبارة "طلب تم تسليمه" ويقوم بقص كل الصف ولصقه في في آخر سطر غير فارغ في الشيت المسمى "3" وبعد الانتهاء من الترحيل يحذف كل الصفوف التي تم تفريغها بالقص... ملاحظة: ويستحسن أن تكون الصفوف المرحلة بالتنسيق نفسه في الورقتين... أخوك بن علية طلب تسليم.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 (معدل) بارك الله فى أستاذنا بن عليه أول المبادرين لمساعدة الأعضاء بعد إذنك يمكن اختصار الكود شوية ؟ Sub Macro1() Dim Cell As Range, cel As Range On Error Resume Next Set MyRange = Sheets("æÑÞÉ1").Range("F10000", Range("F3").End(xlUp)) Application.ScreenUpdating = False For Each Cell In MyRange If Cell = "ØáÈ Êã ÊÓáíãå" Then maligne = Sheets("3").Range("A65536").End(xlUp).Row + 1 Rows(Cell.Row).Cut Worksheets("3").Range("A" & maligne) End If Next Application.ScreenUpdating = True End Sub و للإفادة : يمكن استخدام أمر القص و اللصق فى سطر واحد لكن يجب عمل كود لحذف الأسطر المقطوعة وذلك بتحديد مكان اللصق مباشرة بعد مكان القص ( وينطبق نفس الكلام على أمر copy إلا أن الخلايا المنسوخة تبقى مكانها ) ( Rows(Cell.Row).Cut Worksheets("3").Range("A" & maligne) مع الشكر الجزيل تم تعديل مايو 9, 2011 بواسطه kemas رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 (معدل) السلام عليكم ورحمة الله أخي الكريم كيماس لقد جربت هذه الفكرة في الكود الذي وضعته سابقا دون جدوى قبل أن أستقر عند الكود الأخير... واستعملت الكود الذي قمتَ بتغييره واستبدلت الكود الذي كان عندي وبقي المشكل على حاله، بعد قص الصفوف التي تتحقق عليها الشروط المطلوبة يبقي الكود هذه الصفوف فارغة ولكنها لا تحذف... لست أدري إن كان المشكل في جهازي ؟ (وقد جربت تنفيذ الكود في نسخة أوفيس 2007 والمشكل هو هو)... أنتظر ردك وشرح سبب عدم عمل الكود معي بصورة صحيحة ... الذي أعرفه أن أمري CUT و PASTE يقومان بهذه العملية (حذف الصف ولصقه في مكان آخر) بالطرقة التي ذكرتها في شيت واحد، بينما الأمر يختلف من شيت لآخر (فالصفوف المقصوصة من شيت أول يتم لصقها في شيت ثان ولكن مكانها يبقى فارغا (وأقصد هنا الصفوف الداخلية لجدول) ... والله أعلى وأعلم أخوك بن علية تم تعديل مايو 9, 2011 بواسطه hben رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 فعلا أخى بن علية يبدو أننى جربت الكود مع بقاء أمر حذف السطور الفارغة فخيل لى أن أمر القص يحذف الصف بعد قصه أعتذر عن ذلك رغم أننى مازلت أشك بالأمر جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
khaledHHH قام بنشر مايو 10, 2011 الكاتب مشاركة قام بنشر مايو 10, 2011 اخى الفاضل بن علية واخ الفاضل كيماس جزاكم الله خيرا وجعل ذلك فى ميزان حسناتكم بارك الله فى اولادكم واموالكم وجزاكم الجنه والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.