زر امر لترحيل سطر بناء على قائمه منسدله لشيتات متغيره

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة    زر ترحيل واحد بدلا من 4 ازارير ترحيل

 

 

تم ارفاق كود الحل من الفاضل _ رحمه الله/  الحسامي 

و لا تنسونا من صالح الدعاء

تحياتى

333-معدل (2).rar

[قلم-الاكسل(عبدالعزيز)]

شكرا لك ع المجهود

اتمنى ان تكون بصحة وعافية

[جلال الجمال_ابو ادهم]

قلم-الاكسل(عبدالعزيز)

تحياتى

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم جلال وجزيت خيراً

صراحة الأعمال التي قدمها العمالقة أمثال الحسامي رحمه الله تحتاج لدراسة وفي بعض الأحيان تنقيح بسيط ..

جربت الملف إذ أنني لا أحب أن أحمل الملف وحسب بل أقوم بالإطلاع عليه ودراسته دراسة متأنية للاستفادة منه قبل نقده

وإذا تطلب الأمر تعديل أذكره لكي يستفيد الجميع

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

ولذا يجب التعديل على الشرط بالشكل التالي

        If (([U1] = 1 Or [U1] = 2) And a1 = "") Or (([U1] = 3 Or [U1] = 4) And (a1 = "" Or a2 = "")) Then
            MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ"
            Exit Sub
        End If

تقبل تحياتي

 

[جلال الجمال_ابو ادهم]

ياسر خليل أبو البراء

اخى الفاضل

بارك الله فيك و اتمنى من الله لك مزيدا من الصحة و العافيه

تحياتى