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

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

قام بنشر (معدل)

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