اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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


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

 

 

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

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

تحياتى

333-معدل (2).rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

        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

تقبل تحياتي

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information