( تمت الاجابة ) الطلبات المسلمة

[khaledHHH]

اخوانى اعضاء ومشرفى المنتدى الكريم

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

عندى ملف به بيانات عملاء كثيرة مقسمة الى اربع حالات

الاولى طلب جديد

الثانى طلب مفوض

الثالث طلب مؤشر

الرابع طلب تم تسليمة

اريد الطلبات التى تم تسليمها ترحل الى ورقة اخرى

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

طلب تسلم.rar

[بن علية حاجي]

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

أخي الكريم، هذه محاولة بسيطة في ترحيل الطلبات التي تم تسليمها إلى الشيت 3 بواسطة كود (ربما ستجد أحسن منه)... فقط أنبه أنه يجب كتابة (في العمود F) العبارة "طلب تم تسليمه" بهذه الصيغة وليس كما وجدتها في ملفك "طلب تم اتسليمه"... والكود يقوم بتعيين خلايا العمود F التي تحوي العبارة "طلب تم تسليمه" ويقوم بقص كل الصف ولصقه في في آخر سطر غير فارغ في الشيت المسمى "3" وبعد الانتهاء من الترحيل يحذف كل الصفوف التي تم تفريغها بالقص...

ملاحظة: ويستحسن أن تكون الصفوف المرحلة بالتنسيق نفسه في الورقتين...

أخوك بن علية

طلب تسليم.rar

[عبد الفتاح كيرة]

بارك الله فى أستاذنا بن عليه

أول المبادرين لمساعدة الأعضاء

بعد إذنك

يمكن اختصار الكود شوية ؟

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

[بن علية حاجي]

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

أخي الكريم كيماس لقد جربت هذه الفكرة في الكود الذي وضعته سابقا دون جدوى قبل أن أستقر عند الكود الأخير... واستعملت الكود الذي قمتَ بتغييره واستبدلت الكود الذي كان عندي وبقي المشكل على حاله، بعد قص الصفوف التي تتحقق عليها الشروط المطلوبة يبقي الكود هذه الصفوف فارغة ولكنها لا تحذف... لست أدري إن كان المشكل في جهازي ؟ (وقد جربت تنفيذ الكود في نسخة أوفيس 2007 والمشكل هو هو)... أنتظر ردك وشرح سبب عدم عمل الكود معي بصورة صحيحة ...

الذي أعرفه أن أمري CUT و PASTE يقومان بهذه العملية (حذف الصف ولصقه في مكان آخر) بالطرقة التي ذكرتها في شيت واحد، بينما الأمر يختلف من شيت لآخر (فالصفوف المقصوصة من شيت أول يتم لصقها في شيت ثان ولكن مكانها يبقى فارغا (وأقصد هنا الصفوف الداخلية لجدول) ...

والله أعلى وأعلم

أخوك بن علية

تم تعديل مايو 9, 2011 بواسطه hben

[عبد الفتاح كيرة]

فعلا أخى بن علية

يبدو أننى جربت الكود

مع بقاء أمر حذف السطور الفارغة

فخيل لى أن أمر القص يحذف الصف بعد قصه

أعتذر عن ذلك

رغم أننى مازلت أشك بالأمر

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

[khaledHHH]

اخى الفاضل بن علية واخ الفاضل كيماس

جزاكم الله خيرا وجعل ذلك فى ميزان حسناتكم

بارك الله فى اولادكم واموالكم وجزاكم الجنه

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