اذهب الي المحتوي
أوفيسنا

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

قام بنشر

أستاذى الفاضل / محمد يوسف

جزاك الله كل خير على هذا الدعاء الطيب المبارك

وجعل الله لك بمثله

تقبل أرق تحياتى وتقديرى

قام بنشر

أخى فى الله

استاذى القدير // رجب جاويش

ما شاء الله عليكم

أسأل الله عز وجل لكم أن يديم عليكم نعمه ويحفظكم من شرور خلقه

تقبل منى وافر الاحترام والتقدير

قام بنشر

أستاذى الفاضل / محمد يوسف

تم تعديل كود الميكانيكا

 

أستاذى الفاضل

كان مع اضافة السطرين

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

If .Cells(R, 91) = "عربى" Or .Cells(R, 91) = "عربي لربع الدرجة" Then

وفى السطر الثانى توضع نقطة أيضا قبل كلمة Range لنفس السبب

.Range("A" & R).Range("A1,O1,R1:S1").Copy

الشطف.rar

قام بنشر

استاذى القدير / رجب باشا

شرح رائع

أفادكم الله خالص شكرى وتقديرى لشخصكم الكريم

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

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

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