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

كود إدراج عدد معين من الصفوف ابتداءً من صف محدد


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

346594948.gif

اخواني الكرام

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

الكود يقوم بادراج صفوف معينه ابتداءً من اي صف نختاره

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

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

Sub officna()

Set XX = Application.WorksheetFunction

X1 = InputBox(" حدد رقم الصف المطلوب ادراج صفوف ابتداءً منه", "OFFICNA")

If IsNull(X1) Or X1 = "" Then Exit Sub

X2 = InputBox(" حدد عدد الصفوف المراد ادراجها", "OFFICNA")

If IsNull(X2) Or X2 = "" Then Exit Sub

X3 = XX.Sum(X1, X2)

Rows(X1 & ":" & X3 - 1).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" & X1).Select

End Sub

اخوكم ابو احمد

ادراج عدد ميعين من الصفوف ابتداء من صف محدد.rar

تم تعديل بواسطه عبدالله المجرب
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم=====اخى الحبيب عبدالله

كود جميل فعلا ومفيدبارك الله فيك وفى الاخ الخالدى906211977.gif

اخى عبدالله المجرب

اعمالك جميلة بارك الله فيك

اخوك

سعد عابد

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

الاخ الفاضل سعد عابد

الاستاذ الفاضل كيماس ابوعمر

الاخ الفاضل ياسر الحافظ ابوالحارث

شكراً لكم على هذا الدعم والمساندة

ابواحمد

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

حياك الباري ,و زوجك الحواري ,و حفظك مسلم و البخاري ,و فتح الباري.و جمعنا الله و اياك في الفردوس الأعلى مع الصديقين و الشهداء و النبيين و حسن اولئك رفيقا

نريد كرما ان يتم ذلك في عدة صفحات مختلفه

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

استاذنا الفاضل / عبداللة

دائما اعمالك متميزة وتقدم الكثير

جزاك الله كل الخير

اخي القومي شكراً لك

الاخ ابو احمد كود مميز جدا ولك كل الشكر

مجدى يونس

اخي مجدي شكراً لك

الأستاذ / ابو احمد

كود منظم ومفيد

استاذ معتصم شكراً لمرورك

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

حياك الباري ,و زوجك الحواري ,و حفظك مسلم و البخاري ,و فتح الباري.و جمعنا الله و اياك في الفردوس الأعلى مع الصديقين و الشهداء و النبيين و حسن اولئك رفيقا

حياك الله اخي الفاضل

نريد كرما ان يتم ذلك في عدة صفحات مختلفه

يمكنك نسخ الكود لجميع الصفحات التي تريد ووضع زر الامر بها جميعاً ام ان المقصود شيء أخر؟

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

السلام عليكم

الاستاذ عبدالله المجرب

كود عملي ويحتاجه الكثير

تألق وتقدم بخطى سريعه وفقك الله

تقبل مروري

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

استاذة الكبير/عبدالله المجرب

بارك الله فيك كود جميل جدا

تقبل الله منا ومنك صالح الاعمال

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

اخي ابو الاء شكراً لمرورك

السلام عليكم

الاستاذ عبدالله المجرب

كود عملي ويحتاجه الكثير

تألق وتقدم بخطى سريعه وفقك الله

تقبل مروري

اخي ابو نصار شكراً لمرورك والحمدلله على سلامتك

ابواحمد

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

يكون نفس الكود به بعض الاضافات لتجعله يزيد الصفوف المطلوبه في عدة صفحات مختلفه

عفوا للتداخل

وجزاكم الله خيرا

اخي الفاضل هل تقصد ان يتم سؤالك عن الورقة التي تريد ادراج الصفوف فيها؟؟

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

الاخ الفاضل cat101

الاخ الفاضل nasersaeed

ارجو منكما ومن الاخوة الكرام مراجعة هذا الرابط لمشاهدة النسخة المحدثة للكود السابق

ابواحمد

http://www.officena.net/ib/index.php?showtopic=38179

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

  • 3 weeks later...

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