نقل صف وفقا لشرط معين

[فراسكو]

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

 

كيف يتم نقل صف بالكامل الى صفحة اخرى بنفس الشيت بمجرد كتابة في العمود المسمى(نوع الاشتراك) نكتب كلمة (غير مفعل) يتم نقل الصف بالكامل الى الصفحة الثانية 

وشكرا لكم 

حساب العملاء.rar

[الشهابي]

الأخ العزيز / فراسكو 

هذا حل بواسطة أعمدة مساعدة وهي العمود (AA) الملون باللون الأصفر في كلا الورقتين

حساب العملاء.rar

[محمد الريفى]

السلام عليكم

اخى الفاضل هذا حل بالمعادلات عسى ان يفي بالغرض

او يجيبك من هم افضل منى

تحياتى

[محمد الريفى]

السلام عليكم

اخى الفاضل هذا حل بالمعادلات عسى ان يفي بالغرض

او يجيبك من هم افضل منى

تحياتى

[فراسكو]

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

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
    If Target.Cells.Count = 1 Then
        If Target.Value = "ÛíÑ ãÝÚá" Then
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
            Range("a" & Target.Row & ":o" & Target.Row).Copy Sheets("æÑÞÉ2").Range("a" & Sheets("æÑÞÉ2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
            Rows(Target.Row).Delete
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
        End If
    End If
End If

End Sub

ملاحظة الكود بطيء جدا اعتقد ان المشكل في تنسيقات الملف و الله اعلم .

 

 

تحياتي

حساب العملاء++.rar

[فراسكو]

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

 

ملاحظة بعد النقل من الصفحة الاولى للصفحة الثانية يجب ترتيب التسلسل  وشكرا

تم تعديل مارس 26, 2015 بواسطه فراسكو

[احمد عبد الناصر]

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

تم تعديل مارس 26, 2015 بواسطه احمد عبد الناصر

[فراسكو]

نعم اريده ان يرجع في نفس الصفحة 

[سليم حاصبيا]

اخي فراسكو

اليك هذا الحل الذي يحتوي على 3 حلول لموضوعك

اقرأ تعليمات الماكرو في الصفحة رقم 1 و اختر ما تريد

حساب العملاء.rar

[فراسكو]

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

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

اكواد متقنة استاذي سليم :]

 

تحياتي

حساب العملاء+-+.rar

[فراسكو]

استاذ احمد انا شاكر لك لكن يوجد خطا في الكود وشكرا لك 

[سليم حاصبيا]

  تم التعديل على الملف

لكنه بطيء بالعمل و لا ادري ما السبب

حساب العملاء معدل.rar

[فراسكو]

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

[احمد عبد الناصر]

معذر ة علي الخطأ

 

جرب هذه 

حساب العملاء---.rar

[فراسكو]

استاذ احمد نفس المشكلة تظهر رسالة خطا 

[سليم حاصبيا]

تم التعديل مرة اخرى

ربما تكون الاخيرة

حساب العملاء معدل 2.rar

[فراسكو]

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

[سليم حاصبيا]

 تم معالجة الامر

حساب العملاء معدل3.rar

[فراسكو]

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

[سليم حاصبيا]

غير في الكود كلمة xlPasteValues

الى كلمة xlPasteAll 

 واحفظ الملف

[فراسكو]

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

[فراسكو]

اتمنا العمل يكون على هذا المصنف والكود بطيء جدا ممكن معالجة له شكرا لكم 

عملاء.rar

[فراسكو]

منتظر اجابتكم وشكرا لكم