تعديل على كود

[أحمد على]

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

 

الايتام.xlsm

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

تفادياً لمشاكل اللغة العربية مع الكود وصعوبة نسخه (حيث تظهر أحرف غريبة وغير مفهومة)

تم تغيير اسماء الصفحات التي يتعاطى معها الكود

Option Explicit
Sub get_data_advanced_filter()
Dim Mursal As Worksheet: Set Mursal = Sheets("kaf_Mursal")
Dim aceepted As Worksheet: Set aceepted = Sheets("kaf_accepted")
Dim Refused As Worksheet: Set Refused = Sheets("kaf_Refused")
Dim Rg_to_copy As Range: Set Rg_to_copy = Mursal.Range("c10").CurrentRegion

With aceepted
 .Range("c10").CurrentRegion.ClearContents
 .Range("s1") = Mursal.Range("L10")
 .Range("s2") = "Accepted"
 Rg_to_copy.AdvancedFilter 2, .Range("s1:s2"), .Range("c10")
.Range("s1:s2") = vbNullString
End With

With Refused
 .Range("c10").CurrentRegion.ClearContents
 .Range("s1") = Mursal.Range("L10")
 .Range("s2") = "Ref"
 Rg_to_copy.AdvancedFilter 2, .Range("s1:s2"), .Range("c10")
.Range("s1:s2") = vbNullString
End With
End Sub

الملف مرفق مع الكود و زر للنتفيذ

 

yatim.xlsm

[Ali Mohamed Ali]

أحسنت أستاذ سليم كود ممتاز جعله الله في ميزان حسناتك

[أحمد على]

شكرا استاذى العزيز

على الكود الرائع 

ولكن اردت ان يكون الكود المرفق هو المطلوب اذا امكن ولك تحياتى

 

[أحمد على]

قمت بعمل تعديل فى الكود    

الكود يعمل ولكن يوجد مشكلة انه لا يتم  ( تم الرفض - تم الصرف ) الا لمرة واحدة فقط

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

اريد ان ينقل كل من كتب اماه تم الصرف ام تم الرفض وشكرا 

الايتام.rar

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

25 دقائق مضت, أحمد على said:

قمت بعمل تعديل فى الكود    

الكود يعمل ولكن يوجد مشكلة انه لا يتم  ( تم الرفض - تم الصرف ) الا لمرة واحدة فقط

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

اريد ان ينقل كل من كتب اماه تم الصرف ام تم الرفض وشكرا 

الايتام.rar 95.76 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

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

بعد التعديل على اسماء الشيتات كما كانت (في الماكرو  وفي الـــ   Tab    ) وتحديد النصوص التي يجب كتابتها بدل  ِAccept  و  Ref 

فقط حدد كل من  (تم الرفض - تم الصرف) وانقر الزر مرة واحدة   

عبارتي (تم الرفض و تم الصرف) حاول وضعها في قوائم منسدلة تلافياً للأخطاء الاملائية او المسافات الناقصة او الزائدة في الكتابة)

واذا وجدت نفسك مخطئاً في احد ما  قم بتصليح الخطأ واضغط الزر مرة ثانية

انا شخصياً لا أفضل تسمية الشيتات باللغة العربية

مثلا صفحة الكفالات قم بتسميتها Kafalat

[أحمد على]

شكرا استاذى العزيز 

تم عمل القائمة المنسدلة وتم  تغيير Accept  و  Ref  بكلمتى تم الصرف / تم الرفض والكود يعمل بكفاءة

شكرا لك استاذى الحبيب